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1984 21 


15:47 


fi 


1384 21 


15:53 


fi 


1984 21 


15:55 


f i 


1984 21 


16:07 


fi 


1984 21 


16:14 


fi 


1984 21 


16:23 


fi 


1964 21 


16:35 


fi 


1984 21 


16:43 


f i 


1384 21 


1S:52 


fi 


1384 21 


16:58 


fi 


1^4 21 


17:00 


fi 


1384 21 


17:06 


fi 


1384 21 


17:13 


f i 


1984 21 


17:15 


f i 


1984 21 


17:20 


f i 


1984 21 


17:36 


f 1 


1984 21 


17:37 


fi 


1984 21 


17:47 


f i 


1984 21 


17:52 


fi 


1984 21 


17:57 


fi 


1384 21 


18:04 


f i 


1384 21 


18: 12 


f i 


1984 21 


18:13 


fi 


1984 21 


18:22 


fi 


1984 21 


18:22 


fi 


1984 21 


18:28 


fi 


1984 21 


18:29 


fi 


1984 21 


18:35 


fi 


1984 21 


18:50 


fi 


1984 21 


19:00 


fi 


1984 21 


19:08 


fi 


1384 21 


13:13 


fi 


1384 21 


19:18 


fi 


1384 21 


19:23 


fi 


1984 21 


13:25 


fi 


1984 21 


13:26 


fi 


1984 21 


19:31 


fi 


1964 21 


19:98 


f 1 


1984 21 


13:45 


f i 


1984 21 


19:46 


fi 


1964 21 


19:46 


fi 


1384 21 


19:55 


fi 



le DSK:DCfl.SLO 


~ 


of — F41WF 


le DSK:DCft.SLO 


— 


of — F41Mff 


le DSK:DCf|.SLO 


— 


of — F41NNF 


1- DSK:!Xfl.SLD 


— 


of — F41NNF 


le STRING: — 


of 


— F41NNF 


le DSK:DCfl.SLD 


— 


of — F41Wf 


le STRING: — 


of 


— F41NNF 


le DSK:yC.SLO - 


- 


of — F41Nff 


le OSK = VC.SLO - 


- 


of — F41NNF 


le DSK:VC.SLO - 


- 


of — F41NNF 


le STRING: — 


of 


— F41NNF 


le OSK:WC.SLO - 


- 


of — F41MNF 


le STRING: — 


of 


— F41NNF 


le STRING: — 


of 


— F41Nff 


le OSK:D(mFfl.SLO 


— of — F41NNF 


le DSK:DACOEB.SLO 


— of — F41NNF 


le STRING: — 


of 


— F41WF 


le DStC:P(*.SLO 


— 


of — F41WF 


le C6K:PfiN.SL0 


— 


of — F41NNF 


le DSK:PflN.SLO 


— 


of — F41NigF 


le STRING: — 


of 


— F41NNF 


le DSK:TMPGRN.SLO 


— of -- F41NNF 


le DSK:THPGRN.SLO 


— of — F41NNF 


le STRING: — 


of 


— F41NNF 


le DSK:flUClSlJX.SLO 


— of — F41NNF 


le DSK:f)LDSlJX.SLO 


~ of — F41NNF 


le STRING: — 


of 


— F41WF 


le OSK:F4I0.SLO 


— 


cf — F41NNF 


le DSK:F4I0.SL0 


— 


of — F41NNF 


le DSK:F4Iu.SL0 


— 


of — F4INNr 


le DSK:F4I0.SL0 


— 


of — F41NNF 


le DSK:F4I0.SL0 


~ 


of — F41NNF 


le STRING: — 


of 


— F41NNF 


le DSK:F4I0.SL0 


— 


of — F41WiF 


le DSK:F4I0.SL0 


~ 


of — F41Wf 


le STRING: — 


of 


— F41NNF 


le STRING: -- 


of 


— F41NNF 


le DSK:F4I0.SL0 


— 


of — F^lftF 


le CrSK:F4I0.SL0 


— 


of — F41NNF 


le DSK:F4I0.SL0 


— 


of — F41Wf 


le DSK:F4I0.SLD 


— 


of — F41Wr 


le DSK:F4I0.SL0 


— 


of -- F41NNF 


le STRING: — 


of 


— F41NNF 


le STRING: — 


of 


— F41NNF 


le STRING: -- 


of 


— F41Wf 


le STRING: — 


of 


— F41»f 


le STRING: — 


of 


— F41NNF 


le DSK:F4I0.SL0 


— 


of — F41WIF 


le 0SK:F4I0.SL0 


— 


of — F41Nflf 


le STRING: — 


of 


— F41NNF 


le DSK:F4I0.SL0 


— 


of — F41NNF 


le DSK:F4I0.SL0 


— 


of — F41KWF 


le DSK:F4I0.SL0 


— 


of — F4iWJF 


le STRING: — 


of 


— F41WF 


le STRING: — 


of 


-- F41NNF 


le DSK:LPTX.SLO 


— 


of — F41NNF 


le STRING: — 


of 


— F41NNF 


le DSK:LPTX.SLO 


— 


of — F41NNF 


ie STRING: — 


of 


— F41N(f 


.le OSK:LPTX.SL0 


— 


of — F41NNF 


le STRING: — 


of 


— F41NNF 


le DSK:F4IO.SL0 


— 


of — F41NNF 


le DSK:F4IO.SL0 


— 


of — F41(#F 


le 0SK:F4I0.SL0 


— 


of — F41NNF 


le CISK:F4IO.SL0 


— 


of — F41NNF 


le STRING: — 


of 


— F41NNF 


le STRING: — 


of 


— F41NNF 


le DSK:F4I0.SL0 


— 


of — F41NNF 


le DSK:F4I0.SLD 


— 


of — F41NNF 


le DSK:F4I0.SL0 


— 


of — F41NNF 


le DSK:F4I0.SL0 


— 


of — F4irWF 


le DSK:F4I0.SL0 


— 


of — F41NNF 


le DSK:F4I0.SL0 


— 


of — F41NM^ 


le DSK:F4I0.SL0 


— 


of ~ F41NNF 


le i>Si<:F4I0.SLQ 


— 


of — F4iNNF 


le STRING: — 


of 


— F41NNF 


le 0SK:F4I0.SL0 


— 


of — F41NNF 


le 0SK:F41BS.SL0 - 


- of — F41NNF 


le 0SK:F41NNF.SL0 


— of — F41NNF 



01 eeei cotent >. wlid eeeez poges 

01 0002 C REC PflGE DESCRIPTION 

01 0803 cee08i eeeei 

01 0084 C8e0e2 00002 .INSERT F'tlW 

01 8005 cee@e3 Etcttc 

81 0006 Cf; 
01 0007 



SLCE March 23. 1984 28:58:09 fila DSK:F'»1WF.SL0 — of — F41NNF 
ez 8668 .INSERT F41l« 



SLDE March 23. 1964 29:58:89 file DSK:Ftl»i.SLO — of — F41NNF 

01 8861 8 OBP * e 

ai eeez oso = 

81 eeea e frst = 



SLCE March Z3. 1984 Ze:58:ie file DSK:F+1NNF-SL0 — of — F■^1^3gF 

eZ 0038 1 FAST = 1 

8Z 8099 .INSERT F^lftX 



SLOE Harch 23. 1964 28:58:19 file DStC:F+iflX.SLO 



F41NNF 



ei aeei 
ei eeez 

91 9883 
81 3804 
91 9886 
81 9887 
91 9898 
91 9869 

ei eeie 

91 901! 
01 9812 
81 8813 

81 0014 

81 9015 
91 981S 
91 9017 
91 8918 
91 0013 
91 9929 
91 0021 
91 8922 
91 0923 
91 0024 
91 8025 
91 8026 
91 0027 
91 9028 
91 0823 
81 8030 
91 0031 
91 0032 
91 0033 
91 0934 
91 0935 
91 0038 
91 0037 
91 9038 
91 0033 
91 0040 
91 0041 
91 0042 
SI S©4j 
91 0044 
01 0045 
91 004G 
91 9947 
91 0048 

01 0049 

91 9958 
0! 00S1 
91 9052 
01 0052 
91 0053 
91 8054 
01 0054 
91 0055 
91 9958 
01 0957 
91i>9e58 
81a8e58 
91 0059 
91 9860 



1 tWITS = 1 
1 ST<*!EW - ! 
9 0LD9LT = 8 

OLDECC = 8 

1 F2flRCW = 1 
8 TYWET = 
1 TIHER = 1 

1 TAPE - 1 



LIST 
;Special UfllTS nap stuff 
■Spec ! a! CCSSV. I/O devices 



;KA style overflow interrupts 



INCLUDE TAPE CODE 



1 DSK = 1 ,-INCLLDe DISK ODE 

VID = 9 :Exclude Foovision code 

irP = ;l>rea« on... 

1 DCfl - 1 

20 DCA-UDEV = DLSDEU 
8 olddls = 8 
1 DLS4 - 1 

1 LPT = 1 ; Include LPT Bicrocode 
15 LPT-UDEV « 15 



1 VC 
14 



;Versatec 
VCDEV = 14 



38 PflN-UC€U 

38 GRN-UDEV 

30 ft£-UDEv' 

3 PflN-INT-ENB = 3 



= 39 
= 30 



u Dev i ce addr ess 
uOevice adc^ess 



; Interrupt enable 



9 JSYSOF »= 
9 flUGGYF = 9 
1 OeOOTF = 1 
31 DlflGDEU - 

1 WfllTSFIX = UMTS 



SLPPRESS JSYS DEVICE 

SUPPRESS AUOtNT I^ETRUCTIONS 

GET DISK BOOTER 

31 ;ENA8LE I/O DlflOCSTIC niCHQCO£S FOR THIS reUICE IF 

NON-ZERO 

;FIXES FROn CCRfW NOT YET ftCCEPTED INTO IWIN 
UCOOE 



19908 



HILK ': 19090 



:HILOC 
.use[HILOC] 



list 1 
. insert F4flPR 



SLOE March 23, !»♦ 28:53:11 file D«:F+flPR.SLO 



of — F+iwr 



81 eeei 

81 8082 

81 eeea 
ei eeea 

81 8884 

81 8085 

81 8886 

81 8887 

31 9007 

81 8888 

81 8009 

81 8818 

81 8811 

81 8012 

81 8813 

81 8814 

81 8815 

81 8815 

81 8816 

81 8817 

eiseois 

81 8818 

81 8819 

81 8828 

81 8821 
ei>8022 
81b8022 
81>8822 

81 8023 

81 8824 

ei 8025 

81 8026 

81 8027 

81 8828 

81 8828 

01 8029 

81 8030 

81 8831 

81 8831 

81 883Z 

81 8833 

8i 0034 

81 8835 

01 8038 

01 0037 

81 8838 

81 8839 

81 8048 

81 0041 

01 0042 

81 0042 

81 8843 

81 8844 

01 0045 

01 0045 
01 0047 
81 0048 
01 0049 
eia8050 
aii>0050 
eia0050 
81>8e50 
eiB8850 
01 8050 
81 8051 
01 0052 
01 0053 
01 0054 
01 0055 
01 0056 
01 0057 
81 0057 
01 0058 
81 8869 
81 8859 
81 8060 
01 0061 
81 8062 
81 8063 
81 8063 
81 8064 
81 8865 
81 0866 
01 0067 
01 0868 
01a0069 
01>ee69 
01>0e69 
81>e069 
81bO069 
ein0869 
81a0063 
81 8869 
81 0069 
81 8870 
01 8071 
81 8072 
01 0073 
01 0073 
01 0074 
01 8875 
81 0076 
01 0876 
01 0077 
81 8078 
81 8079 
81 8068 
81 8061 



42 flPRSTS « 40 + flPR-5TflTLE 
44 PISTS =« 48 + PI-STATUS 



87600 
87801 



81073117004000001400046025571457000 
81073117004000001400046825571457880 



10001 
10002 



54073117000006055416162325420416880 
01073117000006055416162365431416000 
01073131000080001416156126730456000 



10003 01073117000006055416152365431415088 



18004 54873117000306855415152325428416009 

10005 81873117000006055416162365431416000 

18006 54073117080006055416162325420416080 

18007 81073117080006055416162365431416000 



10010 01073017000006055402762365771416000 

10011 01065017000000000125762025571455000 

10012 01073117000000001416162225431456000 

10013 01073131000000001404556125430456000 

18014 01073117000000001415152225431456000 

10015 01073017000000001404562025771456000 
10816 01073117000000001415162225431456000 

10017 01073017000000001404562025771456000 



10020 540731170000060S541E162325420416O0O 

10821 01873117000006055415152365431416000 

10022 54073117000006055415152325420416000 

10023 01073117000006055416152365431415000 

10024 54073117000006055418152325420416000 
18025 B1073!1700e00S05541B!S2K543141Sa0e 

10025 01033117000806055416150345431216000 



10027 54073117000006055416136325460516800 
10830 01073117000000001415162825431456000 
10031 01073117000006055416162365431416000 
18032 01873117009038001416152225431455008 

10833 81873131800000001416156125430456800 

10034 01073117000000001416162225431456000 

10035 01073817800000001404562025771455000 



APR and PI instructions 



NOTE: APR ATEte = STATUS 
AtEH17 ' LIGHTS 
Afttlie - DATA SHITOCS 
ATEtllS = CCNTROL SWITCHES 

;FiraMarc status bits for APR ars in 
AnEHt2] 
;DIDTO FDR PI AnE(1[4] 

.opcodcI700] [xlist 

list 1;APR & PI 

OCCaeT 0] OESTEDEVHW?] OR-DeV-FROtl-INTR JUrf»[(*>IOTl ICRTI S 
DICONST 01 DESTIDEU-flORl CLR-DEV-FROn-INTR JUHPCflPIOT] NDRTi t 

•rcloc 

C.USEfHILX] 
I xlist 

list 1 ) 

;j;APR & PI lOT DISP TABLE 



APROSP: ILGIOT t 
APR, 

CONT t 



: BLKI 



D[D»AHEni6] SHAC C IFRQ XSTIMEMSTO AR] C»0[MA<281 LBJUWCSEOIl 
It sDATAI APR, 

;— RD SU 
CONT % 

-REPEAT 1 - WAITS [ 

;BLKO IS ECC FAST CHECK 
DEAPRSTS] RQT[24.1 t1ftSK[2. ] CDNDt-HEROI JUtPlflPRBCQl C5S0 C 

;JUnP ON SOFT ECC OR NXM 
OCPISTSl ROTI20.1 mSKLl.] CONDIHEROl LBJL»f»[APRBKO] CSSO S 
;LBJLmP ON NOT HARD ECC 



;DATAO FAST CHECK OF 60H2 CLOCK 



FLAG 



CLR-INT PUSHJiaKRDFLGl NORM $ 

;Get CLOCK FLAG in AR 35. rest of AR - 
DCARl CONDSKP[ALU-0] * 
];. REPEAT 1 - WAITS 



.REPEAT WAITS [ 




ILGIOT « CONT % 


jBLKO 


ILGIOT t COHT * 


:DATAO 


ILGIOT » CONT i 


;SLKO 


ILGIOT t CONT « 


;DATAO 


1. REPEAT WAITS 





DtlRl HASK!13) DESTtO) NORtl $ 

DCCONST 331 R0T[S1 ALUC-DtQl OESTtOl JUnPlAPRCOl NORtl S 

PUSHJIAPRCIl NORM t 

i — GET BITS IN AR i Q 
DtARl mSKda.l SMAC I IFRQ DESTtMEflSTO AR] COND(riA<20] 
LBJUnPtSEOI) 1$ 

PUSHJCAPRCn NORM t 

;— GET BITS IN AR & 
DtlRl HASKL18.] DESTtQ] JUTftCTYCZJ NORM t 



iCONO 



a»i 



CONSZ 



PUSHJ[APRCI1 NORM » 



; — GET BITS IN AR & Q 
OtIRl MASKtlB.] DESTtOl JUMP[CTYCS] NORM « 



; CONSO 



PIDSP: 



.repeat 3C ILGIOT t 
CONT » 



] 

( ILGIOT * 

CONT S 
11 ILGIOT t 

CONT S 
K ILGIOT $ 

CC»IT » 



I 
PI. 



DFRQ ALUCMEflAC] DESTIHOLDl $ 

;— Set lights 
OIMEU] DEST[D*ArEni7) NEDI » 

JmPIPICOHOl NORM » 

CONT « 

PUSHJtPICtSilSlBl »eORM s 



; DAT AD 



;CQNO PI, 



; CONI 



PI. 



;— Get brts in AR & Q 
DIAR) SMAC [ IFRQ DESTIMEMSTO AR] CaND[MA<20J LBJUMPISEOIl ]$ 



PUSHJCPICONISUB] NORM t; C0NS2 — GET BITS IN AR t 

DtlR] MASKdS.] DESTIQ] JUWICTYCZl NORM $ 



01 0083 10036 81073117000000001416162225431456000 



PUSHJ[PICDNISIJB] NORM «.- CONSO — GET BITS IN (W & 



SLOE March 23. 1984 28:59:18 file 0SK:F4flPR.SL0 



of 



F4imF 



ei eees 

ei 3898 
81 8891 

81 eesz 

81 6893 
81 8894 
81 8895 
81 8896 

81 8897 
81 8898 
81 8899 
81 8188 
81 8181 
81 818Z 
81 8183 
81 8184 
81 8185 
81 8185 
81 8186 
81 8187 

81 8iee 

81 8189 
81 8118 
81 8111 
81 81 IZ 
81 8113 
81 8114 
81 8115 
81 euE 
81 8117 
81 8118 
81 8119 
81 0128 
81 8121 
8! 8122 
81 8123 
81 8124 
01 8125 
81 8125 
81 8126 
01 8127 
8! via 
81 8129 
81 8130 
81 8131 
81 0132 
81 8132 
81 0133 
81 8134 
81 8135 
81 0136 
81 8137 
81 8137 
81 0138 
01 8139 
81 8139 
81 8148 
81 8141 
01 8142 
ei 0143 
01 8144 
01 0145 
81 8146 
81 8147 
81 8148 
81 8149 
81 8150 
81 8151 
81 8152 
81 8153 
81 8154 
81 0155 
01 0156 
81 0157 
81 0157 
81 8158 
81 0159 

01 0160 

01 0181 

01 0162 

01 0163 

01 8164 

01 8154 

01 0165 

01 8166 

81 8157 

81 8168 

01 8169 

81 8178 

81 8171 

01 0171 

01 8172 

81 8173 

81 8174 

81 0175 

01 0176 

01 0177 

01 0178 

81 0179 

81 0180 
81n0181 
81j»ei81 
eiiD0181 
01b8181 

81 0181 

01 018Z 

01 0183 

81 0184 

81 8186 



18048 01065137000006054860362365577416000 

10041 01077017804086055076152365771416808 
10842 01063117177777737333750365531416800 



18043 81077017000006055416162365771416000 

18044 010638171777777615777S2365531416000 

106+5 01064017000006055416162365471516000 



18046 81864817800886055416162366131416088 

18047 81863137800006055416104365431415000 

10050 0107301708000605541S162364611416000 

10051 01073186280000001828362825751456000 

18052 01865017008806855060242365571417808 

18053 01073108208000800740362825761456800 
10054 01065117000006055000242365571417000 
10855 01073100804000000660362225761456080 

10056 01073117004000001416162225431456000 
10857 81873017000006055415162366631416008 
18868 81073100280088081400752025421455008 

18061 01073188680000000776152025421456000 
10062 01063017880600001404138825571456880 
18863 81865817880000001404130025571456888 

18664 81073117000006054016822366611417800 

10065 81073017^4280001416152025431456888 

10066 01073117000800001416152225431456000 



.REPEfiT 1 - HfinS [ 

.PftIR 

flPRBKO: CIWDSKP[ NEVER] » 

;HERE UE NO SKIP SINCE ECC CONDITION 15 TRUE 
C0M3SKP[flLUAYSl « 

;(CRE VE SKIP SINCE NO ECC CONTITIDN IS TRIE 

];.REPEftT 1 - UfllTS 



fiPRCO: 



HOLD 



DtCONST 1] R0T[31 flLUEHXQ] DEST[flRJ SHORT C 

* Pti hV^S ENr^QLES 
DCIR] RQT!3S. - 1.1 flLUINOTDI DESTtQl CLR-OEV-FROfl-INTR NORM $ 
OtNLIT 777777575557] flLU[DORQ] DESTCHOLD] NORM $ 

;GET NOT OF CLEflCS THAT MUST BE SHIFTED RIGHT ONCE IN 



DCIR] flLUCNOTDl DEST[Q1 NORM $ 

DCNLIT 777777786777] ALUtDORO] DEST[Q] NOW $ 

;GET NOT OF CLEARS THfiT DON'T NEED TO SHIFT IN 
DCMEM] ALU[D8,Q] DEST[Q] NORM $ 

;COrBINE TtCfl INTO 

;REflLY DOI^E -tXorY) BUT THfiT IS SflfE fiS -Xand-Y 
D(flPRSTS] flLUtOaO) DESTIQ] $ 

i Clear indicated bits. 
DEAR] M.UIDORQ] DE5TCAPRSTS AR] NORM « 

t Set indicated brtx> PI chan 
D[PC -FLAGS] DESTIQ] C600 S 
DtIR) R0Tt41] mSKtl] aMD[OBUS=0] JUMPCAPRCDZ] C550 « 

iJuap if no CLR OV/ERFLOU bit. 
DCCONST 1) R0T[3S. ] ALUC-OiOl OESTCQ PC-FLAGS) t 

; RetBove overflow bit froa current PC flags. 
APRCOZ: OUR] RaT[36] MASKU] C0ND[0SUS>O JUrPEAPROBl C550 C 

; Jump if no CLR FLT OM. 
DCCONST 1) R0TI35. - 31 ALUUKQl DESTI PC-FLAGS 1 * 

; Reiaovc bit froa current PC flass 
APRC03: DtIR] ROTCSS] HASKtl] COM3[-OBUS=0] CLR-INT PUSHJ t CLKCLR 1 CS50 « 

; Clear Clock Flag if indicated. 
PUSHJ[APRCII] CLR-OEy-FROn-INTR NORM » 

r U^b Aprs \Mrt i o i «.3- 

D[D*flMEri0 + flPR-nODEl OEST[Q] $ 

:Get copy of current node bits. 
DEAR] MfiSKCSl COND[OBUS=01 JUfPtAPRCl] C550 « 

I Junp if no PI channel. Me don't want to enable 
ar i thnet ic 

; aicro- interrupts in that case. 
DffW] RDTI31.] CONDESIGNOFF] C558 JUfPEflPRCll S 

; J IF NO OW INT ENBL 

; »»» Don't both enables need to be checked??? 
DtCONST 28] ALUtDORQl DESTtO C D4ftMEI18 + APR-nODE )1 JlWCAPRCZl 



APRCl: 

« 



APRC2: 



10067 01073100400080000676162025421456088 



18870 81073837000000001408752025431456000 



; Turn on arithmetic interrupts. 
DtCONST 201 ALUt-DiQ) DESTtO ( D»AMEn8 + APR-tCOE )] JUMPCAPRC2] 

; Turn off arithaetic interrupts 
OtDSjAMEne + APR-nODEl ROTtCPU-flOOE-ROT] DESTtCPU-nODEl LONG $ 

;C3utput neM aode bits. 
CLR-AROg-TRAP-FLfC DIARl DESTtQ] JUfPIAPRCKll % 

;Cki check for APR interrupts. 



;[>ieck for clock interrupts (and other things) 
APRCHK: PUSHJtAPRCIl NORM «! GET CONI BITS IN fW i 
APRCKl: 
.repeat 1 - WAITS I 

DEAR] hASKt3] CCmtOeuS^l JUrPEMAINl C550 * 

; Done if PI=0 
DEAR] R0Tt24.1 nfiSKE21 CONDE-ZERO) JLfPt APOINT) C550 $ 

; J IF SOFT ECC OR NXM INT 
DEAMEM-ABS PI-STATUSl ALUtNOTDl DESTEALUl 01 NORM * 

;LISE ALUl FOR PI BITS SO DONT HURT APR BITS IN Q 
;GET NOT OF APR FLAGS KEPT IN PI CONI WORD 
DECONST 31 R0TE3S. - 28.1 ALUEALUl OiQl CONDEZEROl JUMPEAPDINTl 
C550 * 

.-JUMP IF PAR ERR INTS ENABLED AND ON 
DEAR] R0TE23.] MASKEll CONDI-OBUS=ei JUHPEAPOINT) CSS0 « 

; J if PDLDV int 
DEAR] R0TE431 ALUtD£Q] DESTIiai SHORT $ 
; AND aask uith flag 
.REPEAT F2AR0U I 
;I think this is the right thing. It uas comnented out after translation 

;fro» F2. TVR/0ctB2 

DtCONST 111 R0Tt3] ALUtDiQ] CONDt-oaj5=01 JUMPtAPOINT] C558 S 
; J if OV int 
)!. REPEAT F2AR0U 

;«XH Is this the sane code as French used? 

;KKK« If so, shouldn't there be an enable for soft interrupt? 
; DtCONST 311 ROTtSS. - 26.] ALUEOiQl CONDEOBUS=01 JUrPIHAIN] C550 

$ 

;;; ; E)one if no CLOCK int, soft Ew- interrupt or NXM 

DCCONST 181 R0TE61 ALUCD&Ql COM3COBUS=0] JUnPCMAIN) C550 « 
: Done if no D-CCK int 
; \ / 
I;. repeat 1 - WAITS 
.repeat WAITS C 

DtARl R0TC27.] C0ND[0BUS<8] JunPtHAINl C550 S 

;If no APR interrupt is not requested, don't interrupt. 
;0theruise, fall thru 
):t 

DEAR] R0TEZ7. 3 CDM3EDBLS<0] JUfPEilAIN] CSSS S 

;If no APR interrupt is not requested, don't interrupt. 
;0therwise, fall thru 
1. repeat WAITS 

; \ / (Falls thru froa APRCKl) 

fPDINT: DEAR] MftSKESl DeSTE(3 AR] JUtf EPIGEN) NORM t 
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81 8132 
81 8133 
81aei34 
81i!i019+ 
ein81S4 
81b8194 
eia8195 
eiaSlSS 

ei=ei9S 
ei>ei95 
eiB8i9e 

81>ei96 
eiii8196 
81iiei3E 

ei 8197 

ei 8198 
81 8199 
81 8288 
81 8281 
81 8282 
ei 8283 
81 828t 
81 8284 
81 8285 
81 828S 
81 8286 
81 8286 
81 8287 
81 8286 
81 e2m 
81 8218 
81 8211 
81 8212 
81 8213 
81 82H 
81 8215 
81 821E 
81 8217 
81 8218 
81 8219 
81 8228 
91 8221 
81 8222 
81 8223 
81 8224 
81 8225 
01 8226 
81 8227 
81 8227 
81 8228 
eine229 
eim8229 
eiKe223 
81n822S 
81i>8229 
811x8229 
81b8229 
ei>8229 

eiBe229 

01s>8229 
81B8229 
81i>e229 
eime229 
81n8229 
81B8229 
81>8Z29 
81118229 
81«e229 
81i»82Z3 
01»e229 
81i«8229 
7ERR0R - 
81m8Z29 
81m8229 



18872 8ie73ei7e8ee0S0S48283623e4Sii4ise0e 

18073 01063137800806854156162365437416808 



18074 ei9?39!7000ea68S410e362364S1141E000 

18075 81863137808886055836162365437416000 



18076 81873817800886054168362364611416008 

18077 81863137000006054676152355437416088 

10100 81873017800886054376162365437415008 

10101 81024117804086055416046365431417080 



18102 81063037000086855415162366131416000 

18103 01073100200008^1480762825431455800 

18184 01864100000006054384362425561416000 

18105 81064017808006055076162365437416800 

18186 81064100000000000062362825561456000 



set lecation with : must be followed by z 
18107 01064100008000800223362025561456000 



D[(W] R0T[R2] fiLUIDORQ] DEST[ftR] SHORT S 

APRGSTLl El 

1 DfPC-FLAGSi ROTili flASKIlJ DEST[QI C500 * 

DtAR] R0TI51 fiLU[DQR(J] DESTEARl SHORT * 
] flPRGBT[4 41] 

[ DtPC-FLAGSl R0T[41 HflSK[l! DeSTCQ) C60e « 
DtflRl R0TI411 ALU(DORQ) DEST[AR1 SHCRT t 
I flPRGBT[7 331 

t DEPC -FLAGS] R0TE7] nftSKIll CESTCQ) C680 « 

DtflR] R0T(33] flLUEDORQ] DESTIAR] SHORT S 
] DtflR] R0T[17] OeSTIQ] SHORT «; SET FLAGS 

ALUE0] DESTIDEU-flOR] CLH-DEV-FROn-INTR NORfl t 
.repeat 1 - UfllTS I 

DtiVRSTS] ALUtDORQ] C€ST(I3 ftR] NORH POPJ % 
];. repeat 1 - WAITS 

.repeat WAITS I 

;SAIL's Kl*-10 has a processor Bodification which sets bit 27 (488 bit) if 

the 
;APR is NOT interrupt in3. This feature is used in a UXGZ chain and 

would 
;consuiiie nany instructions to siiaulatc in a critical path in the systea. 



D[flPRSTS] ALU[DORQ] DESTtQ «?] NOWI * 

;Construct full status 
DiARj fViSKIS] CCfjDiC^jS=^j JufFEftFRCIfJl NuRrt * 

:Set 408 bit if interrupts disabled 

;CThis itay not be the saae as SAIL) 
DtAR] R0T[19.] riASKd] CtWD [ -OBUS=0 1 POPJ C550 S 

;If pushdown overflow, we will interrupt. 
D[CONST 21] R0T[12. ] ALU[D«,Q] COND [ -0BUS=8 ] PCPJ CS58 C 

;If pushdown overflow, we will interrupt. 
DEAR] RaTL43j ALUtD&OJ DESTiQ] SHCRT $ 

;Coa)bine flas with enable to see k^ich interrupts 
DCCONST 11] R0T[3] ALUIDiQ] COND t -QBUS=0 1 JtjnP[APRCIYl C550 » 

;JuBp if overflow is causing an interrupt. 
Shouldn't there be an enable for soft ECC interrupts? 
DtCONST 15] R0TC3. ] ALUCCKO] C3«[-O8US=0] JUf»»[APRCIY] CS50 » 

;JuiBp if clock or soft ECC is causing an interrupt. 
DCCONST 4] R0T[6] DESTIQ] SHORT $ 

;Not interrupting, set 400 bit in APR status 
DIARl ALUCDORal DCSTCM? Q] POPJ NORH $ 

:Turn on 480 bit if needed. 

;Note, that since we ANOed something with 0, GRing in 



: ; ;»KK 

APRCIN: 
APRCIY: 



];[ 
;SAIL's 

the 
;APR is 

would 
JconsuoM 



;a NO-OP if we didn't go thru APRCIN. 
KA-10 has a processor modification ti^ich sets bit 27 (400 bit) if 
NOT interrupt ino. This feature is used in a C0NS2 chain and 
> »any instructions to sinulate in a critical path in the system. 



01*0229 
01ii0229 
01i>0229 
01»0229 
81>8229 
01B0229 
01 0229 
81 8230 
81 0231 
01in0232 
01i»023Z 
81 8232 
01III0233 
01IB0233 
81B0233 
81>e233 
81b8233 
01II0233 
81 8234 
81 0235 
81 0236 
81 0237 
81 0238 
01 0239 
01 8248 



18110 81073317000806854141152365577415880 

18111 81063837888886855416152425431416000 



DIAPRSTS) ALUtDORQl DESTCO BR] NORH * 

^Construct full status 
OtAR! MASK(3) COSID[OBtJS=0] JITPIAPRCIN] NORtI % 
;Set 408 bit if interrupts disabled 
;CThis may not be the sane as SAIL) 
,•! DtAR] R0T[19. 1 flASKdl COND(-OBUS«01 POPJ CS50 $ 

;; ;If pushdown overflow, we will interrupt. 

DtCONST 211 R0T[12.] ALU[D8.Q] COND [ -0BUS=8 1 POPJ 0558 % 

:If pushdown overflow, we will interrupt. 
D[AR1 R0T[431 ALUIDM] 0EST[Q1 SHORT $ 

;Cotnbine flag with enable to see which interrupts 
0[CONST 11] R0T[3] ALU[DiQ] C0ND[-0ajS=8] JUfPIAPRCIY] CS58 » 
;JuHip if overflow is causing ai interrupt. 
::;;■«» Shouldn't there be an enable for soft ECC interrupts? 
val id expression 

D[C0NST 15] ROTO.] ALU[D&Q1 COND [ -OeuS=e ] JUnP[APRCIYl C5S0 * 
;JuFnp if clocl< or soft ECC is causing an interrupt. 

;Not interrupting, set 480 bit in APR status 
APRCIY: OIAR] ALUtDORQl DESTtAR Ql POPJ NORM $ 
;Turn on 408 bit if needed. 
;Note, that since we ANDed something with Q, ORing in Q 



IS 



;a NO-OP if we dicin't go thru APRCIN. 



]. repeat WAITS 



18112 01073112400000801416152025431456008 



10113 01073017004006054321152365771415000 

10114 01060017000006054321162365777415008 
18115 0!0G0137000e060544445S23SEe3141S000 

10116 01073117000000000016000725411456080 

10117 01024117000006055416104365431415000 

10120 01024117080800031415154365431415800 

10121 01073017082000000000152355531415000 

10122 01063117000008000800100425531415000 



APIOT: UIOTRPtfUUD] 
[ CDNDIUSERI JUnPinULDl NORTI 

1$ ;Trap if not lOT-USER flode 

IQTDIS 

[ CLR-DEU-FROn-INTR DtlRl R0Ttl3. ] t1A5K:[4] DESTIQl NORM $ 

DtlRl R0TI13.] nASK[4] ALUtD*Ql C£5T[Q1 SHORT t 
D[D%f»1EM8] ROTtlS.] f1ASK[18.] ALUtD+Ql DESTtAR] NORM * 
DtAR] ROTtrWA-ROT] QOISP LONG $ 
] 
APRRST: ALUt01 DESTIAPRSTS] » 

ALUtei DeSTtftTEM-AaS APR-MODE] S 
DtLIT ftPRDSP » 10088801 OESTtQl NORM » 
DILABEL ILLINT] ALUtDORQl OESTtOSAMEM©] POPJ * 
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of 



F'tlNNT 



92 9241 
82 9242 
82 0242 
82 8243 
82 0244 
92 0245 
92 9246 
82 0246 
82 8247 
82 9248 
92 0243 
82 9259 
82 8251 
82 0252 
02 0253 
82 8254 
82 8255 
82 8256 
82 8257 
82 8258 
82 0258 
02 0259 
02 02S8 
82 92E1 
82 8ZE2 
82 8283 
02 02E4 
92 92E5 
82 92S8 
82 02S7 
92 92S8 
82 8263 
82 8278 
82 8271 
82 8272 
82 8273 
92 0274 
82 8275 
82 8275 
92 9276 
92 0277 
eZ S277 
82 0278 
02 8279 
0Z>9280 
02i>02e8 
02B028e 
02Be28O 
02B028e 
02B0288 
02 0288 
82 8281 
02 0Z81 
02 8282 
82 8283 
82 8284 
82 8285 
02 0286 
82 0287 
82 8288 
02 0289 
82 8290 
02 0291 
82 8232 
82 8293 
02 8294 
82 0295 
92 0296 
02 0297 
92 0298 
02 0299 
82 9398 
92 8301 
02 0302 
02 8383 
82 9304 
82 9395 
92 0306 
820)8307 
02r»0307 
02»e397 
82 0307 
82 0306 
82 0309 
02 8318 
82 0311 
82 8312 
82 8313 
82 8314 
82 8315 
82 8316 
92 0317 
02 0318 
02 0319 
02 0320 
02 0321 
02 0322 
02 0323 
02 0324 
02 0325 
02 032S 
02 8327 
02 0328 
02 0329 



PI - Priority Interrupt Service 



hacro Device 4 



10123 01073137000806054716152365431416089 

10124 71073117000006055401562365571416000 

10125 810?3120400e0000003GlG2025421456000 

10126 71072117000620253415162025671456000 

10127 0ie73!17000e960S541S044365671417000 
10130 01073137088006055200362425571416000 



10131 81073817808880000636162226231456008 

10132 01024117034006055418046385411417000 

18133 01073120200090000441762026261456908 

10134 01024117004020247415046225431457080 
18135 01073100600008000715162026221456800 

10136 01073017000606055201762364731416000 

10137 01864100088608881415152826251456000 

10140 01073017088806055416162365431416000 

10141 01064100Z0000000141S16202S221456000 

10142 81873117888606854056044365671417000 

10143 01073017000606855288362365571416000 

10144 01162017000686055416158366331415800 

10145 01866017080806855416162366331416880 



10146 01064100000000001204162025561456000 

10147 01073017000606055416114365471516086 

10150 01064190088090001203762025561456000 

10151 01077017000680000456152025431456088 

18152 01077817088606055400162365571416000 

10153 01864817880606855416162366271416000 

10154 01063117000006055416112365431416000 

10155 01073037888806855416162364611416000 

10156 01065117000006054740242365571417000 
18157 81870017004686055413562365571416008 

10158 71161117886600808836162025671456800 



The PI systea is entirely emulated- there is no harduare for it. 

PI SYSTEM USE OF fiPR fiMEH 

4 MEM PAR ERRCBIT 19), MEM PfiR ERR INTRPT ENBtBIT 20). 

PI SYSTEM CW(8IT 28) CH41-7 ON (BITS 29-35) 

5 UftlTING RQ 1-7 (11-18) IN PROG 1-7 (29-35) 

6 RQ COUNTS - 4-BIT FIELDS. 0«. 7 AT RIGHT-END OF WORD. 

Other uses of APR AftM are documented at the bes inning 

PHXT-OW: ;Make binary chn. no. froa nask in AR. then call 
PKSTMASK. 

DtAR] R0TI28. 1 DESTIARl NORM $ 

;Put RQ 1 into bit 1 
DICONST 61 DEST[Mfi] NORM S 

;nA will get 7-CHN (for use in shifting) 
PILl: DtAR) ROTin DESKARl C558 COM5[OBUS<0] JUnPtPIGETMASKl S 
;Found first bit ? 
D[nAl ALUID-II DESIIMAl NORM JUHPCPILll $ 
;No. Decrement count and loop. 
PIGETiTASK: ;Load HR29-3S with single bit corresponding to ciian. 
DCMA] OESTCROTRl NORM $ 

;Load rotate aoount. 
DCCONST 11 ROTIRl DESTCARl NORM POPJ S 

;Mai<e mask of first bit only in AR. 



;S£E IF IT IS TIME TO TAKE AN INTRPT. 

;DeterRine which PI channels should be enabled 



PI-CHE CK-ROS: 
.REPEAT STANSW t 
for PAN 

DtDtfiMEMt) R0T[3S. - 10.1 DEST[Q] PUSHJ [ PANIST ) NORM t 

;Select only those channels turned on and ready to 

interrupt 

MAPFtPAN-INT-EfB) CYLENt I OB-OUT 1 alut01 dest [ dev-a<*- 1 S 
;Finish updating enable state in PAN interface 
];[ ;DeteriBine which PI channels should be enabled for PAN 
D[D*AnEM4] R0T[35. - 10.) DESTEQl PUSHJ[PANIST] NORM $ 

;Select only those channels turned on and ready to 
interrupt 

MAPFIPAN-INT-ENBl CYLENC I OB-OUT) alut0] dest [ dev-adr ] S 
;Finish updating enable state in PAN interface 
]. REPEAT STANSW 

DIDSAMEnSl R0T[18.1 MASKt7) DEST[AR) C550 CONDI DBUS=0] 
JUnPEflAINi $ 

.■Any RQ'S ? 
ALU[0] DEST[DEV-A0R1 CLR-DEV-FROM-INTR NORM PUSHJ[PI-GET-CHN1 « 

;Get unary chn no. in AR. shift amt. in MA. ROTR 
D[D*AnEn41 R0TC341 CS50 COND[-OBUS<01 JUMPCMAIN) $ 

fExit if PI sys not on. 
DinflSK 71 ROT[R) OESTIQl NORM % 

:nask of c.h.1 and all higher chns. 
DCDSiAMEMSl ALUIOaOl C550 COND[-OBUS=0] JUrf[MAINl $ 

;Exit if this or higher chn in progress. 
DtARl DESTtQ] NORM $ ;MOyE UNARY CHN « TO 0. 
D[D«lf1En4] ALUID&Ql C558 C0ND[0BUS=8] JUnP[MAINl $ 

;EXIT IF CHN NOT ON. 
D[MA1 RQT[21 DESTIROTRl NORM % 

;GET SHIFT AMT 4 TIMES LARGER, TO ACCESS CNT FIELD 
D[CONST 1] ROTIRl DEST[Q) NORM $ 

;A ONE ALIGNED WITH RQ CNT FIELD FOR THIS CHN. 
D[D*AMEM61 ALU[D-Q1 DESKQ HOLD) NORM S 
;CECRE«ENT OUR WAITING RQ COUNT. 
D[D«AMEMG) ALU[D»Q] DEST[0) NORM $ ;DID UE OVERFLOW ? 
.REPEAT 1 - UAITSFIX [ 

DCCONST 201 R0T[R1 ALUtD&Ql COND[-OBUS=e] CSSe JUMPt.l * 
):. REPEAT 1 - UAITSFIX 
-REPEAT UAITSFIX ! 

DtCONST 201 R0T[R1 ALU[D8.Q1 COND [ -0BUS=8 1 C558 JUtPIPIERRl * 
;LOOP HERE FOREVER IF WE O^tRFLOWED 4-BIT CNT FIELD 
];[ 

DCCONST 201 ROTCRl ALUCD8,0) CONO C -OBUS=0 1 CS50 JUrPCPIERR) $ 
;LOOP HERE FOREVER IF HE OVERFLQUED 4-eiT CNT FIELD 
). REPEAT WAITSFIX 

DCMEMl DESTCDSlAME.-S Q) NORM $ 

:PUT BACK WORD OF RQ COUNTS. 
DCCONST 171 ROTCRl ALUCC&Ql CS50 

CONOC-DaiS=0! JLIMPCPIINTGO) S ;JUnP IF OJH COUNT fEQ 
DCARl ROTIia.l ALUCNOTDl DESTCQl NORM JUMPCPILlll S 
jMASK for CLEARING THE WAITING RQ BIT. 
PIINTGO;DCCONST 01 ALUCNOTDl DESTCQl NORM % 

;CX3N'T CLEAR THE BIT. RQ'S STILL WAITING 
PILll: DCD*AME?151 ALUCD&Ol DESTCQl NORM $ 

:GET STATUS B. EITtCR CO CR DO NOT CLEAR RQ BIT 
DIARl ALUCDORQ) DESTCDSiAnEnS) NORM i 

;Set IN PRCXKESS bit. store Status B. 
DCPC -FLAGS) DESTCQ AR) CG0e $ 

;Get PC into Q. AR. 
DCCONST 11 R0TC35. - 51 ALUC-D£Q1 DEST I PC -FLAGS 1 NORM * 

;Clear User Mode. 
DCCONST 561 DESTCQl SPECCCLR-MAP-SRl NORM t 
;PreparG to calc. intrpt. address- 
;Make sure we don't fetch user trap locations}! 
DCMA) ROTil) ALUCQ-Dl DESTCHA) NORM JUMPCPIMtAJOl $ 
iFetch intrpt. instr and go interpret it. 
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FtlNNF 



83 ease 

93 8331 
63 0332 
03 0333 
83 8334 
83 e33S 
03 0336 
03 0337 
03 8338 
e3ne33S 
e3nie333 
03D0333 
83 8339 
03 0340 
03 0341 
83 8342 
83 8343 
03 0344 
03 8345 
03 8346 
83 8347 
83 0348 
83 8349 
83 8358 
83 8351 
83 8352 
03 8353 
03 0354 
03 8355 
83 036G 
83 8357 
83 8358 
03 8359 
83 8368 
83 8361 
83 8362 
83 8363 
83 8364 
83 8365 
83 0366 
83 8367 
83 8368 
03 0363 
83 8370 
83 8371 
83 8372 
83 8373 
83 8374 
83 8375 
83 8376 
83 8377 
03 0377 
83 837S 
03 0379 
03 0388 
83 8381 
83 0382 
03 0382 
83 8383 
03 0384 
83 0384 
03 0385 
83 8386 
83 8387 
831)8388 
83n83ea 

e3i>03e8 

031110388 
03ii>838e 
03m0388 
03iae388 
e3»8388 
83010388 
831118388 

e3m8388 
83018388 

e3ii>e3ee 
esnesee 
e3>t>83a8 
e3i>e38e 
e3>e3ee 

03 0388 
03 0389 
83 8369 
83 8338 
03 8398 
83 8391 
83 8392 
03 0333 
03 0394 
03 0^5 



10161 010241170040860554168+6365431417800 



18162 01873108280080001415162025421456800 

101E3 0107301 70000060554161E236523141B000 

18154 81060117808006854440318365571415008 

18155 01873017080006055401762365571416000 

10166 71151117000020257400762225431456000 

10167 01073108680008000716162825221456000 
18178 018730170000060S520176Z364731416000 
10171 81864180000080001416152825261456000 

18172 81073017000006055416162365431416000 

18173 01054100000020325416162026221455000 

10175 81873817800086055280362365571416800 

18176 81860017000006055415158366331415000 

18177 81064100000020403202162025551456000 
10280 81873117000806055416114365471516008 
18201 01073017800006855415152366271415080 
18282 81863117800000000456112825431456000 

10283 81024117004606055416845365431417000 



18284 81 07301 7080606055416152366631 41E0M 
10205 01073100200000801480762025131456000 

10286 01073180600000000775162826131456800 
19287 91363817888880^1434138825571455888 

10210 01065017000000081484130025571456800 

10211 01073117800006854815822356511417808 

10212 81873120000020247401752226261456000 



10213 81073017000006055415152366271415000 
18214 81065117000020263415112025431456000 



TVR/Oct80 



to miN 



PIGEN: .-ENTER WITH CHN IN flR TO REQUEST INTRPT. 

flLUt0] CESTtDEV-ADRI CLRHJEU-FROM-INTR WKM S 
.REPEAT 1 - llfl!T5 ! 

DifiRl CS50 CGND[tBUS=0j JLtPimlMl * 
);. REPEAT 1 - imiTS 

.REPEAT UAIT5 [ ;If some device does this, i uant to knoN! ! TVR/OctB0 
D[AR] C550 Ct»»[OaE=e] JUtPtPIERR] t 

.'Should never do thisf To proceed.- 
];E ;If some device does this, i want to l<noM! ! 

D[f«] C550 a»lDIOeuS=0] JUrPtPIERR] « 

; Should never do this! To proceed. 
). REPEAT WAITS 

DIDSjAriErM] DESTtQ] NORM $ 

DICONST 1] ROT! 18. 1 ALU[D+0] OEST [ D««1En4 ] NDRtI t 

DECONST 71 DESTtQ) NORM S 

r?-Dfi is amt to shift by for mask bit. 
D[AR1 (1ASKL31 flLU[Q-0] CESKMA] HOBK PUSHJ[PIGETnAa<] S 
;Load ROTR. forfu mask in fiR. 
PIKNl: D[IKArEt14] R0Tt34) C550 aWO(-CIBUS<0] JUtfCPIGENWT) S 
;BRA«:H if PI SYS NOT ON. 
DCHASK 71 R0T[R1 DE5T[Q1 NORtI $ 

iMftSK OF CHN AND ALL HIGHER 0«S. 
DlD^CtHErS] ALUtO&Q] C5S0 COND[-aBUS=01 JUf1P[PIGENUT] $ 

;BRftNCH IF THIS OR HIGfCR O* IN PROGRESS. 
D[f«I DESTIQl NORn S .-HOVE UNARY CHN » TO 0. 
D[DtArEn4) ALUtKQl CS58 CDKD[-OBUS=ei JLWIPIINTGOl $ 
; IF CHN ON. GO TAKE INTRPT. 
PIGENWT: ; INTRPT CANNOT HAPPEN NOW. SO SET A tWITING RQ. 

DinAl RuTi2j DESTiROTRj NORtI S 

;GET SHIFT AMT 4 TlfES LARGER, TO GET CNT FIELD 
DICONST 11 RQTIR) DESTCOl NORM $ 

;A ONE ALIGNED WITH RQ CNT FIELD FOR THIS CHN. 
D[D«AMEI16] ALUtD+Ql DESTtQ HOLD! NORM » 
; INCREMENT DU? WAITING RQ COUNT. 
DtCONST 10] RQTtRl ALUtDiOl C0ND[-CHUS=8] C558 JUMPt. + 2] » 

;Da,Ni'T LET COLWT GET HIGHER THAN 7. 
DCMEMl DESTtDiAMEMGl NORM S 

;PUT BACK WORD OF RQ COUNTS. 
DtD»VIErl51 DESTtQ] NOW S 

;GET STATUS B. 
DIARl R0TI18.] ALUttMRQ] DESTfOSAMEMSl NORM JL»*'!MAIN] * 
;Set WAITING RQ bit. 

PI-DISMISS: 

CLR-DEV-FROM-INTR ALUt0) DEST t OEU-ADR 1 NORM t 
.REPEAT FZAROy t 

DID^AIEna + APR-MODE 1 DESTtQ] $ 

;Get copy of current OKide bits- 
DtAPRSTS] MflSKt3] COND[OBUS=01 JlTPCPIDSMll $ 

; Jump if no PI channel. We don't Mant to enable 
arithmetic 

; micro- interrupts in thai case. 
DtAPRSTSl ROTtSl.] CCMKSIGNCFF] JWIPtPIDSMU $ 
; J IF NO OV INT ENSL 

; «■« [)on't both enables need to be checked??? 
DtCONST 201 ALUtDORQl DESTtQ C DSiAMEMe + f«?-nDDe )1 JUnPIPIDSM21 

; Turn on ar i thB»et i c interrupts. 
PIDSMl: DtCONST 201 ALUI-DiQl KSTtQ ( D3;AMEn8 + APR-HODE )] JUMP£PT0Sn2! 
t 

: Turn off arithmetic interrupts 
PIDSn2: DtDSATEfie + APR-MODE] ROTtCPU-MQOE-ROTl DEST I CPU-fBDE ] LONG % 

;t3utput new node bits. 
1;I 

DtDtAMEfW + APR-nOOEl DESTIQl % 

;Get copy of current mode bits. 
DtAPRSTSl MASKtSl COtC 1 0805=0 1 JUMPtPIDSMll S 

; JuBip if no PI channel. We don't want to enable 
ar i thmet i c 

; micro- interrupts in that case. 
DtAPRSTSl R0TI31.] CCWDtSIGNOFFl JUMPIPIDSMll $ 
; J IF NO OV INT EtSL 

; ««» Don't both enables need to be checked??? 
D[COr«T 281 ALUlDORQj DESTlG C D3y^^ER0 + HpR-riOOE 11 jLiTPCPI0Sn2J 
$ 

; Turn on arithmetic interrupts. 
PIDSMl: DtCONST 201 ALUt-DMl DESTtQ C D*AMEn8 + ?«?-«££ )] JUnP[PIDSH2I 
* 

; Turn off arithmetic interrupts 
PIDSn2: DtD*AfEM8 + APR-MODEl ROT t CPU-MODE -ROT] KSTI CPU-MODE) LONG $ 

;Output neu mode bits. 
]. REPEAT F2AR0V 

DtDXATEHS) MASKI7) DESTtftR] C5S0 COND[-O8US=0] PUSHJ[PI-GET-CHN) 
$ 

;t>et bit corresponding to hiahest chan. in progress into the 
AR. 

DtD»ftMEM5] DESTtQ) NORM $ 

DIAR) ALUt-D&Q] DESTtDtAMEMS) NORM JUMPCPI-CHECK-RQS) * 
;Clear highest chan. in progress, go chei^ pending PI RQs 
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94 9396 
94 9397 
94 0396 
94 0399 
94 0499 
94 0401 
94 0402 
94 0493 
94 6464 
94 0405 
94 9486 
04 0407 
04 0498 
04 0409 
04 0410 
94 0411 
04 0412 
94 0413 
041110414 
04fn0414 
04i»0414 
041110414 
04 0414 
04 0415 
94 0415 
04 0417 
04 0418 
04 0419 
94 9420 
94 0421 
94 0422 
04 0423 
94 9424 
94 9425 
94 942S 
04 0427 
94 0428 
04 0429 
04 9430 
0+ 9431 
04 0432 
04 9433 
04 0434 
04 9435 
04iii943G 
04 1119436 
04 0436 
04 9437 
04 0438 
04 9433 
04 0440 
04 0441 
04 0442 
04 0443 
04110444 
04B0444 
04»0444 
04 0444 
04 0445 
94 0446 
04 0447 
04 0448 
04 0443 
94 0450 
94 0451 
04 0452 
04 0453 
04 0454 
94 0455 
94 0456 
94 0457 
04 0458 
94 0453 
94 0460 
94 0461 
04 0462 
04 0463 
04 0464 



10215 8197313790009Se554917S23S567141S0wiJ 

10216 01624117004006955415045355431417966 

10217 01073017000605055416162366231415000 
10220 01073100600606000535162025661456066 

16221 01063617000066954366362365571416000 

16222 ei673i006ee0se00esiSiS282SSSi455ece 

10223 010650170000650543503E23G5571416008 

16224 01073160600000000476162025661456000 

10225 01065017060696054400362365571416000 



1022G 01073057000606055415162366131416060 
18227 01665157606666054260304365571416060 



10230 01073102008000000135162225561456000 

10231 1 873 1 02200000000255 1 6262566 1 456000 

10232 6x063817006666054160362X5571415008 

10233 61673162206000800236162025661456066 
16234 61655817606666854160362X5571416066 
16Z35 61673162200000000176162625661456000 

10236 01063017060006055415162365431416000 

10237 01873162206600060215162025661456000 

10240 01065617000006055416162365431416000 

10241 01023117000005055416116365431416000 

10242 01073102200620262156162025661456000 

10243 01171017000006055401752365431416000 



10244 01064017000006055401762365431416000 



19245 91152190000000001401762025411455000 

10246 91073137000620247401752225431456000 

10247 81873117000620357416162825431456060 



10250 01873137000000001411362025571456660 



16251 01073017000060611404562367031416000 
10252 01873137000000013402162367031416000 



10253 81863037000006054216162365431416060 

10254 01073137006660012442162367031416000 



19255 01063037000006054456162425431416000 



10256 01024117000000011416154365431416606 

16257 01024117000000013416154365431416000 

10260 61024017000000015416154365431416606 

10261 01073117060606655416162425431416000 



PICONO: :Here fro« any CONO PI, 

mmi hfSKi?] DESTiftRi f^sr, s 

ALUioj E3EST I DEv-ADR i u_R~DEV~FRGfl-IwTR nuRK S 

D[PISTS] OESTEQ] NORM S ;GET STATUS fl 

DIMfl) R0T[21.1 C5S8 CONDtK)8US<0) JUMPiPIL?) S 

DIC0N5T 11 RDT[35. - 20.1 ftLUlDORQl 0E5TIQ] NORtI $ 
; TURN ON PAR ERR INTRPT ENB. 
PIL7: Di'Rfil E0T[2a.l CS58 CaMD[-G8U5<ei JLI«P[PIL3; S 

DICaNST 11 R0T[35. - 20.1 flLUI-DiQl DESIEQl NORM S 
;TURN OFF PflR ERR INT EtB 
PIL8: DIMftl R0TI19.1 C550 CC»D[-[»1S<01 JIWIPIL31 S 

DICONST 11 R0TI35. - 19.1 ALUt-D&Ql CCSTIQl KJRn % 
; CLEAR MEM PAR ERR FLAG 
.REPEAT WAITS [ 

DIAPRSTSl DESTCALUl Ql $ 

DtCO^ET 1) R0T[35. - 24.1 ALU[ALU1 -MOl DEST [ flPRSTS 1 % 
;And soft ECC error flag 
];I 

DIAPRSTSl DESTCALUl Ql S 

DICONST 1) R0TI3S. - 24.1 ALUIALUi -D£Q1 DESTtflPRSTSl $ 
;And soft ECC error flag 
1. REPEAT WAITS 
PIL9: DIHAl RDTI51 C550 CONOIOBUSISI PUSHJIPI-RESETl $ 

DIMAl R0TI121 C550 COI^II-OBUSISI JUnPIPILSl S 

DICONST 11 R0TI71 ALUIDORQl DESTIQl NOBM S ; PI ON 
PIL3: DtrlAl ROTIlll C5S0 CONDI-OBUSIBI JUnP[PIL41 % 

DICONST 11 R0TI7] ALUI-DMl DESTIQl NORfl $ ; PI OFF 
PIL4: DIMAl R0TI71 C550 CONOI-OBUSIBI JUMPIPILSl $ 

DiARl ALUIDORQl DESTIQ] NORM $ ; CHNS ON 
PIL5: DCHAl ROTI101 C550 CONDI-OaiSlBl JUI1PtPIL61 $ 

DIARl ALUI-D8.Q1 DESTIQl NORM $ ; CHNS OFF 
PIL6: ALUIQl OeSTIPISTSl NtMl S 

DIMAl R0TI6] C550 CONOI-OBUSIBI JUMPtPI-DHECK-RQSl $ 

DIARl MftSKI71 ALUI0-D1 DESTIQl NORM * 

; GENERATED INTRPTS REQUESTED. CHECK TO 
; MAKE SURE ONLY ONE CFW IS SPECIFIED. 

DIARl MASKI71 ALUtD«Ql DESTIQl NQfifl S 

DIARl MftSKI71 ALUID-Q] C600 
.REPEAT 1 - WAITSFIX I 

ccwoi-oaB=0] jurpi.i s .-hang here if more than one. 

j^.REr^nT 1 - UrilTS^IX 

.repeat UAITSFIX [ 

C[»Ci[-O8US=0] JUTPIPIERRl $ ;L0S£ IF rtKE THAN Oft. 
1;I 

C0NDt-0BUS=8] JUnPtPIERRl * ;LOSE IF MORE THAN ONE. 
1. REPEAT WAITSFIX 

DIARl MASKI71 DESTIARl NORM PUSHJIPI-GET-CHNl $ 

;G£T BINARY C^«. NUMBER f*IO UNARY MASK. 
NORM JLTPtPIEENll » ;G0 GENERATE REQUEST. 

.REPEAT WAITSFIX I 

PIERR: DICONST 451 DESTIARl JUTPIHLTLXl $ 

;PI s/ste« is screwed up. 
l;t 
PIERR: DICONST 451 DESTIARl JUMPIHLTLXl $ 

;PI systefli is screMcd up. 
1. REPEAT WAITSFIX 

PIC0NISU9: 

DIAMEM-A8S 41 HftSKI18. 1 DESTIQl NORM * 

;GET SYS ON AND CHJ ON BITS. 
DIAMEM-ABS 51 MASKI161 DESTIARl NORM $ 

;GET PI IN PRX BITS 
DIARl R0TE161 ALUIDCKQl DESTIAR 01 NORM $ 
DIAOEM-ABS 51 R0TI18.1 MASKUei DESTIARl NORM S 

;G£T WAITING RQ BITS. AND RETURN IN LEFT HALF. 
DI(«1 ROTUB.l ALUIDORQl DESTIAR Ql NORM POPJ $ 

PI -RESET: 

ALUiei OESTIAMEM-ABS 41 NORM $ 
ALUI61 DESTIAMEM-ABS 51 NORM $ 
ALUI61 DESTIAMEM-ABS 6 Ql NORM % 
NORM POPJ % 



END-OF-PI-CODE: 
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01 9060 

01 9061 - insert F+PttP 
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gi 9001 njnriENT i yflLiD eeeai psges 

01 0062 C ''EC PflGE DESCRIPTION 

01 0003 ceeeei eeeei 

81 9004 ceeeez eeeez notes: 

01 0005 ceeeet eeees 

01 000G ceeee? eeee+ 

01 0007 ceeeiz eeees 

01 0008 ceeeiG eeeee 

ei eees ceeezi eeee? 

01 0010 ceeezs eeees 

eJ 0011 ce0029 eeees 

01 0012 C00031 80010 

01 0013 C00034 00011 

01 0014 C00037 00012 

01 0015 C00043 00013 

01 0016 C00e45 00014 

01 0017 C8804B 00015 

01 0018 C00050 0001S 

01 0019 C00053 00017 

01 0020 C088S5 08018 

01 0021 C00eSl 00819 

01 0022 C000S4 00020 

01 0023 C00e69 00021 

01 0024 Ca0074 00022 

01 0025 C00081 00023 

01 0026 C000SS 00024 

01 0027 C00090 00025 

01 0028 C00037 00026 

01 0023 C00099 00027 

01 0030 C0Bie3 00028 

01 0031 C00105 00029 

01 0032 C00118 00030 

01 0033 C00120 00031 

01 8034 C00123 eNOHK 

81 0035 C!; 
01 8036 
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02 9837 

92 eesB 

82 8933 
82 8848 
92 9841 
82 9942 
82 9843 
82 9844 
S2 ee4S 
82 8846 
82 9647 
82 9948 
82 9849 
82 9859 
82 9851 
82 8652 
82 8653 
92 8654 
92 8955 
92 8658 
82 8657 
82 8658 
92 9659 
82 6966 
92 8666 
82 8661 
82 9862 
82 8663 



NOTES: 

PHYS PRH: »'S in 71 and 72 STILL RESTRICTED TO 28 SIT PHTS flOR SPftCE. 

HJST JUfBLE 71 ftM5 72 LP TD YIELD BIGGER PfCE n'S (14 BITS LONG) 



COnttNT * 

PERTlfiNENT DOCUflENTftTION (MfllNTfilN IT PLEASE): 

How code works with respect to state savins and restorina: 



Get trap. 

Save cither short or Ions 



state inaediatel>' as appropriate. 



Analyze situation: 

If just AR refill - do it and restore state fro* anie» and resume. 

If need isacro trap - store anen state in oem (long or short) 

continue lon9 or short nen state save 

take macro trap. 

bfien TENEX macro paaing code wants to resume it does a BLKI. 

Lona or short anen block is restored from mem. 

Any state in mem not contained in aaem is restore directly to machine 

state. 
Start over again just as if trap had just taken. 
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83 aes4 

as 80E5 

ea 9666 
ea 99E7 

ea d968 

03 eeea 

03 8070 
03 8071 
83 8872 
83 0073 
83 8074 
03 0075 
03 0076 
03 0077 
03 0078 
03 0079 
83 0060 
03 0081 
03 0082 
03 0063 
03 0084 
03 0085 
03 0086 
03 0087 
03 0088 
03 8083 
83 0030 
03 0031 
03 0032 
03 0033 
03 0094 
03 0095 
03 0036 
03 0037 
03 0038 
03 0039 
03 0100 
03 0101 
03 0102 
03 0103 

03 0104 

83 0105 
03 0106 
03 0107 
03 9108 
03 0103 
03 0110 



RESET 

\ ,' 
"MA 



RUNNING UNmPPCO 
18 Bit Absolute Addressing 



MERGE: e MflP: off 

CONO 6.7 



— /\— 
/ \ 



CONO 4,5 






RUmiNG MAPPED 
18 Bit Virtual Addressing 

MERGE: MAP: on CTXT: context 
/\ 

/ \ 



-/\ 

/ \ 



MflP TRAP BLKI 24, [Execute instr. [Resuae trapped code 
(MAPTRP) (MACUTP) in loc. 701 via POPJ or IDISP) 



Save 


Restore 


Save 


Restore 


state 


AMEM 


ATEM 


state 


in 


fro« 


in 


fro« 


AMEM 


MEMORY 


MEMORY 


AMEM 


(MAPNTR) KMAPNTR) (MACTRP) 


(MAPUTP) 


\ / 


\ / 






*-4-,-\' /*-•- 


^^^^^^\ 1 /. 






PROCESSING MAP TRfPS 


LOADING MAP 


23 Bit 


Absolute 


Addressing 


18 Bit ftckdressing of Hap 



(LOAOAR) \ 



MERGE: -1 MAP: off 

CTXT: irrelevant 



MERGE: MAP: off 

CTXT: context 
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of — F-UMf 



04 0111 
04 0112 
04 0113 
04 0114 
04 011S 
04 0116 
04 0117 
04 0118 
94 0119 
04 0120 
04 0121 
04 0121 
04 012Z 
04 0123 
04 0123 
04 0124 
04 0124 
04 912S 
04 0125 
04 012S 
04 012E 
04 0127 
04 0127 
04 0128 
04 0128 
04 0129 
04 0129 
04 0130 
04 0130 
04 0131 
04 0131 
04 0132 
04 0132 
04 0133 
04 0133 
04 0134 
04 0134 
04 013S 
04 0135 
04 0136 
04 0136 
04 013? 
04 0137 
04 0138 
04 0138 
04 0139 
04 0133 
04 0140 
04 0140 
04 0141 
04 0141 
04 0142 
04 0142 
04 0143 
04 0143 
04 0144 
04 0144 
04 0145 
04 0145 
04 314S 
04 0146 
04 0147 
04 0147 
04 0148 
04 0148 
04 0149 
04 0149 
04 0150 
04 0150 
04 0151 
04 0151 
04 0152 
04 0152 
04 0153 
04 0153 
04 0154 
04 0154 
04 0155 
04 0155 
04 0156 
04 0157 
04 0157 
04 0158 
04 0159 



LONG STATE a_OC<! 

ABS-fliTEri STflTE INDEX SYMBOLS STATt0i « 00, STATE0Z - 01 ETC. 

07 L = LC 

07 n = MEM BUS FLIP FLOP (HB/HOLD SELECT) 

07 A = mP-USER-SR ACTiyE 



4!5 
NOX 



00 



04 



05 



06 



07 
!A 



10 



12 



15 



16 



17 



4!5 



!0 


1 


2!3!4!5!E!7!8 


3 





1 


!2!3 


4!S!S!7!a!9 





1!2 


3!4 


5!E 


7 


8 


3 





1!2 


3! 


le 





0! 










MB-STATUS 






















! IR 


! Mfl 


! ALUe Q 


! AR 
















Hao 


* 


















A 














riB 






















n 




AflEM-P 








CPUmOE! 




DEV-AOR ! 










MAPSR 


E 

n 




LOOP-CTR 










! 






















ft 




PC-FLAGS 










! 








PC 














£ 

n 




JMEM-P 
































! s<Jf1EM-P>+8 ! 


! •<jnEn-p>+i ! 


! s<jnEri-P>+2 ! 


! «<jnEI1-P>+3 ! 


! •<jrEn-p>+4 ! 


!0! 


1 


2!3!4i5!B!7!a 


3 





1 


2!3 


4!5!6!7iB!3 





1!2 


3!4 


5!E 


7 


8 


9 





1!2 


3! 
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85 8168 
es eiBl 
85 eisz 
85 8163 
85 eib't 
85 8165 
85 8166 
85 8167 
85 8168 
85 6168 
85 8169 
85 8178 
85 8178 
85 8171 
85 8171 
85 8172 
85 8172 
85 8173 
85 8173 
85 8174 
85 8174 
05 8175 
85 8175 
85 8176 
05 8176 
05 0177 
05 8177 
85 8178 
85 8178 

05 01 C3 

05 0173 
05 0180 
05 0180 
85 0181 
05 0181 
05 0182 
05 0182 
05 0183 
05 0184 
05 0184 
85 8186 
05 01BE 
85 8187 
85 8188 
05 8183 
05 8183 
85 8198 
05 0131 
05 0131 
05 0132 
05 8132 
05 0133 
85 8133 
05 0134 
85 0134 
85 0135 
85 0135 
05 0136 
Bb 013^ 
05 0137 
85 8198 
05 8193 
05 8208 
05 8201 
05 8202 
05 8203 
05 8204 
05 0205 
05 8286 
05 8207 
05 8286 
05 8209 
05 0210 
05 0211 
iS 82iZ 
05 8213 
05 0214 
05 0215 



SHCKT STftTE BLOCK: 

aeS-aiEfl STSTE IHBEX symbols STftlEBl = 88, STfiTE82 = 81 ETC. 
03 fl = MfiP-USER-SR ftCTIVE 



riEn 

4!5! 
NOX 



01 



0Z 



03 



85 



4!5! 



!l!2!3!4!S!BI7!S!9!0!l!2!3!4!5!6!7!a!S!0!l!2!3!4!5!E!7!8!3!8!l!2!3! 



1 8 8! 






tlB-STfiTUS 






t 


















IR 






1^ 












1 






m 






n 












E 




! 


cpunuuEi 




! nfiP5R 


H 












_ 














PC- 


1 i_r«jo 


1 1 


nipc 




n 












E 






PC 






M 













8il!2!3!4!S!6!7iBi9!8!l!2!3!4!5!6!7!8!3!0!l!2!3!4!Si6!7!8!9!8!l!2!3! 



mCIC PAGER MAIN MEMORY LOCATIONS: 

!0!l!2!3i4!5!6!7!8!3!8!l!2!3!4!5!6!7!B!3!e!l!2!3!4!5!5!7!B!9!8!l!2!3! 
4!5! 



71 


I 


! LMT 


PHYS USER PT PAGt » 


AC8ASE ! ! PHYS PS8 PAGE 


72 

« 


! 


AGE REG 


! 


! PHYS STATE PG 


! 












IB 


ii2:3i4i5i6 


7JBi3ieilJ2i3!4i5JBi7 


Si3:0;iiZJ3i4isi5i7Jiji3!e!ii<:Jd! 



4!5! 



30 « AR REFILLS 

31 • COfO 8'S 



33 • COha 3'S 

34 » CONO I'S 



MAGIC PSa LOCATIONS: 

567 INDEX INTO PSB TO READ STATE BLOCK PTR 

571 TRAP STATUS WORD 

572 UWUStD (USED TO HuUj STORE DATA) 

573 HOLDS PC FROM INTRUPT MACRO INSTR IN 78 
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of — F+lWf 



06 8216 
06 0217 
06 0218 
06 0213 
06 0220 
06 0221 
06 0221 
06 0222 
06 0223 
06 022+ 
06 0225 
06 0226 
06 0227 
06 0228 
06 022B 
06 0229 
06 0230 
06 0230 
06 0231 
06 0231 
06 0232 
06 0232 
06 0233 
06 0233 
06 0234 
06 0234 
06 0235 
06 0236 
06 0236 
06 0237 
06 0237 
06 0238 
06 0238 
06 0233 
06 0233 
06 0240 
06 0240 
06 0241 
06 0241 
06 0242 
06 0Z4Z 
06 0243 
06 0243 
06 0244 
06 0244 
06 8245 
06 0245 
06 0246 
06 0246 
06 0247 
06 0247 
06 0248 
06 0248 
ee 0249 
06 0243 
06 0250 
06 02Se 
06 0251 
06 02bl 
06 0252 
08 0252 
06 0253 
06 0253 
06 0254 
06 0254 
06 0255 
06 0255 
06 0256 
06 0256 
06 0257 
06 0257 
06 0258 
06 0258 
06 0253 
06 S253 
06 0260 
06 0260 
06 0261 
06 0261 
06 0262 
06 0262 
06 0263 
06 0264 
06 02G4 
06 0265 
06 0266 



?1AP Of^ USAGE: 

02 R = MAP RESIDIENT rONTIOR IPflGE 1) 

02 F = RESIDENT flONITDR (PAGE 1) IS CURRENTLY UNTIflPPED tFCRCED 
1:1 rWP) 

13 R = XCT ftCCESS REQUIRED 
13 M = READ ACCESS REQUIRED 
13 X = WRITE ACCESS REQUIRED 



nEt1!0!l!2!3i4!5!6;7!8i3!0!li2!3!4!5!S!7!a!9!0!l!2!3!4!5!B!7!8!3!0!l!2!3! 

4!5! 

NOX 



01 



02 



04 



05 



12 



13 



15 



IS 



17 



INTERRUPT DISPATCH (UNUSED) 


AGE REG 


! ACBASE ADR tl-RUH OTH PT ENTRY FDR WAITS) 


R!F! 


flCR LIMIT (SMALLEST ILLEGAL VIRTUAL «») 


USER PH&E TABLE PHYS ADR 


PSB PHYS ADR 


STATE/AC PAGE PHYS ADR 









!R!U!X! ! FAILING tW 



SCRATCH 



1ST EXEC SWAPPED VIRTUAL AOR 



EXEC-CTXT COPY 



USER-CTXT COPY 



!0!l!2!3!4;5!E!7!a!3!0ll!2!3!4l5!E!7!S!9[e!l!2!3!4!5!S!7!8>S!0!l!2!3! 



4!5! 
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of 



MIWF 



e? 02S7 
87 8268 
07 82E9 
87 8278 
87 0271 
07 0272 
07 0273 
07 0274 
07 8275 
07 0276 
07 0277 
07 0278 
07 0279 
07 0290 
07 0281 
07 0281 
87 0282 
07 02iB3 
07 0284 
07 0285 
07 028G 
07 8287 
87 8288 
87 0289 
07 0289 
07 0298 
07 0290 
07 0291 
07 0292 
©7 0233 
07 0294 
07 0295 
07 0296 
07 0296 
07 0297 
07 0298 
07 0298 
07 0299 
87 8380 
07 0301 
87 8302 
87 8303 
87 0304 
07 0304 
07 0305 
07 0306 
07 0307 
07 0307 
07 0308 
07 0388 
07 0309 
07 0309 
67 8310 
07 8311 
07 8311 
87 8312 
87 831Z 
07 0313 
87 8314 
07 0315 
07 0316 
07 0317 
07 0318 
07 0319 
07 8320 
07 0320 
07 0321 
07 8322 
87 8323 
07 0324 
87 8324 
87 0325 
87 0326 
07 0327 

at a37a 



Neu. iDiproved. Final (for a uhile) SPECIftL FB STATUS BITS: 
INSTR FETCH ^> 1S7I1B24 

BIT HEANING 



84 nop Parity Error 

85 HAP Tag Failure 

86 Illesal Access 

67 nenory cycle occurred during a uinst. uhich did NOT have HI ICfl UAIT 
on. Uill be off only if OF/UT or DF/IF started operation causing 
trap. 
88 rteaory cycle Has started by a DFRQ. 

09 ERROR ! ! A Mr ite uas started before the last Read data Mas used ! > 

10 HARD ECC 

11 ANY ECC 
12:17 ECC SYNDROME 

18 (nAPF[02] of a DF cycle) Unused. Use of this bit presents a problea 
i^ien 

untrapping to a DtMEfl] cycle froa ECC. since ue aay then get a 
MAPTRP 

froa the saae uinst.. in k#iich case this bit uill be urong. 



13 (nArfi 



uF cycle) unused. See coament for bit IS. 



20 (MAPFIlOl of the aborted (trapped) cycle) 

On a DF trap, aeans a R-H-U is intended - trap aay be froa write 
prot. 

21 (riAPF[04! of the aborted (trapped) cycle) 

On any MAP trap, neans resuae execution by re-fetching instr (as 
in IF) 
22:23 (HAPF[02:011 of the aborted (trwjped) cycle) 
Decoded: 
00 noraal 
81 Call this guy's special fix-up cade via 

TRUE LBPOPJ « ;...he uill return to MAP-RET uith the 
stack containing the proper place to resuae execution 
later. 

10 failing addr. is in IR1B:35, and NOT in riA. 

11 failing addr. is in AR18:3S. and NOT in MA. 

24 Means trap uas froa the cycle follouing a Principle Idisp. Therefore, 
the 

losing reference was either the fetch of the current instruction. 



afte 



IDISP 



or the data fetch of a DF/UT or OF/IF during the first uinst. 



the dispatch that entered the current instruction. 
If on. only short state need be saved: ue uill resuae with an 



cither after re-fetch I ng the instr. or (if the fetch is a DF and 

bit 21 is off) using the contents of the IR. 
25 Last tii&aory operation started uas a Data Store. 

SUMMARY: CYCLE-TYPE ^ If (25 & -24) Then WRITE 

Else If (08 & (-87 Or -24)) Then DATA-FETCH 
Else IIETRUCT ION-FETCH 

On fetches. ECC and MAP traps occur during (and abort !) the cycle 
contain ing 

the DtrEM! (for data fetches) or the cycle follouing the IDISP (for 
instruction fetches). 

On stores. MAP traps occur during the cycle ItCN THE STORE IS HAPPENING. 



;END OF HUGE DOCUMENTATION COmENT 
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ee eaza 
ee 6330 

es 6331 
08 6332 
88 6333 
08 0334 
68 0335 
08 033E 
ee 0336 

ee 0337 

6en033e 

eei>0338 

081110338 
08n033e 
08 0338 
08 0333 
68 0340 
08 0341 
08 0342 
68 0343 
06 0344 
68 0345 
68 634E 
08 0347 
08 0348 
08 0349 
08 0350 
08 6351 
68 035Z 
Se S3S3 
08 6354 
08 6355 
68 0356 
08 0357 
08 6358 
08 6359 
08 6360 
68 6361 
68 036Z 
08 03G3 
00 6364 
68 6365 
08 0366 
08 0367 
08 0368 
ee 6369 
08 6369 

ee 8370 

85 0371 
08 6372 
ee 0373 
68 0374 

88 9375 

aa 6376 

08 0377 
38 0378 
68 0379 
88 8380 
ee 6381 

ee 6381 
ae 0382 

68 8383 
08 6384 
08 0385 
08 0386 
08 0387 
08 0388 
ee 0389 
08 0390 
ee 0391 
08 0392 
08 0333 
08 8394 
ee 8395 
88 8396 
88 0397 
08 0397 
08 0398 

86 0399 
68 0400 
08 0401 
08 0402 
68 0463 
08 0404 
08 0405 
08 6406 
08 0407 
08 0488 
08 0409 
ee 6409 

ee 0410 

68 0411 
08 0411 
08 0412 
08 0413 
08 0414 
68 0414 
08 0415 
06 0416 



FGR = 24 



;nfiP PftRAfETERS 

;TnE WCRO PfGER DEVICE » 

.REPEAT MfllTS [ 
GRUNTSU > 
pase 



GRIMTSU ^c 8 



571 
572 
573 



43 
44 
45 

52 
S3 

54 
55 
56 
57 



21 
25 
36 
37 



260 



ZEl 
2E2 
263 
264 
255 
266 
267 
270 
271 

11 



48 



fUHlTS aluays 
page 



];[ 
Dorts instruction after 



;UftITS always aborts instruction after 
.•faults. 

;faults. 



]. REPEAT WAITS 

;nAGIC EXEC SPACE MAIN MEfl LOCS 

.REPEAT 1 - WAITS [ 

N-flR-REFIUS - 30 
N-CONO-e « 31 
EDOT-LIKES-THIS = 32 
N-CONO-3 = 33 
N-CONO-1 - 34 



;» AR REFILLS 
;« CONO e'S 
;IXWT TOUCH 
:« CCNO 3'S 
:» COM) rs 



78 


PGR78 = 70 


71 


PGR71 = 71 


72 


PGR72 ' 72 


3000 


tvee = 3000 


4000 


CST0 - 4000 


2800ft 


SPT X 29000 



];REPEAT 1 - WAITS 

.•CONTAINS INTERRUPT INSTRUCTION 
;C0nTftIfi3 iPJ f PSo. AConS. ADR LlnlT 
;CaNTAINS AGE. STATE/AC PAGE 



.•BASE OF mftP 
;8ASE OF CST8 
;BASE OF SPT 



;(1AGIC PS8 LXS 

.REPEAT GRUNTSU I 
PS8567 = 567 

];. REPEAT GRUNTSW 



-•INDEX INTO PSB TO REfO STATE BLOCK PTR 



PSBS71 = 571 
PSeS72 - 572 
PSBS73 » 573 



;TRAP STATUS WORD 

(UNUSED (USED TO HOLD STORE DATA) 

.•HOLDS PC FRCn INTRUPT MACRO INSTR IN 78 



.•Local CMAPOEV) AMErt assisnsents: 



AGE /ACS = D*Af1Eni 
FCS/LMT = D^AflEflZ 
UPTAOR = DiAHEna 
PSBADR = D*ArEri4 
STAAOR = DtAflEnS 

SAyE-flAP-SR = DtAfEM12 

CYTYPE = OSAMEflia ;c>.cle-ti.p6 code in left half, 

right 
ATEMP =: D»AMEM14 :Ecratch 

SUPHON = D%AflEni5 ;First non-forced exec address 

XCTXT = OtArtnie ;Exec mde context 

XTXT = D*AnEH17 ;Us«r aode context 



;Global (flAPOEU) AHEH sssisnaents: 



rlAP-AGE/ACB = (tlAPOEU 
mP-STAADR = CriAPOEV 
HAP-XCTXT . (mPOEU » 
MAP-XTXT = (MAPOEW ■ 



STATE80 = CSTATEDEV « 26) +0 



20) 


♦ (AGE/ACB 


- 48) 


28) 


+ (STAAOR 


- 40) 


28) * (XCTXT - 


40) 


28) + (UCTXT - 


48) 



STATE01 = ( 

STATEeZ = ( 

STATEea = ( 

STATE04 - ( 

STATE05 = ( 

STftTE0S = ( 

STATEe7 = ( 

STATE10 = C 

STATEU = ( 



STATEDEV 
STATEDEU 
STATEDEV 
STATEDEU 
STATEDEU 
STATEDEU 
STATEXU 
STATEDEV 
STATEDEU 



20) 
28) 
28) 
28) 
20) 
28) 
28) 
20) 
20) 



1 
2 
3 

4 
5 

6 

7 
10 



J STATE AfEM BLOCK (ALWAYS ACCESSED VIA AMErt-ffiS) 

;INT DISPATCH. DON'T TOXH (REALLY 
UNUSED) 

SAME FOR LONG AND SHORT STATES 



DIFFERENT FOR LONG AND SHORT STATES 
NOT USED FOR SHORT STATE 



AMEnSTATESIZE = STATEll - STATE01 + 1 :SI2E OF STATE BLXK IHEN IN AflEM 



nriEMSTATESIZE = 32. 



:SIEE OF STATE BLOCK WHEN IN fWIN 



HEM 



sPOWER OF 2 FOR NOW 



5 JfEMSIZE = 5. 



;« JflEH STACK LXS SAVED IN STATE 
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eg 0+17 

99 0418 
03 0413 
09 0420 
83 8421 
09i»e422 
03 0422 
09 0423 
09 0424 
09 042S 
03 0426 
09 0427 
09 0428 
03 0423 
0900430 
03190430 
09m0430 
09 0431 
03m0432 
09m043Z 
09 0432 
03 0433 
09 0434 
09 0435 
03 0436 
09 0437 
09 0438 
09 0439 
09 0440 
83 8441 
09 0442 
03 0443 
09 0444 
09 0445 
09 0446 
09 0447 
03 0448 
09 0449 
09 0450 
09 0451 
03 0452 



07604 01073117004090001400246625561457000 
07505 01073117804080081488246025561457000 



10262 01073112400000061416162025431455000 

10263 81073100600000000236162025761456000 



102G4 01073017000006054320762365775416000 



10265 010B013700000000000016236553541S000 
10268 01073117000000080816000725411456000 



10267 0107311700000000141B16202S43S4S6000 

10270 01073117000008001416162025435456000 

10271 01073117000000001415162025435456000 

10272 01073117000000001415162025435456000 

10273 01073117000008001415152025435456000 

10274 01073117000000001415152025435456000 

10275 81073117000800001415152025435455080 
10275 01073117000000001416152025435455000 



. opcode [ 702 3 C x I i st 
list ];nflP IF DEVICE PGR (UftJSED IF 20) 

CLR-DEV-FROn-INTR 

DiCONST MAPOEVl DEST [ DEv-ADR 1 JUftPidAPiaTl T400 $ 
CLR-Cev-FROn-INTR 

DCCONST riAPDEV} i5£ST [ DEV-fiOR J JLil1F[flAFI0T) T488 S 



-reloc 
[.USE[HILIX] 
I xlist 



list 
tIftPIOT: 
[ 
]$ 



WIDTD: 



1 

UIOTRPtrUXI] 
CONDtUSERl JUMPinULH) 



NORM 



DtlRl RQT[9. 1 CDNOtSIGNOFF] JLWldAIN] C558 $ 

;BIT 89 MUST BE ON OR ELSE NOP FOR OEU 28 

OtIRl R0T[13.1 l1flSK[31 DESTIQ] TNRTl S 
;GET BITS 10:12 

DCLPlBEL nPIOTD] ALUtD+Ql DESTIiWl TNRH $ 

D[f«] ROTtrtUA-ROT] ODISP LD^E * 

;DISPfiTCH an INSTRUCTION TYPE 



jurpimPBKU TNRH $ 

JUnP[f1AP0TIJ TNRH % 

JUtlPCMftPBKOI TNRfl $ 

jmPtmPDTQ) TNRfl S 

JUMP[r«PCNQl TNRTl » 

JL)MP[MfiPCNI) TNRM t 

JLWIflfiPCSZ] JNRf\ t 

JUrPIMftPCSOl TNRH $ 



BLKI RESUrt FROtI TRflP 

DflTftI REftD EXEC MflP UD 

9LK0 SET 1ST SUflPPING PG 

DATflO SET EXEC Mrt» UO 

CONQ CONTROL PAGER 

CON I UNUSED 

C0NS2 READ USER MAP UO 

CONGO SET USER MAP UD 
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rnnnF 



le 8453 

le 0't54 

18 8455 
18 8455 
18 8456 
18 8457 
18 8458 
18 8459 
18 8468 
18 04S1 
18 8461 
18 8462 
18 8463 
18 8464 
18 8455 
18 8466 
18 845? 
18 8468 
18 8469 
18 8470 
18 8471 
18 8472 
18 8473 
18 8474 
18 0475 
18 8476 
18 0477 
18 0478 
18 0479 
18 0480 
10 0481 
10in048Z 
10O.048Z 
10i>8482 
10 0482 
10 0483 
18 8484 
18 8485 
10 8486 
18 8487 
18 8488 

18 8498 
18 8491 
18 8492 
18 0493 
18 8494 
18 8495 
18 0496 
10 0497 
18 8498 
18 8499 
18 8500 
18 8581 
10 0501 
10 0502 
18 0583 
10 0504 
18 0505 
10 0506 
10 0507 
10 0506 
18 0589 



10277 01073017000609000740^2825575455000 



10300 01024017000006055416162365435416000 

10301 01073137800006055416162364631416000 

10302 01023117000006055416842365421417000 



10303 81877117000606055000256365551417000 



10304 540731 17000e«0SS415042325420417000 



10305 0107^17000630000740362825575456000 



10306 01024017000006055416152365435416000 

10307 0107313700000605541S152364631416000 

10310 0102311700000S0SS41B042365421417000 

10311 81072117000006055400000365551417000 



18312 81877317090006055416000374211416000 

18313 81873317090006955415092374151415000 

18314 540731 1 70800060554 1 S0423254204 1 7009 



sCONSO LCM3S THE PW-TfC tF THE MflP lO MAPPI!C USER EFFECTIWE flOR OF 
ISSTR. 
;UITH OWTENTS OF fiC 0, fWP-fW Fi?Qri flC 1 

MftPCSO: DtCONST 11 R0Tt35. - 51 OESTEQl TNRM JUtPirifiPDlO] $ 
;SET USER nOOE AND JUMP TO LOW HAP Ltt. 

jDflTAO LtMDS THE MfiP-TAG OF THE mP MD MAPPING EXEC EFFECTIVE eOR OF 
INSTR. 
;WITH CONTENTS OF flC 0. MAP-MA FROM AC 1 
;THIS REPLACES 891 CONO 2. CSORT OF) 



HAPOTO: ALU[01 DESKOl TNRM S 
MAPOIO: D[PC-FLAGS] DEST[AR1 T300 t 
«.U[Q1 [)EST[ PC -FLAGS 1 T400 % 

.REPEAT 1 - WAITS [ 

OtAC01 ALUtNOTAl DESTEMAP-TAG] LONG $ 

;LOAO MA'S MAP-TAG WITH AC0 BITS 03:26 
DIACll ALU[A1 DEST[Q1 t 

DICONST 3) ROTtaS. - 11.1 ALU[D«Q1 DEST(MAP-MA) LONG % 
;LOAD MA'S MAP-MA WITH ACl BITS 03:26 
jComplement the Read and Write access bits. 
1:. REPEAT 1 - WAITS 

.REPEAT WAITS t 

DICONST U RDT135. - 3.1 ALUINDTDJ DESTCHAP-TAGl LONG % 
;Invalidate this entry 
];[ 
D[CONST 11 R0T135. - 3.1 ALU[N0TD1 DEST[rWP-TAGl LONG $ 
; Invalidate this entry 
1. REPEAT WAITS 

DIARI DESTi PC-FLAGS 1 NEOI $ 



;STDRE MAP-TAG FOR MAP WORD MAPPING USER EFFECTIVE ADR OF INSTRUCTION 
;INTO AC 0, MAF-MA INTO AC 1 



MAPCS2: DtCONST 11 RCT[3S. - 51 D£ST[Q1 TNRM JWIPIMAPDIll $ 
:S£T USER FOR SURE AND JUMP TO READ MAP-TAG 



:STORE MAP-TAG FOR MAP WCRO MAPPING EXEC EFFECTIVE ADR OF INSTRUCTION 
;INTO AC 0, MAP-HA INTO AC 1 ' ' 

MAPOTI: ALU181 DESTllDl TW^M » 
rWPDIl: D[PC-FLAGS] DEST[AR1 T300 S 

ALU[Q1 DEST[ PC-FLAGS I T400 $ 

ALu[-iJ DtSTiEOeUS-wJLLl LONG S 
;Wait for EXEC to settle, charge up MC's Local Eobus to all I's. 

D[MAP-TAG1 ALUCNOTDl DESTEB AC01 LOHC $ 

;Read MA's MAP-TAG Cgreatly manslsd) into AC0. 

DEMAP-MAl ALUIDl DeST[8 ACll LONG « 
;R£AO MA'S MAP-MA INTO ACl 

DtARl DEST[ PC-FLAGS] NEOI S 
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of 



11 0510 

11 0511 

11 8512 

11 0513 

11 051+ 

11 0515 

11 0516 

11 0517 

li QSi7 

11 0518 

11 0519 

11 0520 

11 0520 

11 0521 

11 0522 

11 0523 

11 052+ 

11 0525 

11 0526 

U 0527 

11 0528 

11 0529 

11 0530 

11 0531 

11 0532 

il 0533 

U 053+ 

11 0535 

11 0536 

11 0537 

11 0538 

11 0539 

11 05+0 

11 05+1 

11 05+2 

11 05+3 

11 05++ 

11 05+5 

11 05+S 

11 05+7 

11 05+8 



10315 01073117000e00Ml+0+S3222SS7S+56000 



1031S 0102+117000090061+1513+225+31458000 



18317 5+073117000006055+161E232S+20+16000 



10320 5+073117000006055+16162325+20+16000 



10321 01073100+00600000656162025761+56000 

10322 01073100+00000000636162025761+5E000 

10323 01073017000006055+00762365775+16000 

1032+ 01060137000000000000152365535+16000 
10325 01073117000000000016000725+11+56000 



1032S 01073117000000001+16162025+35+56000 
10327 01073117080000001+16162025+35+55000 
10330 01073117000000001 + 1616Z02S+3S+56000 



11 0b+3 

11 0550 

11 0551 

11 0552 

11 0553 

11 055+ 

11 0555 



10331 8i87;jli700060000i + i5i6Z0^b+35+5S0w 

10332 01073117060000001+16162025+35+56000 

10333 01073117060000001 + 16152025+35+56060 
1033+ 01073117066000001 + 16162025+35+56000 
10335 01873117000000001 + 1616Z8ZS+35+56060 



;SET FIf5ST SUftPPISG ACS OF KSilTCK 
:FSar, EFFECTI'JE SDR DF INSTR. 

HAPBKO: DiHfll mSK(18. 1 CESTID^fiflEniS] PUSHJCFORCEM] TNRH $ 

;Get 1st a(i- of suappable nonitor in 0%Plt1EM15, and set 
; up the map to force 1:1 mapping for pages 
8,2:<E*RflEf115-l> 

ALUt01 DEST[0*AM£H161 PUSHJ [ EXECLR 1 * 

;Reset context and sweep all non-forced exec nap wdSf 
; guaranteeing only proper aap wds have comparator 
disabled. 

NEOI $ 



;tiflp zati 

nflPCNI: ILGIOT $ 

;CONI NOT YET DEFINED 

stlAP CONO 

rWPOJO: D[IR] R0TI26. ] C550 SIGICM JUnPCtlAPACBl t 

;If 1080 bit is on, reload flC PTR only. 
DtIR] RQTt25. ] C550 SIGNDN JUWCMflPfiGEl $ 

;If 2000 bit is on, reload AGE only. 
DdRl rWSK[3] 0EST[01 TNRTI » 

;GET INDEX INTO BBNCNO IN 
DtLABEL BBNCNOl ALUCD+Ql DESTIARl THRU $ 
DCAR) ROT[MUfH?OT] OOISP LONG S 

;niPC MUST BE 00:13 

;TREAT AS NORMAL CONO IF NOT SPECIAL CASE 



;BBN DEFINED CONCS FOR PAGER 

B8NCN0: JUrP[MAPCO01 JURn $ 
JLriP[MAPCQU TNRM » 
JUMP[ITRAP1 TNRM $ 
JunFinHrCuSl TNRn » 
jmP[MAPCO+] TNRM » 
JUMPCMAPCCEl TM?f1 S 
JUnP[HAPCDG] TNRM » 
JUnP[MAPC071 TNRM $ 



CONO - RESET PAGER PARAMETERS 
CONO 1 - aEAR ALL EXEC MAP UDS 
CONO Z - ILLEGAL, REPLACED BY DATAO 
CurjG 3 - n Fi^R ALL USER nAP m^ 
CONO + - TURN PGR OFF 
CONO 5 - SAME AS CONO + 
CONO 6 - PGR ON, DON'T HAP EXEC PAGE 1 
CONO 7 - PGR ON, MAP EXEC PAGE 1 
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1033G 91873137060006055401362365775+16808 
18337 81873017177600080000162365535415800 

18340 81064017800006855416162366075415008 

18341 01863117008006854116102355434415000 
10342 540731170000068S541616232S42S416080 



10343 01873137000036055402362365775416800 

18344 81073017000806055406762366075416000 
19345 81863117000086954676102365434416000 

18345 54973117099006055416162325425416800 



10347 01973117000080001415162225431456000 
10350 01073117001306855416162365431416800 



18351 71073117008096955416362365575416900 

18352 0307313788008G05S402762365475316000 

19353 918731178000860542361103G5435415009 

19354 91073137909086054442752365475516000 

19355 01973117009006054236106365435416000 



12 0555 

12 0557 

12 9553 

12 8553 

12 0560 

12 0561 

12 0562 

12 0563 

12 9564 

12 0565 

12 0566 

12 0567 

12 056B 

12 0569 

12 0579 

12 0571 

12 0572 

12 0573 

12 0574 

12 9575 

12 0576 

12 9577 

12 0578 

12 0579 

12 0560 

12 0581 

12 0582 

12 0583 

12 0584 

12 0585 

12 0586 

12 0587 

12 0588 

12 0583 

12 0530 

12 0531 

12 0532 

12 0533 

12 0594 

12 0595 

12 0536 

12 8597 

12 0598 

12 0599 

12 0600 

12 0691 

12 9692 

12 9603 

12 9604 

12 0S0S 

12 0606 

12 0607 

12 0606 

12 0609 

12 0810 

12 9619 

12 0611 

12 0612 

12 0613 

12 0614 

12 0615 

12 0616 

12 8617 

12 0618 

12 8619 

12 9619 

12 0620 

12 0621 

12 0622 

12 0623 

12 9624 

12 06ZS 

12 0626 

12 0627 

i^ 062B 

12 9629 

12 8630 

12 0631 

12 0632 

12 0632 

12 0633 

12 0634 

IZ 0635 

12 9636 

12 0637 

12 0638 

12 9639 

12 9640 

12 0641 

12 9642 

12 0643 

12 0643 

12 0644 

12 0645 

12 0646 

12 0647 

12 9648 

12 0649 

IZ 0650 

12 0651 

12 0652 

12 8653 

12 0654 

12 0655 

12*0656 

12i>e656 

12i»8656 

12b8656 10365 71873117800006055416152366175415000 

1Z°!S6SS 

12B0656 10366 71073117000006055416562365575216008 



jCONO 1030 !X 

;RELOaO THE flC BflSt REG. FROO LOW 5 BITS Of E 

(lAPACB: D(IR1 mSKESl DESTCARl TNRM % 

D[M_IT 7770«I0000081 DESTCQl TNRM * 

;W1SK TO RETAIN OGE 
C[D*fiflEMll flLUtC&Q] DE5TIQ1 TNRfl S 

;GET POSITIONED AND ISOLflTED AGE IN Q 
IFRQ D[AR1 RaT[41 ALULCORQl CEST[D»AMEM1 ] TNRM 

; ENTER AGEIACBASE IN AMEM 
EQI t 



;CONO 2090IX 

:RELO«l THE AGE REG. FRCBI LOU 9 BITS OF E 

HAPAGE: D[IR] MASK[9. ! DE5T[AR] TNRM $ 

:GET AGE FROM IR INTO AR 
DCCftAMEMl] HASIC[27. ] DESTCQ] TNRM S 

;GET ALL OF MAP DtAMEMl EXCEPT FOR AGE 
IFRQ D[AR1 R0TC27. ] ALU[DQRQ1 OeST[D«»1EMl] TNRM $ 

;ENTER AGEIPREyiOUS CONTENTS 

; START INSTR FETCH 
EOI * 



riflPCOO: PUSHJ[rEnAOR-23BIT-fleS] S 
SPEC [ MAP-DISABLE) % 

.REPEAT 1 - WAITS I 

D[ CONST N-CONO-0] DESTIMA] IfSn % 

;LOAO HA WITH MAGIC LX. DISABLE MAP 
DF/WT DtMEMl ALUtD+11 DEST[MEMSTO] S 

;BmP « MAP RESETS VIA COND 

];. REPEAT 1 - WAITS 

DtCONST PGR711 D£ST[MA1 TNRM $ 

;LOAD MA WITH PGR71 

; FETCH MAGIC LX 
DF/WT DrMEtl) mSKtll.l DESTCAR] TNRM * 

;DATA AT fEM, MASK OFF PS8 PHYS AOR 
DCtt?] R0T[9.1 DESTIDiAMEm] TNRM % 

.-STORE PS8 AOR IN D«ftMEM4 
DtMEMl ROTIia. 1 MASKdi.] DESTCARJ TNRM t 

.-MASK OFF PHYS UPT AOR 
DIAR! R0T[9.] DEST [ D*AMEM3 ] THW S 

;STOR£ UPT ACR IN DtflMEJQ 



-REPEAT 1 
table 



WAITS [ 



;WAITS sets DtAMEMl with first page in user pa3e 



10356 01171120200000000160762025451556000 



10357 81073137000006055400762365435416000 
10360 01073137098000000356162825435456800 



10361 01 0731 37000006054344 16236SS7S4 16000 

10362 01073017140000000000162365535416000 

10363 01064017000006055416162366135416000 

10364 01063117000806055416104365435416000 



C6e0 $ 



D[MEM3 ROT[23.3 MfSKCS] XSTEARl TNRM S 

;MftSK OFF AC BASE AOR (SHIFTED DOUN 4) 
DEAR] RQTE4! OESTEDSAMEMl 1 TNRM S 

;STORE AC BASE AOR IN 0»inEMl SANS AGE 

];. REPEAT 1 - WAITS 
DIMEMl R0TE71 nASK[31 ALUE0-O1 OESTEARl CONDEZERO) JUnPEMAPCOBl 

;GET (CCaS LIMIT, J IF AR/ 
DEAR] MASKE31 DESTEARl TNRM $ 
DEAR) RDT[14.1 DESTEAR] JUMPEMfiPCX] TNRM $ 

; FORM SMALLEST ILLEGAL ADDRESS IN AR 



MAPC08: DECONST 28] ROTEU.l DESTEARl TNRM S 

;FULL 256K (NO ACR LIMIT!) 
MAPCX: DENLIT 6008008000081 DESTEQl TNRM $ 

jPSEPAkE mask DF nAPOHEiaCTQl BITS 
DED*AMEM21 ftUED&Ql DESTEQl TNRM S 

;GET JUST THOSE BITS FROM D«rEnZ 
0(I«1 ALUEDORQl DEST E D%AMEM2 1 TNRM « 

;ENTER ENTIRE THING BACK INTO OtATtrE (REALLY JUST RESET 
ADR LMT) 

-REPEAT 1 - WAITS E 

DECONST PGR7Z1 DESTEMAl TfRM S 

;LOfCI HA FOR ACER! STATE PG 
DF/WT DEMEfll DESTEQl TNRM $ 

;GET ACER! STATE PG IN 

1;. REPEAT 1 - WAITS 

.repeat WAITS E .'Setup user pase table and use first page as address of 
PCs. 

DED»AnEH31 DESTEMAl TtRM $ 

;LDAD MA FOR FETCH OF FIRST LOCATION OF USER PAGE TABLE 
DFRQ DECONST PGR721 DESTEMAl TNRM % 

; START FETCH OF UPT 1ST W 

;LOAD HA FOR FETCH OF ACER 'STATE PAGE 
DFRQ DEMEMl MA5KE27.1 DESTEDtAMEMll TM?n $ 

;SAVE 1ST ENTRY OF USER PAGE TABLE IN DtAMEHl SANS AGE 

; START FETCH OF PGR72 
DEHEMl DESTEQl TWRH $ 

;G£T AGER! STATE PAGE IM 



l!E 
address of ACs 



;Setup user page table and use first page as 



DED*AftI131 DESTtHAl TNRM t 

;LDAD ?1A FE5? FETCH DF FIRST LOCATIDK OF USER PAGE TAa_E 
DFRQ DECONST PGR72] DESTEMAl TNRM S 
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12neG5e 
12m0S56 

izneese 

12 0656 

12 0GS7 

12 e658 

12 9653 

12 esse 
12 essi 

12 6662 
12 6663 
12 0664 
12 0665 
12 0666 
12 0667 
12 0668 
12 0688 
12 0670 
12 0671 
12 0672 
12 0673 
12 0674 
12 0675 
12 0676 
12 0677 
12 0678 
12 0679 
12i>068e 
12Ba68e 

i2i>a68e 

12 0680 
12 0681 
12 0682 
12 0683 
12 0684 
12 0685 
12 0685 
12 0S86 
12 8687 
12 0688 



10370 61673017000606055416152365475515000 



10371 61064017177660000060162365535416000 

10372 ei6S3i370eeseG0S54e57B2^se7S4iseee 

10373 01073117000006055416102365435416000 

10374 01073137060006055402762365475516000 

10375 01073017000066054236162365435416600 

10376 01063117000000000141112225575456008 



10377 01073100200000001000362225775456000 



10400 0167311700120G0S5416162365435416080 

10401 61673117000000601416162025431456000 



DIMEMl DESTIO) T^RI1 S 

:GET AffiR! STATE PAGE IN Q 



J. repeat HfilTS 



DtNLIT 777000086606) ftLUCDSQ] DEST[Q] TNRtI S 

;GET JUST ISOLfiTED AND POSITIOgED AGE IN Q 

DiDsanEfiij KASK(27.; alu[DCRQJ destiar; tmsi s 

;GET AGERIPREyiQUS CONTENTS IN PR 
DtARl DEST[[a«Eni! TNRtI » 

;LPDATE AMEtl WITH AGEIACBASE 
DCMEM] fIftSKIll.l DESTtARl TNRM t 

;Pa9e for storing state (and AG's). 
DtfiRl ROTES. J DESTCQl TNRtI $ 

;t1ake into an address- 
DtCONST 41 R0TI5.) ALUIOORQ] DEST I ttSAMEHS 1 PUSHJIUSfiCLR) TNRtI $ 

;Enter state/ac phys base ad- in AMEH. 

;IfWALIDATE USER AR'S 

-REPEAT 1 - WAITS t 

PUSHJIEXECLRl TNRH $ 

; INVALIDATE EXEC AR"S 
];. REPEAT 1 - WAITS 

.REPEAT WAITS [ ;CONO PAG. 10 does not invalidate EXEC AR"s for WAITS 
DIIR3 R0Tt3S. - 31 t1ASK[ll CDND[CBUS=01 PUSHJIEXECLR) TNRtI S 

];[ ;CONO PAG, 10 does not invalidate EXEC AR's for 

WAITS 

DtIR) R0TI35. - 31 f*«K[ll CC»D[CHJS=01 PUSHJIEXECLR] THRU * 
]. REPEAT WAITS 

HAP-ENA8LE TNRM « 

JUtFItlAIN] * 

:UNDQ MAP-OISABLE AT START OF THIKES 

.-DCES NOT NECESSARILY TURN MAP ON CCPU-ftDE<81S> fWY BE 
OFF) 

.-FINIS OF COND 
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13 0683 

13 0630 

13 0531 

13 0532 

13 0S33 

13 0694 

13 0G9S 

13 0636 

13 8657 

13 0636 

13 0639 

13 0706 

13i»0701 

13>0701 

13100701 10402 01073117000000001415152225435456000 

13m0701 

13O0701 

13 0701 

13 0702 

13 0703 

13 0704 

13 0795 

13 0706 

13 0707 

13 0708 

13 0709 

13 0710 

13 0711 

13 0712 

13 0713 

13 0714 

13 0715 

13 0715 10403 01073117000000001416162025431456000 

13 0717 

13 071B 

13 0719 

13 0720 

13 6721 

13 6722 

13 0723 

13 0724 

13 @7ZS 

13 6726 

13 6727 

13 6728 

13 6729 

13 6730 

13»0731 

13«0731 

13010731 16404 61073117000000061415152225435456600 

13<i0731 

13^731 

13 0731 

13 0732 

13 0733 

13 0734 

13 0735 

13 0736 

13 0737 

13 0738 

13 0739 

13 0740 

13 0741 

13 0742 

13 6743 

13 6744 

13 6745 

13 0746 

13 0747 10405 01073117000000001415152025431456000 

13 0748 

13 0743 

13 6758 

13 6751 



;H£HE FDR CGNO 1 
riAPCOl: 
.REPEAT WAITS I 



PUSHJCEXECLR] TNRH * 

;aEfiR EXEC ftfiS 



1;[ 



PUSHJCEXEaRl TMRfl $ 

saEflR EXEC ARS 



]. REPEAT kWITS 



.REPEAT 1 - UftlTS [ 

PUSHJ[rEf1A0R-238IT-l«Sl $ 

SPEC[I1APH3ISABLE1 $ 

D[CCINST N-CONO-ll DESTtnftl TNRM S 

;LDftO MA WITH MAGIC LOC. DISABLE MAP 
DF/WT DCMEM) ALU[D+11 DESTIMEMSTOJ PUSHJ I EXECLR 1 * 
saw « CONO I'S 
;CLEAR USER ARS 
MAP-ENABLE TNRM $ 

J;. REPEAT 1 - UftlTS 

JlflPlnAIN] S 

; ENABLE HAP 
;FINIS CDNO 1 



;tCRE FOR CQfC 3 

MAPC03: 

.REPEAT UfllTS [ 

PUSHJCLSRCLR] TNRM % 

: CLEAR USER ARS AS APPROPRIATE 

];[ 

PUSHJCUSRCLRl TNRM » 

; CLEAR USER ARS AS APPROPRIATE 

). REPEAT WAITS 

.REPEAT 1 - WAITS t 

PUSHJIMEMA0R-238IT-ABS) « 

SPECLMAP-DISABLEl t 

DiCONST N-CONO-3] OeSTlflAj TNRM S 

;LQAD MA WITH MAGIC LOC, DISABLE MAP 

DF/WT D[HEM1 ALU[D+1] DESTtMEfETO] PUSHJCUSRCLRl $ 
;BLrP » CONO 3'S 
;CLEAR EXEC ARS AS APPROPRIATE 
j»»» ttt User AR's??? 



MAP-ENABLE TNRM t 



];. REPEAT 1 - WAITS 



JUMPCMAINl $ 

; ENABLE MAP 
;FINIS CONO 3 
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of 



mmf 



14 07S2 
14 0753 
H 07S4 
14 37SS 
14 07SE 
14 0757 
14 07S8 
14 0753 
14 0758 
14 0751 
14 0752 
14 0753 
14 0764 
14 0765 
14 07S6 
14 0767 
14 0768 
14 0763 
14 0770 
14 0771 
14 0772 
14 0773 
14 0774 
14 0775 
14 0776 
14 0777 
14 0778 
14 0773 
14 0780 
14 0781 
14 078Z 
14 0783 
14 0784 
14 0785 
14 0786 
14 0787 
14 0788 
14 0789 
14 0790 
14 0791 
14 0792 
14 0793 
14 0794 
14 0795 
14 0796 
14 0797 
14 0796 
14 0799 
14 0800 
14 0801 
14 0802 
14 0803 
14 0304 
14 0805 
14 0806 
14 0807 
14 0808 
14 0809 
i4 0810 
14 0811 
14 0812 
14 0813 
14 0814 



;TLRN OFF MAP 



10406 010731 170013060554161S236543141E000 

10407 010730170013000314151E236703S41S000 

10410 0106513700000000140036202557S45E000 



10411 01073117000021015416152225435456000 

10412 54073117000006055416162325420416000 

10413 71073117000000000200152365535416000 

10414 01077117000000000000056365511417000 

10415 01073117000060000200054365511417000 

10415 01077017140000000000162365535416000 
10417 0106401700000G05541S152366135416000 

10420 01053117040000000000104365535416000 

10421 01073017000000031416162357035416000 

10422 01063137000000001400362225575456000 

10423 01073117000000001416152025431456000 

10424 01073100600000000036162025121456000 

10425 71073117000000000200162365536415000 

10426 01077117010000000080056365511417000 

10430 61064017000006055416162360135415066 

10431 01063117100000000000104355535415000 

10432 01073017000000031415162357035416000 
10453 0i0651370000080014003622255754550©0 
10434 54073117000006055416162325420415000 



riflPOFF; 



MAP-DISABLE $ 

SPEC [MAP-DISABLE] DEAMEM-ABS APR-MODE] DESTtQl TNRfl $ 

;Get current cpu status. 
DICUNST 11 W-UI-DgQl KSTIAR! JUMPISETmXie] TNRM * 

:Turn off bit and return. 



;HERE FOR CDND 4 OR 5 



nAPC04: 

HAPC05: PUSHJIMAPOFF] TNRM t 

;SirPLY TURN OFF HAP 
KEOI $ 



;fCRE FDR CCWO 6 



nAPC06: DtLIT 1000] DESTCHA] TM?n $ 

; Ready for pase 1. 
DtLIT 000600000000] ALUCNOTD] DESTtnAP-TAG) LONG » 

;Di sable comparator bit for page 1. 
DtLIT 300001000] OESTtMAP-m] LONG « 

;A^D ph/s pase adr of 1 (aappins 1:1) 

; uith full access (PREVENT bits off) 
DtNLIT 6000000000002_ALU[NOTD] DESTIQlTNRtl $ 

;mSK OF HAPuNE AND DNETOi FLAGS 
DtD*AfEn21 ALUID&Q] DESTtQ] T^R^ $ 

;GET AHEtC WITHOUT THOSE FLAGS 
DtLIT 200000000M0] ALUtDORQl DEST I DtAHEHZ ] TWai t 

;CLEAR MAPOff AND SET ONETOl FLAG 
DtAMEH-ABS APR-MODE] DESTtQ] TNRM $ 

;GET BITS, DO SPEC ENABLE 
DtCONST 11 ALUtDORQ) DESTiARl PUSHJtSETHGDEl TNRM i 

;Turn on MAP ON bit 
JUnPtMAINl $ 

;Return to Macro-code. 

;ftRE FDR CONO 7 

MAPC07: DtO*AnEH2] ROTtl] CONDtSIGNOFFI JUTPtMAPCl?) [350 * 

;JUnP IF ONETOl FLAG IS OFF 
DtLIT 1000] DESTtMA] TNRtl > 

; READY FOR PAGE 1 
DtLIT 040000000000] ALUtNOTD] DESTtHAP-TAG] LONG « 

jCLOBBER map UO ASSOCIATED UITH PAGE 1 

; (ENABLE COMPARATOR AND GIVE GARBAGE CONTEXT OF 8) 
nAPC17: DtNLIT 500M0000000] ALUtNOTDl DESTtQ] TNRM t 

;MASK OF MAPONE AND ONETOl FLAGS 
DtD%Ar£ri2] ALUti^Q] DESTtQ] TFKtl S 

;GET AnEM2 WITHOUT THOSE FLAGS 
DtNLIT 400000000000] ALUtDORQl DESTtDiArEMZl TM?M S 

;SET MflPOftE AND CLEAR ONETOl FLAG 
DtAMEM-ABS APR-MOOEl DESTtQ] TNRM $ 

;GET BITS, DO SPEC ENABLE 
DtCaST 11 ALUtDORQl DESTtARl PISKJ i SETfOOE 1 TNRM S 

;TURN ON Mtf> ENABLE BIT 
NEOI » 
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15 6815 

15 eeiE 

15 0817 

15 seie 

15 6813 
15 6826 
15 6821 
15 0822 
15 0623 
15 082+ 
15 6825 
15 6828 
15 6827 
15 6SZ8 
15 6829 
15 6836 
15 6831 
15 0832 
15 0833 
15 0834 
15 0835 
15 0836 
15 0837 
15 0638 
15 0833 
IE 08+e 
15 0841 
15 0642 
15 0842 
15 0843 
15 0844 
15 0845 
15 0846 
15 0846 
15 0847 
15 0848 
15 0643 
15 0850 
15 0651 
15 0652 



10435 0107300020000000141E1E20267G145B080 
10435 SiaS8137eeeeeS8S5480S3E3SSS7S4iS8a8 

10440 01073117000006054416062425435417000 

10441 61073117000005054400262365575417000 

10442 01073117000066055400336365575416000 

10443 01073137000006055416162364631416060 

10444 01073117000006054740242365561417000 

10445 71024117000006055416162365435416060 

10446 010731 1700100G054220200365575417000 

10447 01073007000021120220352025575456000 

10450 01077117010000000000056365511417000 

10451 71060107000021121415162025671456800 

10452 01073117000006055416042425421417000 



;!Nyr=iLIDflTE ALL UXR MAP HORDS 
USER CaMEXTS ftRE 000 
ACCEPTS DEU-AOR/ WlPDEy 

usRaR: D[D^ft^t^l7l destcq] condezero] JunPCUSRCLii C550 » 

;GET COPY OF USER-CTXT IN Q AND JUrt" IF ITS 
CtCOhET 2! ftLU[D<-Ql DESTEffi 05«fE:f117I TNRH S 

.•aJMP OUR COPY OF USER CONTEXT 
DtftR! R0Tt22.1 CONOtSIGNONl JUflPlUSRCLl] C550 » 

.-JUrv IF WRAPPING (USER-CTXT CAN IGMRE FORCE BIT) 
DIARl R0Tt35. - 13.1 DEST I USER-CTXT ) POPJ TNRTl $ 

.-UPDATE USER-CTXT 

.-RETURN. NOTHING TO DO 

USRCLl: DiCONST 11 R0Ti35. - 13.1 XST[ USER-CTXT] TNRTl * 

.-SET USER-CTXT TO LOWEST VALID VALUE 

;USER CONTEXTS ARE CDO 
DCCONST 11 DESTtD*AfEni71 TM?n S 

; UPDATE OUR COPY OF USER-CTXT 
DCPC-FLAGS] DESTEARl T300 $ 
DECONST 1] R0T[35. - 51 DESTt PC-FLAGS] T400 S 

.-SELECT USER ADR SPACE 
fiLU[0] DeSTCml TNRn t 

fSTART AT MA - 
DCCONST 11 RQTI9. + LLOAD-COT] OESTCLLOADl TIRM S 

;512. CONSECUTIVE PAGES => TOUCH EVERY MAP UD (THANK U 

DtCONST 11 ROTCS. 1 OESTiol TNRn LOOPi. + 11 * 

.-BUMP MA BY 1000 EACH TIME THROUGH LOOP 

DILIT 040080000000) ALUtNOTDl DESTCMAP-TAG] LONG t 

;CLEAR A HflP W5 (ENABLE COTPARATOR AM) GARBAGE CCMTEXT OF 



HASHER) 

USRCL2: 
0) 



DtMAl ALUtD-KJ] DEST[HA1 L00P[USRCL21 * 
;LOOP OVER ALL USER MAP UDS 

DtAfil DESTI PC -FLAGS 1 T4ee POPJ » 
;RETURN 



SLOE flarch Z3, 198^ Zl:0e:39 file DSK:F+nAP.SLD 



of -- F41NNF 



IE 8853 
16 085t 
IG 0855 

15 3855 

16 0857 
16 0858 
16 0853 
IG 0860 
16 0661 
16 08GZ 
16 0863 
16 086-t 
16 0865 
16 0865 
16 0866 
16 0867 

15 0867 

16 %68 

15 0869 

16 0870 
IS 0871 
IS 0872 
IS 0873 
IS 0874 
IS 0875 
IS 087S 
IS 087S 
IS 0877 

15 0878 

16 0879 
16 0879 
16 0880 

15 0881 

16 0882 
16 0883 
IS 0884 
IS 0885 
15 0886 

15 0887 

16 0888 
16 0683 

15 8^0 

16 0890 
16 0891 
16 0692 



10453 01873000206606001416152026721456000 

10454 01060137000006055400S343S5575416000 

10455 01073100600000000536152025421455000 

10456 01073117000086055400534365575415000 

10457 71073117000086055416162366675416000 

10460 0107301700000G054SS236236667541S000 

10461 01152117000000000177750365535416000 

10462 01073117001086054016000365475517000 

10453 01073017000000000208162365535415000 

10454 01077117010080000000056365521417000 

10465 7106010700002115141S162025671455000 

10466 01073000600086055416162426121416000 
18467 71873117000000000200162365535415000 

10470 01077117010000000000056365511417000 

10471 01065117040000000000104025531456000 



IWSLIDfiTE aLL EXEC MAP WOHOS fiS APPROPRIftTE 
CLEfiRS PftGE 1 IF IT IS BEING fWPED (riflPC»JE=l) 
Exec contexts are even. 
fiESumes OEKI-mH/ MflPDEU. 

EXECLR: 0[D»«1EI1161 CIE5T[Q1 C0«I[HER01 JUMPlEXgCLl] C550 $ 

;Get copy of EXEC-CTXT in Q ind jai=p if = 9. 
DICONST 2] PlLUID+O] DESTtflR D*finEni6) TNRM $ 
;Bunp software copy of exec context. 
DEAR] ROTI21.3 CONDISIGNOFFl C550 JUMPI5ET-C0NTEXT1 * 

;If not wrapping, go update htijr context registers and 
return. 
EXEai: D[CCNST 21 DESTEOSftrEniSl TNRM $ 

;Set exec ctxt to lowest valid value (exec contexts are 
EVEN). 

D[D*flMEf1151 OESTCrWl TNRTI $ 

;STf*T LOOP AT FIRST SWAPPING ADR 
D[0%AHEf1151 RaTt27. ] mSK[9.1 DESTIQl TNRM $ 

;Q/ 1ST SWAPPING PftGE a 
D[LIT 512. - 1] ALUID-Ql DESTIHQLDl TNRTI S 

; CALCULATE » PAGES TO DO 
DIMEMl ROTILLOAO-RQTl DE5T(LL0A0) TNRM $ 

;511.-D*AflEMlS RES MON CONSECUTIWE PAGES => TOUCH EVERY 
MAP WD 

DILIT 1000) DESTIOl TNRM $ 

;BUrf> MA BY 1800 EACH TIME 
EXEa2! DCLIT 0408000000001 ALUINOTDl DEST t MAP-TAG 1 C550 S 

;CIear a map wd (enable comparator ^id ga'bage context of 
0) 

DIMAl ALUID+Ql DESTIMAl L0QPEEXECL2] » 

;Loop over all EXEC map wds but the resident ones 
DIOtAMEMZl CONDISIGNQFFl OESTtOl POPJ CS50 $ 

;DONE IF NOT MAPPING PAGE 1 
DILIT 18001 ceSTIMAl TNRM $ 

;SET UP FOR PAGE 1 
DILIT 0400000000001 ALUtNOTD) DE5T t MAP-TAG 1 LONG % 
;CLEAR MAP UD ASSOCIATED WITH PAGE 1 
; (ENABLE COMPARATOR AND GARBAGE CONTEXT OF 0) 
D[LIT 200000000000) ALU[-(»Q1 DEST [ O^AMEMZ 1 JUTPl SET-CONTEXT) S 

.T..j-_ -r^ GNETOl fla"# "^ u~-'"t£ h™"-* ccttext 

registers. 
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17 0833 
17 083-* 

17 eess 

1? 0895 
17 0896 
17 0897 
17 0838 
17 0833 
17 090e 
17 0981 
17 0302 
17 0303 
17 0304 
17 0305 
17 0306 
17 0307 
17 0908 
17 0309 
17 0910 
17 0311 
17 0312 
17 0313 
17 0314 
17 0315 
17 091S 
17 0917 
17 091B 
17 0313 
17 0920 
17 0321 
17 0322 
17 0923 
17 0924 



10472 71024117000006055416162^5437416000 

10473 01077117000000000000055365511417000 

10474 01073117000060000000054365511417000 

10475 0107301700000605466236236667S416000 

10476 01161137000006055400762365575416000 

10477 01073117001006054016000365435417000 

10500 71073117000060000400162365535416000 

10501 01073017000000000200162365535416000 

10502 01077117000000000000056365511417000 

10503 01073117000006055416054365651417000 

10504 71060107000021205416162025675456000 
10585 01075117000006055415162425435416000 



;SET UP RESIDENT rtONITtK PAGES 0.2:K«rtEH15-i WITH 1:1 rlflPPING Cf«3 
tIflPPIMG) 
;flCCErTS DEV-fiCR/ MAPDEV 

FORCEM: flLUI01 DESTCriA] SHORT * 

; READY FDR PAGE 

;LET tIAP-USER-SR SETTLE 
DILIT 0000000000001 W.UCN0T01 DESTIMflP-TfiG) LONG S 

; DISABLE CmPARATCR FOR PAGE 
DiLIT 800300000008] 0EST[nAP-f1A] LONG % 

;AND PHYS PAGE ADR CF 8 CHAPPING 1:1) 

:UITH FULL ACCESS (PREVENT BITS OFF) 
DtDiATEMlS] R0T[27.] MftSKO. 1 DESTIQ] TNRM $ 

;GET 1ST SWAPPING PAGE OF HDNITOR 
DCCONST 2 + 1) ALUIQ-D] DESTtAR] TM?t1 $ 
D[AR1 R0T[LL0AD-R0T1 OEST[LLOAO) TtRH S 

iUXt) LDCP-CTR FOR PAGES 2:DWrEni5-l 
D[LIT 300002000] DESTLMA] TNRfl S 

;Init HA to page 2. provide READ and WITE PERMIT bits. 
D[LIT 1000] DEST[Q] TNRM * 

:BUnP MA BY 1000 IN LOOP 
FORCEl: D[LIT 000000000000] ALUINOTD] OEST ( MAP-TAG 1 LONG $ 

;DISflGLE COMPARATOR FOR PAGE 
D[MA] DESTEMAP-MA] LONG $ 

;SET HA TO PHY ADR WITH FULL ACCESS 
D[MA] ALUCD+a] DESTCMA] LOOPtFORCEl) T(«M « 

;LOOP 
PuPJ TNRn $ 

:RETURN 
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IS eszs 

18 0S26 
18 9327 
IS aS28 
18 8928 
18 6323 

18 esse 

18 8331 
le 0332 
18 0333 
18 033+ 
18 0335 
18 033E 
18 0337 
18 0337 
18 0338 
18 0333 
18 03+0 
18 0941 
18 0942 
18 0343 
18 0344 
18 0345 
18 0946 
18 094G 
IB 0347 
18 0948 
18 0949 
18 0950 
18 0950 
18 0951 
18 0952 
18 0953 
18 0954 
18 0955 
18 09SS 
18 095E 
18 0957 
18 0958 
18 0953 
18 0360 
!B 0961 
18 0962 
18 0963 
18 0363 
18 0364 
18 0365 
18 0366 
18 0367 
18 0368 
18 0969 
18 0970 
18 0971 
18 0972 
18 0973 
18 0374 
18 0975 
18 037S 
18 0977 
IB 097B 
18 0978 
IB 0979 
18 0980 
18 0981 
18 0982 
18 0983 
18 0384 
18 0385 
18 0385 
18 0987 
18 0988 
18 0989 
18 0990 
IB 0991 
IB 0992 
18 0993 
18 0394 
IB 0995 
IB 0996 
IB 0397 
IB 0338 
IB 0999 

IB 1000 
IB 1001 

18 1002 
IB 1003 
IB 1004 
IB 1005 
IB 1006 
IB 1007 
18 1008 
IB 1003 
IB 1010 
IB 1010 
IB 1011 
18 1012 
IB 1013 
18 1014 
IB 1014 
IB 1015 
18 101S 
18 1017 
IS 1018 
18 1013 
18 10Z0 



;Here froHt trap location 

;Sava Etats i" ctE» (hopino just for PR REFILL) ard process trap. 

;niPC + 1 is on JriEn stack courtesy of tfie PUSHJLC in the trap location. 



19506 91073117000680543410354364335415000 

10507 610730570006000000001623655^416000 

10510 01066057000606055103562764535415006 

10511 01023140206021223415162025421456060 



10512 01073057060606054620762364321416000 

10513 91066140006600061400562025561456060 



10514 91073117066306055415152365435416000 



10515 91073057066606055415162764521416066 

10516 91063157066600066600200725551456066 



10517 01073057000006055416162764535416000 
10520 01060157060005054006204365575417066 



10521 01072117000066055400072365575417060 

10522 01073117060600553415154365435416000 

10523 01073057000000011066162365535416666 

10524 01064140200606681416162024321456000 

10525 01073017060000543416162367035415000 

10526 01063117000606543060354365575416000 

10527 01673117000006545416154365775415000 
10530 01073117000006547415154365675415006 
18531 01073017000077000000152365535415000 

10532 01064617060006030516152367035416006 

10533 01063817000080550351354361661415306 

10534 01073117004066055400246365561417006 

10535 61923117000000001416124025435456006 

10536 61823117000000551416154365435415006 

10537 01073117000600545416154365775416000 

10540 0197311700060654741615436S67S416006 

10541 01073117062600557416154365475516066 

10542 01073017177700000000026365535415000 
16543 91073117066600555416154365475516060 

10544 01064137060€«360546561623644354160ee 
18545 91073017006077000660152365535416060 

10545 01064017000000030516162367035416060 
10547 01063137000006055415162365431415000 
19550 91073017000000917407762365535416060 
10551 91064017000006054376162364565416000 
19552 919S3ei700©0e055i41SlS43554354i5809 

10553 01073117000006563416154364475416660 

19554 91973117004666055400246365561417060 
1055S 01023117006600061415124025435455000 



rWTRPi 



D[H8-STftTUS) HASK[33. 1 DE5Ttl*EI1-feS 5TATE01] TM?t1 * 

;Save re-STftTUS03:35 (bit 96 used later as a flag) 



;;FoIloMin9 is a bug trap. It should be left in forever- 
DLLftBEL ILLTRPI OeSTIALUl 0! TNRtl t 

;Get illeaal trap loc. in aicrocode 
D[jr£H] R0TC36. - nm-ROTl fWSK[14.1 M-UtflLUl DaQ) OEST[flLUl Q] 
TNRM $ 

ftLUtflLUl Ql CCWD[ZERO] JUHPt.] C550 % 
;Hang if got trap at ILLTRP. 

D[n8-5TflTUS) ROTtl + 24-1 tWS(C(31 DEST[flLUl 01 C550 $ 
DLC0N5T 21 fiLU[flLUl Q«0) C550 -ZERO JUMPCI1APXFX] $ 

;Ju«p if no FIXLP needed (bits 22:24 not == 010). 

ni-l=OP TNRfl $ 

;Flush trap loc. fro« stack to expose loc. of f ixup 
rout ine. 

DCJrEM) DESTtflLUl Ql C500 S 

D[COfST n ROTtMJft-ROTl ALUCftLUl DORQl L0N5 ODISP $ 

;C3ll the loser's fixup routine. It uill PUSHJ to 

; (WP-RET after restoring the flA to the failing address. 

;This keeps the fixup routine acfcr on the stack ! 
;A fix-up routine PUSHJs to here k^ien done# 
; therefore its desired return adr is on stack. 
nflP-RETiDIJMEM] DESTtflLUl Ql Tr«n $ 

D[CttNST n RDTtMLW-ROTl plLUCflLUl Q+01 DeSTUMEM] TNRH $ 

;Compensate for decrementing of return adc^ess by rtftPUTP. 



MAPXFX: ALUC-ll DESTIMERGEl TM?n $ 

;Set up Mapper to allow 23-btt absolute addressing. 
DIflRl DESKflflEH-flSS STflTEe5] TNRfl $ 

iSsve AR (needed below at f1AP90 even in short case) 
D[LIT 0000000440001 DEST[flLUl Ql TNRM $ 

;Mask of bits indicating dispatches for resuming (bits 
21. 24) 

D[n8-STflTUSl ALU[M_U1 D&Ql CDNDCHEROl JUnPimPLtgGl C550 » 

;If all off. do long save. 
rWPSHT: D[flf1En-ftBS 5TATE811 DESTIQl TNRM $ 

;Get saved CTL ! MB-STflTUS 
D[CO^ST 11 R0T[35.1 ALUCDORQl CESTtAttn-ABS STATE61] TNRM $ 

;5a>' short state via B0 of CTL. 
D!IR1 CeSTtAMEn-ABS STATE621 TNRM $ 

;Save IR 
D[nAl DESTIAfEM-ASS STATE031 TNRM $ 

:Save HA 
D!LIT 0803740008^1 DEST[Q] TNRM $ 

;nask for just CPU-MOCt bits 
DtAHEn-ABS APR-nCDE] R0TI29. 1 ALUCCSQ) DeST[Ql THRU * 

;Get just bits 10 thru 15 of CPU-ttCDE in Q. 
D[USER/'INT) R0T[15.) MASKfSl ALUtiXRO! KSTiS ATEII-ftSS STATEB+l 
T400 $ 

;Save CPU-mC€ t MAP-USER-SR and ACTIVE bit... 
Dt CONST flAPDEUl DeST[DEy-AORl CLR-DEU-FROn-INTR C500 $ 

; INSURE mP DEVICE SELECTED 
ALUtQl DESK SAVE -MAP-SKI JUMPtMAPNTRl TNRM $ 

;...and save no nore state. 

HAPLNG: ALU[Q] DeST[AMEM-ABS STATE041 TNRM $ 

;Save Q 
DtlRl DESTCATEM-AGS STATE821 TNRM $ 

;Save IR 
D[MA1 DESTIAMEM-ABS STATE031 TNRM % 

;5ave MA 
SIPPRESS-FETCH-TRAPS DlrEMl OEST [ ATEM-ABS 5TATE671 TNRM % 

;Store ftM (no recursive traps, please). 
SELECT-HOLD D[M_IT 7774000066001 DE5T[Q1 TNRM * 

;Mask for AMEn-P0:9 
D[MEn] D£ST[A.1EM-AeS STATE961 TNRM % 

;Store HOLD 
DIAMEM-Pl R0T(26. - AMEM-P-ROTl ALUtiXQl OESTIARl TNRM » 

:Get 'em positioned in AR 
D[LIT 0003740800001 DESTtQl TNRM $ 

;Mask for just CPU-MODE bits 
DtAMEM-ABS APR-MODEl ROT[20. 1 ALUIDMl DESTIQl TNRM $ 

.-Get just bits 19 thru IS of CPU-MODE in Q. 
D[Afil ALU[DORQ) DESTIARl S 

.-Enter CPU-MOOE bits into result. 
DILIT 000000076637! DESTtQl TNRM t 

;Mask for <DEV-AOR>B25!<MAP-USER-5R>B34 i<ACT!VE>a35 
DCUSER/INTl ROTdS.l ALU[0&Q1 DESTCQl J3S0 * 

;Keep just above masked. 
DliWl ALUEDCFO! DESTtQ AftM-ABS STATEiei ItSn S 

; STORE 
<ArEM-P>B3 ! <LC>B19! <M8FF>81 1 ! <CPU-M00£>B15 ! <UI«JSED>B20 I 

.- <DEV-A0R>B2S ! <SPARE=0>S30 ! <MAP-USER-SR>B34 ! 
; <MAP-USER-SR-ACTIVE>B35 
DILOOP-CTRl DESTtAMEM-ABS STATEUl TM?M % 

;Store LOOP COUNTER somewhere in STATEll (assume it fills 



rd!) 



Dt CONST MAPOEVl DEST[DEV-A0R1 CLR-DEV-FROfl-INTR C500 $ 

; INSURE MAP DEVICE SELECTED 
ALU[01 XSTISAVE-MAP-SRl JUMPIMAPNTRl TNRM S 

:Now enter processing code. 
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13 


1021 


19 


1822 


IS 


1823 


IS 


1824 


IS 


1025 


19 


102E 


IS 


1027 


19 


1028 


IS 


102S 


19 


1030 


19 


1031 


19 


1031 


IS 


1032 


19 


1033 


IS 


1034 


19 


1035 


IS 


1935 


IS 


1037 


IS 


1038 


19 


103S 


19 


1040 


19 


1041 


19 


1042 


19 


1043 


IS 


1044 


19 


1045 


19 


1046 


19 


1047 


19 


1048 


19 


104S 


13 


1050 


IS 


1051 


19 


1052 


19 


1052 


19 


1053 


19 


1054 


19 


1054 


19 


1055 


IS 


1056 


19 


1057 


19 


1058 


1 a 


ISSS 


19 


1060 


19 


1060 


IS 


1061 


IS 


10G2 


19 


1063 


IS 


1064 


19 


1065 


IS 


1066 



1055S 010731370000005434161523678^416000 
10557 01073100600000001416162025421455000 



19560 01073137900000550415162367035416000 
105G1 01073117000000001416152225435456000 

10562 61073117000000545416140367035416000 

10553 01973100200000000500362025411456000 

10564 01073117000000551061040367035417000 

10565 01073137000000543415162367035415000 

10566 0107311700120G0S5416162365435416000 

10567 71072117900306055415145365635416000 

10570 01073100400090909416162025561455000 

10571 01973199490099000536152025421456000 

10572 01073117009006055416150365775415000 

10573 54073117999096945415162325425416000 



10575 01073117000006055416162365431416000 

10576 55973111290907655416152325421215000 



iRestsre state fros ?%?1Ef1 only, resiise Execution sf trapped cciia. 

MflPUTP: DIfttlEn-ftBS STflTE011 DEST[f«] TNRTl S 

D[flR] CONDISIGNOFF] JUMPinflPULGl C550 $ 
;Juiiip if LONG RESTORE 

.■SHORT STATE RESTORE 

;Can only be here if go ins to DISPATCH to untrap rather than CONTINUE 

instr . 
;THI5 WILL CHflNGE i^ien store tr^as cai do a short save ! ! ! 

;Csses: IF (OH IDISP+1), DF/WT ON IDISP+1. CFRQ+1 INSTR HflO M«=F[04], 

tVfJSH: DlfVEM-flBS STfiTE04] R0TI36. - 20.) DESTIARl TNRH S 
PUSHJ[SETI10C€J TM?n $ 

;Restore CPU-MODE 
DtMEfl-(«S STATE02] DESTIIR-flLL) TNRM » 

;Restore IR 
DtfR] ROTt20.) nftSKdl C0NDI2ER0J JUTPCnflPUSll C60e $ 

;Skip loading MflP-USER-SR if was not active. 
DtftttM-ABS STATE64] R0TL35.1 mSK[41 DEST [ MflP-USER-SR 1 TNRtI S 

;RGstore flAP-USER-SR autoaagically naking it active. 
MAPUSl: D[(*EM-ABS STATE01] DESTIAR] TNRM t 

;Get MeSTftTUS in AR. 
MAP-ENflBLE TNRM $ 

;Enable mappins. 
D[PC] flLU[D-l] DEST[PC Mfll MU-POP TNRM $ 

;Back up PC and load MA in case used* discard MIPC 
DICYTYPEI ROTtie.l C550 CDftD[SIGNON] JUnPinAPUTIl $ 

;Consult flags for type of trap cycle. Jump if instr 
fetch. 

DtSRl R0T[21.1 CONOISIGNONl JUMPIMAPUTI] C550 $ 

;It was a DATA FETCH, jump if it waits to fetch instr 
again. 

DIIR) D£ST[HXD] TNRM t 

;Data Fetch, does not want instr. rcfetched 
P-IDISP $ 

jDispatch without instr fetch 
M^^iTT. fv Mfnj.(5i cpcrrri o_MrtD_CDi * 

;Leave teap- luser mode.. D+0 prevents CRY0 from being 
set ! 

CONT $ 

COND[-MA<20] ABORT-ADR-04 ID-CONDCll Mft-NEOI $ 

jFetch instr. and dispatch. 

;Trap to loc 04 if dispatching into AC's. 
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20 10G7 

ze leea 

28 1883 

ze 18/^ 

20 1071 
20 1072 
20 1073 
20 1074 
Ze 1875 
20 107B 
Z0 1077 
Z0 1078 
20 1078 
20 1079 
20 1080 
20 1081 
Z0 1082 
20 1083 
20 1084 
20 1085 
Z0 1086 
20 1087 
20 1088 
20 1083 
Z0 1030 
20 1091 
20 1092 
Z0 1093 
Z0 1033 
20 1094 
20 1095 
20 1096 
20 1097 
Z0 1098 
20 1099 
Z0 1100 
20 1101 
20 1102 
20 1103 
20 1104 
20 1104 
20 1105 
Z0 1186 
Z0 1107 
Z0 1188 
Z0 1103 
Z8 1110 
20 1111 
20 1112 
Z0 1112 
20 1113 
20 1114 
20 1115 
28 UIB 

28 1117 
20 1118 
20 1113 
20 1119 
20 1120 

29 nZ0 
20 llZl 
Z0 llZl 
20 IIZZ 
Z0 11Z3 
Z0 11Z4 
28 1125 
20 IIZB 
Z0 1127 
20 1128 
20 1129 
20 1123 
20 1130 
20 1130 
20 1131 
20 1132 
20 1133 
20 1133 
28 1134 
20 1135 
20 1136 
20 1137 



10577 010731370000005G04151623G703S41S000 
10600 01873117080000001416162225435456000 



10601 01073017800000563415162367035416000 

10602 01060117801006054000200365575417000 



10603 01073137800000561416162367835416000 

10604 01073100200000001400362025411456000 

10605 01073117000000561061040367035417000 
19606 01073117000000560255012367035417000 
10607 01073137000000553415152367035415000 
10610 01873017080000551416162367035416000 

10G11 018731170012060554151B236543S41S000 

10612 710731 1700120G05540456236657S41S000 

10613 01073117004000560641246367035417800 

10614 64073117000000007416166365761416000 

10515 61073117000000545416140367035416000 
10515 01073057000306055416162764535415000 
10517 81161157000206054000284365575417000 

10621 01873100000000000160752025461556000 
10522 010731006000000002761B282546155S000 

10623 01073100400000000636162025461556000 

10624 01073117000000555415150367035416000 

10625 01073057000000547416162367035416000 

10626 71023157000006055416152425435216000 



10627 01073117000000555415156367831416000 
10530 01873117880000557415150367035415000 
10631 01073117000006055416162425431415000 



10632 01873117880000555415156367030415000 

10633 01073117000006055416152425431415000 



:HEHE FCS LONG RESTCRE 

nftPULG: DtWIEfl-fleS STftTE101 R0Tt36. - 28.) OESTffiRl TNRn % 

;CPU-rmDE BITS flLREADY POSITIOED IN STflTE10 
PUSHJtSETflQDEl TNRM S 

; RESTORE CPU-MODE 

:2 INSTR SECf4.K OF FIELD CDSFLICT 
D[WtM-fieS STATElll DESTIQl TNRM S 
DICONST 1] ROTILLOflD-ROT] flLU[D+01 DESTILLOflD] TNRM $ 

;Loop ctr. sets decreinented (by harck^are) durina traps.. 

;RESTORE LOOP-CTR flLREftDY POSITIONED IN STflTEU 
OtMIEM-fflS STflTE101 DEST[flRl T^RM S 
OtflRl MfSKtll COM)[EERQ] JUMPIMflPULl ) C600 $ 

;SKIP LOflDING MflP-USER-SR IF MfiS NOT ACTIVE 
D[f«tM-fl8S STflTEiei R0TI3S.1 MASKI4] DE5T [ MflP-US£R-SR 1 TM?M * 

;RE5TQRE MAP-USER-SR flUTOMfCICftLLY HflKING IT ACTIWE 
MflPULl: DCfmEM-ffiS 5TfiTE10) RQT[10. + ftMEM-P-fiOT] 0£ST[(*EM-P) TNRM % 

;Restore flMEM-P 
DIftMEM-ABS STftTE0S] DESTtflfi] TNRM * 

;Restore PR 
D[fl«EM-faS STATE041 DE5TI0] TNRM $ 

sRestore Q 
MftP-ENflBLE TNRM $ 

MfiP-ENftBLE DtCYTYPEl nft5K[18. 1 DESTIMA] TNRM $ 

;Put failing adr into MA so wg can re-do the operation 
belou. 

DCAMEM-ABS STflTEiei R0T[2S.l MASKESl OEST [ Dtv-HUR 1 TPiRn » 

;Restore DEV-AOR. Can't depend on DEVICE ATIEM nou! ! 
LOAO-PPC C550 $ 

;Get th>G PPC loaded with napped version of PC. 
;!!THIS DESTROYS ThC IR ! ! 
DLAMEM-ABS STATE02] DEST[IR-ALL] TM5M S 

;Restore IR 
MU-POP OtJMEM] OESTCALUl Ql TNRM S 

;GET MIPC + 1 
DtCONST 11 ROTIMUA-ROTI ALU[ALU1 Q-01 DESTtJftM) MU-PUSH TNRM * 

;Fixup MIPC and leave on stack for PGPJ U^tsn resuming 
Gxecut ion 

D'AfEM-ABS STflTEei! DESTEHOLDl TNRM $ 

:Get MB-STATUS into HOLD 
0[MEM] ROTd + 61 MfiSKOl CONOt-HEROl C5S0 JLriP[MAPUFl] $ 

;Juinp if status shows fetch-type B»ap errors. 
D[PEM1 ROTdl.l C550 COND[SIGNOFF] JUMPEMAPUTUll S 

.'Jump if no ECC error is indicated. 
HAPUFl: DtrEMl R0T[25.1 CSS0 CONDCSIGNCMl JUMPIMAPUTU21 $ 

;Juinp if this was a write trap AND there was also a fetch 
err. 
;Here to resume after a FETCH failure (Rft4 too)- 
DtAftEM-A8S STflTE05! DEST[H0LD1 TNRM » 

;Recover contents of HOLD. 
D(AMEM-ABS STATE03) DESTCALUl Ql TNRM * 

fReccver the saved MA. store temporarily in ALUl. 
DFRO ALUCALUl Qi 0£ST[MA1 TNRM POPJ * 

:Re-do the failing fetch, then restore the MA (k^ich nay 
NOT 

; have contained the failing adr). and resume execution. 

jHere to resu«e exectuion after a WRITE failure with no concurrent 
fetch err. 
MAPUTUl:D[Af1EM-ABS 3TATE0S1 DESTIfEnSTOl t 

;Re-do the WRITE that was trapped. 
D[AMEn-ABS STATEa?) D£ST[H0LD1 TNRH % 

:Restorc former contents of MEM bus. 
ILLTRP: NORM POPJ $ 

;Return to MIPC saved on stack! 

.-Here if there was bad fetch status along with the write trap- This 
can 

; occur only when an IFRO has been done before the write. We restore 
the 
; state of the world by re-doing both operations. 
MflPUTW2:IFRQ OlAMEn-ASS STATEwbl DE5T[ftr1STul $ 

;Re-do the URITE that was trapped and the IFRQ preceeding 
it. 

NORM POPJ $ 



SLOE tiarch 23. 138+ 21:08:53 file DSKiF+nflP.SLO — of — F'UNNF 



21 1138 

21 1133 

21 1146 

21 ll^H 

21 1142 

21 1H3 

21 1144 

21 1145 19634 918731170013a60S541SlS23S543141E80e 

21 :i4E 

21 1147 

21 114B 

21 1149 

21 1150 

21 1151 

21 1152 

21 1153 

21 1154 

21 1155 

21 1156 

21 1157 

21 1158 

21 1153 

21 use 

21 1160 

21 1161 

21 1162 

21 1163 

21 1164 

21 1165 

21 1166 

21 1167 

21 1168 

21 1169 

21 1170 

21 1171 

21 1172 

21 1173 

21 1174 

21 1175 

21 117S 

21 1176 

21 1177 

21 117B 

21 1179 

21 1180 

21 1181 

21 1182 

21 1183 

21 1184 

21 1185 

21 1186 

21 1187 

21 1188 

21 1189 

21 1190 

21 1191 

21 1192 

21 1193 

21 1194 

21 1195 

21 1196 

21 1197 

21 1198 

21 1199 

21 1200 

21 1201 

21 1282 

21 1203 

21 1204 10635 01073037000006055416162364631416008 

21 1285 

21 1206 18E36 81865117082008880888842365521417000 

21 1207 

21 1288 10637 81873117001406055400048365575417088 

21 1288 

21 1209 

21 1210 18648 71073117880886055416162365575416000 

21 1211 

21 1212 10641 81024117800005055416072365431217000 

21 1213 10642 01073117881286855416162365431416880 

21 1214 10643 01073117800080081416152825431456800 

21 1215 

21 1215 

21 1217 

21 1218 



fCfiyc ftfiTM STATE01 : ETftTEll IS FCfCRY f'M) CONTI?£JE STfiTE SAVE THERE 
;NECESSflRT WHEN nflCRO TRflP fSOUT TO BE TAKEN 
:HIPC ON STACK 

MACTRP: MAP-DISABLE * 
.REPEAT GRLWTSW ! 

SPEC [MAP-DISABLE] DitttAHErMl DEST[Q] TNRtl * 

;GET ADR OF PSa 
DILIT PSBSS7) ALUtDORQ] DEST[I1A1 TNRH $ 

;LOAO MA WITH ADR OF STATE PTR 
DF/WT D[MEM) mSKCB. ] ALU[D-1] DESTCAR Ql TW?M S 

;LOAO AND AR WITH INDEX-1 INTO STATE PAGE TO USE 

; IGNORE ALL BUT LOH 8 BITS FOR WRAP 
D[LIT fTEMSTATESIZE] ALU[D+Q+1] DESTtAR] TNRM $ 

;Buiiip to pt to next block to use# 0/ current block - 1. 
DCARl MftSK[8.I DEST[MEf1ST0] * 

;Mask to retain only 8 bits and write back to aain aea. 
DfO*AnEnSl ALUtD+Q] DESTtMA] TNRM S 

;Load Mft with adr-l of State Block to start filling. 

;ALL THIS •-!' CLEVERNESS TO HAKE 1 INST LOOP WORK RIGHT. 

.-THIS BUMMED AN INSTR (DtHAl ALUCD-11 DESTEMAl) 
D[AME(1-ABS STATES 11 XST[Afi] TNRM $ 
D[AR1 CONDtSIGN(FFl JUTPtMACLNG] C550 $ 

;JUnP IF LONG STATE SAVE IS DESIRED 
MACSHT: OIARl DESTCMEMSTOl MA<-MA+1 $ 

;SHC1RT! JUST SAVE CTL I rB-STATUS 
D(AMEM-fiBS STftTE02) DESTCMEMSTO) m-MA*l » 

■,(m IR 
DCAMEM-ABS STATE031 DESTCMEMSTOl MA*tW+l S 

:ANO MA 
DCAMEM-AeS STATE041 DESTEMEMSTOl MA<-Mft+1 S 

:(Hi CPU-MOOE & MAP-USER-SR ETC. 
D[PC-FLfiGSl MASKELEFTl DESTCQl T3S0 % 

iSfifJE PC FLAGS IN LEFT HALF 
D[JftMl MU-POP R0T[36. - MUft-ROT] MASK[14.] ALUIDORQ] 
DESKMEHSTDl HA-MA+l $ 

;POP JMEM STACK GETTING MIPC 

jyRTTF <PC-FLAGS>B17!<MIPC>S35 
DtPCl DEST[MEMST01 MA^MA+l JUnP[nACTR21 $ 

;l«ITE PC 

;AND JUMP OCRT MEM BLOCK DONE) 



;HERE TO POP AMEM STATE INTO MEM AND CONTINUE LONG STATE SflVE 

HAaWG: DILIT STATE011 DEST[AR1 TNRM $ 

DIARl ROTCArtn-P-ROTl DESTtAMEM-Pl TNRM S 

;L0«) AMEM-P WITH START OF AMEM STATE BLOCK 
D(CONST AMEMSTATESIZE - II ROT [ LLOAD-ROT 1 OESTCLLQAD) TNRM S 

.-LOAD LOOP-CTR FOR FULL AMEM BLXK DUMP 
DIAMEMsPl DEST[MEMST01 AHEM-P-INCR M(VMA+1 LOOPC-l » 

;PULL FRCB1 AMEM STATE BLOCK TO MAIN MEM STATE BLOCK 
D[ PC-FLAGS 1 MASK t LEFT! OESTtQl T350 S 

;SAyE PC FLAGS IN LEFT HALF 
D[PC1 nASK[18.1 ALUIDOROl OESTtMEMSTOl MA^MA+l TNRM $ 

jUiRITE PC 
D!JMEM-P] DESTCMEMSTOl MA-MA+1 * 

;WRITE POSITIONED JMEM-P (THE WAY IT HAS BEF(3?E TRAP) 
MACTRl : 

.repeat JMEMSI2E [ 

MA-MA+i otjreni MU-POP OESKrensTQi % 

■.POP LAST JEMEMSIZE STACK LOCS INTO STATE a.OCK 
1 
);. repeat GRUNTSU 
MACTR2: D[ PC-FLAGS 1 DESTCQ ARl T300 $ 

;Save flags in AR for trap code. 
DCLIT 010003800080] ALU[-DiQl DEST[ PC-FLAGS] T400 $ 

;Put machine in exec mode- 
REENflBLE-TRflPl SET-TEMP-EXEC [ OICONST 001 DESTCtWP-USER-SRl 
ITNRM $ 

;Let traps happen again, and make sure about the n-odc. 
DtCWeT PGR70) DESTCMAl TNRM $ 

;Lo3d MA with adr of trap instr 
DFRQ ALU10J DESTCMERGEI $ 
MAP-ENABLE $ 
JUMPCPGRTRPl $ ■ ' 

;Fetch the trap instr. enable mapping with IB-bit 
; virtual addresses, and enter trap code. 
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F+INNF 



22 1219 

22 1220 

22 1221 

22 1222 

ZZ 1ZZ3 

ZZ 1ZZ4 

ZZ IZZS 

ZZ IZZS 

22 122? 

ZZ 1ZZ8 

ZZ 12Z8 

ZZ 1ZZ9 

22 1229 

22>il23e 

22»123e iaG44 54073117000e960SS41SlEZ3ZS420416000 

22alZ3e 

Z2al23e 

zzaizae 

ZZBl23e 
22 1230 
22 1Z31 
22 1232 
22 1233 
22 1234 
22 1235 
22 1236 
22 1237 
ZZ 1Z38 
22 1239 
22 1Z40 
22 1241 
ZZ 124Z 
ZZ 1Z43 
Z2 1244 
ZZ 1Z45 
ZZ 1Z4G 
22 1247 
ZZ 1Z47 
22 1248 
22 1249 
22 1250 
22 1251 
ZZ IZSZ 
ZZ 1ZS3 
ZZ 1ZS4 
22 12S5 
22 1256 
22 1257 
22 1258 
22 1259 
22 1260 
22 1261 
22 1262 
22 1263 
22 1254 
ZZ 1265 
22 1266 
ZZ 1Z67 
22 1268 
22 1269 
22 1270 
22 1271 
ZZ 1Z7Z 
ZZ 1Z73 
22 1274 
22 1Z7S 
ZZ 1Z7G 
ZZ 1Z77 
22 1278 
22 1279 
22 1280 
22 1290 
22 1281 
22 IZBZ 
ZZ 1283 
22 1283 
22 1284 
22 1285 
ZZ 1288 
22 1287 
ZZ 1Z88 
ZZ 1289 
22 1290 
22 1231 
22 1292 
22 1Z93 
ZZ 1294 
22 1295 
22 1296 
22 1297 
ZZ 1Z98 
22 12K 
22 1300 
22 1301 
22 1302 
22 1303 
22 1303 
22 1304 
22 1305 
22 1306 
22 1307 
22 1306 
22 1309 
22 1310 
22 1311 
22 1312 
22 1313 
22 1314 



'Restore STATE FROM BLOCK I« rEnORY 

;AM} JUMP INTO THflP UCOCE JUST LIKE TRi¥' JUST W!PPENED 

;mP 8LKI 

HAPaCI: 

.REPEAT 1 - GRUNTSW [ 
ILGIOT $ 

;Perhaps this should be a no-op. so it can be followed by 

;JRST 2.9PGRTRP so the same monitor can be run for both. 



;Perhaps this should be a no-op. so it can be folloued by 

;JRST 2.rf'GRTRP so the saK monitor can be run for both. 

I. REPEAT 1 - GRUNTSU 
.REPEAT GRUNTSW t 
WCUTP: ALUI-11 DESTCMERGE] TMRfl * 

;Set up Bapper to allow extended absolute addressing. 
D[ CONST MAPOEV] DEST[DEU-«»1 aR-OEW-FROn-INTR C50e « 
; INSURE fliV i3evICE SELECTED 
.REPEAT ! - MAITSFIX [ 
MflP-DISABLE S 
];. REPEAT 1 - UAITSFIX 

SPECIHAP-DISA8LE1 Dtt»AMEtt4] DESTIQl Tl«t1 $ 

;GET AOR OF PSB 
DTLIT PSe5S71 ALUIDORQ] DESTrMA] TNRfl t 

;LOAO MA WITH AOR OF STATE PTR 
DF/WT DtnEM] rWSKta.l DEST[Q] TNRtI S 

;LOAO Q WITH IfffiEX OF NEXT STATE BLOCK TO BE USED 
;ia«)RE ALL BUT LOU 8 BITS FOR IRAP 
D[LIT MflEnSTATESIZEl H-U[Q-D] DESTIAR] TNRM $ 

.-aCKUP TO PT TO THE BLttK OF CONCERN (NEXT TO BE FILLED 
TOO) 

DCAR] RASKIB.l DESTlnEHSTO Ql t 

;URITE CLEAN INDEX TO MAIN MEM (*ID Q 
D[D«)MEMS) ALUIDORQ) DESTIMAl TNRM S 

■ FnOM or«? nr ctodt rv a\ rv^v m ocrcTnoc ronM 

DF/WT D[MEt1] DESTIAR ArEM-ABS STATE01] MA^MA+l % 

-•Read and store CTLIM8STATUS into AMEM block. 
DFRQ MA-MA+1 DIAR] CONDISIGNOFF) JUHPIMACULGl C550 $ 

."Fetch 2nd word of state block. Jump if long restore. 
MACUSH: DFRQ DIMEM) DEST I AMEM-ABS STATE02] MA-rW+1 $ 

;Restore IR to AHEM. 
DFRQ DIMEMl DEST t AMEM-ABS STATE03] MA-MA+l % 

;Restore MA to AMEM. 
DFRQ DII^M) DESTLfiMEn-ABS STATE04 ARl MA^MA+l $ 

;Restore CPU-MODE & MAP-USER-SR etc to AMEM. and AR. 
DIMEMl MASKCLEFTl DEST [ PC-FLAGS ] T350 PUSHJ I USRRST 1 S 

.-RESTORE PC-FLAGS, call routine to restore Map-User-Sr. 
DFRQ DIMEMl ROTIMJA-ROTI MU-PUSH DESTtJMEM] $ 

;Push MIPC onto stack tJMEM-P not important). 
D[MEM] DESTIPCl TNRM $ 

:Restore MACRO PC. 
D[ AMEM-ABS STATE03] DEST [MA] TNRM $ 
D!f!MEf1-AeS STATE8Z] DEST[IR-ALL1 TNRM S 
JUMP[MAPNTR] TNRM $ 

;Enter mapping algorithm as if we had just trapped... 

;HERE TO RESTORE LONG MEM STATE SLXK 



DILIT STATE821 DEST[ftRl TNRM S 

.-START FILL FROM STATE02 (STATE01 DONE ALREADY) 
DIAR] RaT[AMEM-P-ROTl OESKAMEM-Pl TNRM $ 

;LOAD AMEM-P UITH START OF AMEM STATE BLXK 
D[CDNST AMEMSTATESIZE - 1 - 1] RQT [ LLCMD-ROT 1 DESTILLOADl TNRM » 

;LOAO LOOP-CTR FOR FULL-1 WEM BLOCK FILL 
DF/UT 0[MEM] DESTIAMEMaPl AMEM-P-INCR MA-^MA+1 LDOP[.l * 

;WAIT FOR FETCH OF STATE WORD AND STORE IT IN AMEM BLKK 

; .-INCREMENT AM AND AMEM-P AS WE GO 

DFRQ D[MEM] DEST [AMEM-ABS STATEaZ] MA^MA+1 $ 

:Fctch 3rd word, store 2nd in AMEM.' 
DFRQ DIMEM] DEST [AMEM-ABS STATE03) Mft-MA+l t 

.-Etc. 
DFRQ D[MEM1 DEST [ AMEM-ABS STATE04] MA^MA+l S 
DFRQ DLMEMl DEST ( AMEM-ABS STATE0S) MA.MA+1 $ 
DFRQ D[MEni DEST [ AMEM-ABS STATE0G] MA»rW+l $ 
DFRQ DtMEMl (3£ST[ AMEM-ABS STATEe7I MA*MA+1 $ 
DFRQ D[MEM1 DEST [ AMEM-ABS STATE10 ARl MA^MA+l $ 

.-Place copy in AR for call to USRRST. 
DFRQ DIMEMl DEST [AMEM-ABS STATElll MA-MA+1 S 

;Fetch 12th word (= PC-FLAGS, .PC) 
DIMEMl DESTIPCl TNRM PUSHJ ( USRRST 1 S 

;Restore PC. call routine to restore Map-User-Sr. 
DFRQ MA*MA+1 DIMEMl mSKILEFTl DEST [PC -FLAGS! T350 $ 

.-Fetch 13th word (JMEM-P). 
DFRQ MA<-nA+l DIMEMl DESTIJMEM-P Ql TNRM $ 

;Fetch top word of saved micro-pdl. Restore JMEM-P. save copy- 

DFRQ Mfl*HA+l DIMEMl DESTIJMEMl S 

:Fetch next micro-pdl word. Restore first one. 
.repeat JMEMSIHE - 2 [ 

DFRQ HA*nA+l DIMEMl MU-POP DESTUMEMl S 

jFetch next word of saved «icro-pdl. Back up JFtM-P and write 
; the previous word into JPtM. Note that we are. in effect, 
; PUSHing backwards ! 



] 



DIMEMl MU-POP DESTIJMEMl $ 

;Last saved nu-pdl word. Ue repair jrtM-P later. 
D[AMEM-ftBS STATE82] DESTIIR-ALLl TNRM $ 



22 1316 



D[ AMEM-ABS STATE061 DEST [ HOLD 1 TNRM * 
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22 1322 ;NDW JIM> INTO PROCESSING CODE JUST LIKE HE JUST GOT THE 

22 1322 TRAP 

22 1323 

22 1324 !;.REP£fiT ERtiNTSW 

22 1325 

22 1326 

22 1327 106+5 01973117008036055+16121365435+16806 USRRST: DCfiR] DESTCSftUE-mP-SRl TNRM $ 

22 1326 ''^'^ *^ loadins* code needs this. 

22 1323 18S+6 81073188208006855+80362+25+21+16066 DIftRI flASKEl! COMJtHERQl PCPJ CSSS S 

22 1330 ;Skip loadins MflP-USER-SR if uas not active. 

22 1331 186+7 018731170880060550610+8+25+21+17809 DlflRl R0TC3S. 1 tWSKC + l DESTIMflP-USER-SR) C559 POPJ $ 

22 1332 ;Restore (IflP-USER-SR autoaasically aakins it active. 

22 1333 

22 133+ 
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23 133S 
23 133E 
23 1336 
23 133? 
23 1338 
23 1338 
23 1333 
23 13+0 
23 13«1 
23 13+1 
23 13+2 
23 13+3 
23 13+3 
23 13++ 
23 13+5 
23 13+5 
23 13+6 
23 13+7 
23 13+8 
23 13+9 
23 1350 
23 1351 
23 1352 
23 1353 
23 135+ 
23 1355 
23 1356 
23 1357 
23 1358 
Z3 i3b3 
23 13G0 
23 1361 
23 1362 
23 1363 
23 136+ 
23 1365 
23 136E 
23 1367 
23 1388 
23 1369 
23 1369 
23 1370 
ii 1371 
23 1371 
23 1372 
23 1373 



leEse 0ie72ie0200eeeeee6+es6ze2S+i 1+56066 

1^51 01073100600006000215162025+21+56060 

10652 01073100606660600176152025+21+56060 

10653 01073100666666666616162625+21+56606 

1065+ 71072117000606055+15162365635+16000 
10655 01073077066e0605+++0552+2S57S+150e6 

16656 01073100600000000556162025+21+56000 
10657 01073100+00666666576162025+21+56066 

10660 71073117000006661+6+562025775+56066 

10661 71673117066666553+16162367035+16666 

10662 01073100+06660600515162025+21+55060 
10G53 0107307700e0a605+++2162+2S575+16006 
1066+ 01073077006e0G05+++3162+2S57S+lB66e 

10665 0107307700660665+++1625365571+16666 

10666 010731 1700660055541615+365+75515000 

10667 01073117000606055+16152+25+35+16006 



TRftP-EMTER: ;Puts trap type coda in flLUl and ftR, failing address in HA. 

I Call with fffi-STftTUS in <«, saved PR in STfiTE05. 
Diflfij ROTtl + HS.i rtftSi<£2i flLUID-li LONG COM)[HEI?0] JUtVinetVRl S 

;If bit 25 is on and bit 2+ is off. this is a WRITE trap. 
D[lW] ROTtS.l CONDtSIGfCFFl C55e JUnP[nflPIF] S 

;Not 9 Write- If cycle not started by DFRQ.- Itis an instr. 
fetch. 

DtflR] R0T[7.1 CCMJCSIGNOFFl JLWtriAPRO) CS56 * 

:DFRQ. Definitely a Data Fetch if fll rtfl WAIT Has on during 
fetch. 

DCARl RaTI24.1 OWDtSIGNOFF] JLTPirWROl C550 « 

;No UfilT. If trap not fro» 1st uinst after IDISP. still a Data 
Fetch. 
rWPIF: DfPC! flLU[D-l) DESTCrwl TNRfl $ 

;PC-1 is failing adr for instr fetch 
DICONST 21 R0T[18. ] DESKflLUl («] POPJ T(«t1 » 

;Instruction fetch trap (Q/ 2,,0 ie. XCT access) 

riAPRO: DtARl R0T[22.] C0ND[SIGNQFF1 C550 JLrP[nflPR02) t 
;Jump if not special case trap. 
D(AR1 R0TI23.) CONDISIGNON] CS58 JLtPlnAPROfll $ 

;Junip if failing address is claimed to be in the AR. 
DtIR) MASKIIB.) OeSTCml TNRM JLr»'[flAPRD21 $ 
;IR, not nA. contains failing adr ■ 
HAPROA: D[lWEn-ABS STATE051 DEST[Mfl] TNRM CONT $ 

;In AR (DF-FRWI-AR in the cycle after the OF) 
WPRDZ: DiAR] RQT120. ] COrCiSIGhONS JUnP[nAPRnuj CSS0 S 
;Juinp if READ-MOD I FY-UR I TE 
DCCONST 10] R0TI18.] DESTIALUl Q ARl PCFJ TM3M $ 

jSisple fetch trap CQ/ 16,, ie. READ ACCESS) 
MAPRMU: DCCONST 1+) R0Ttl8. 1 DESTIALUl ARl POPJ TNRM S 

;Read Modify Write trap (0/ l+,,0 ie. READ8,WRT ACCESS) 

MAPUR: ;0n a WRITE, MA is failing adr for store. 

SELECT-HOLD DCCONST +1 R0TC18.1 OESTCALUl AR] « 
;Sclect tlie HOLD register as the MEM data. 
;Get code for SIMPLE WRITE TRAP (Q/ +.,0 IE. WRT ACCESS) 

DfnEM! OESTfMIEM-ABS STOTE06! TM?M * 

;Get store data to STATE, even if Me have done a short 
save. 

POPJ TNRM $ 
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24 1374 

24 137S 

24 137S 

24 1377 

24 1377 

24 1378 

24 1379 

24 1380 

24 1381 

24 1382 

24 1383 

24 1384 

24 1395 

24 1386 

24 13S7 

24 1387 

24 1388 

24 1389 

24 1399 

24 1391 

24 1392 

24 1393 

24 1394 

24 1395 

24 1396 

24 1397 

24 1398 

24 1399 

24 1400 

24 1401 
24 1402 
24 1403 
24 1404 
24 1405 
24 1406 
24 1407 
24 1407 
24 1468 
24 1409 
24 1410 
24 1411 
24 1412 
24 1413 
24 1414 
24 1415 
24 141S 
24 1417 
24 1418 
24 1419 
24 1420 
24 1421 
24 1422 
24 1423 
24 1424 
24 1425 
24 142B 
24 1427 
24 1428 
24 1429 
24 1430 
24 1431 
24 1432 
24 1433 
24 1434 
24 1435 
24 143G 
24 1437 
24 1438 
24 1439 
24 1440 
24 1441 
24 1442 
24 1443 
24 1444 
24 1445 
24 144S 
24 1447 
24 1448 
24 1443 



HANDLE flR REFILL OR PAGE FAULT 

E (afEH) 



S SftVEB ftNB LE'JEL 2 STUFF NOT 



16676 eie73i37eeee065434isisz^7e354isee8 

10671 01873117000021521416162225431456000 



10672 01063172400000001404525025661456000 

10673 01073017000006054500562365675416000 

10674 01162100200000001400752025551456008 

10675 01073017000000000220762025575456000 

10676 01673017000006055410162366135416000 

10677 01073017000000001416152026175456000 

10700 01073017000006055416162366235416000 

10701 010731170013060S541B162365431416000 
10782 71658117801306054552352355575415003 

10703 51073117000005054303544365575415000 

10704 3187381 7©0lTcio©55430fS^oSSS7^T'*o^S3 

10705 03063017000006054456162355475316000 
10766 61064117000006055415144365775416000 
10707 01073100000000000266762025461556000 

10710 01073100200000006320362025451556009 

10711 01073000200000000040562025461556000 

10712 0102100020000000141615202542145S000 

10713 01021000000000001416152025421456000 

10714 01073100000000001060362025761456000 

10715 61170117000006055416144365775416000 

10716 61073017000006054663362365475518000 

10717 01073117000006055416130365475516000 

10720 71060117000000064600162365535415000 

10721 01073017000006055402362366635216000 

10722 01073100000000000441152025451556000 

10723 010731170000060SS40355036547S515000 

10724 71063117000021610236162025475556000 



:XPECTS THAT LEVEL 1 S' 
DAMAGED 

;nlPC OF TRAP ON LAST JfEH 5TACK LK 
: &&& MA anjst stiil contain original value &&£ 

,-iAPKTR: D!AMEM-fiBS STATEei 1 DEST[ftR3 T^R^! S 
NORM PUSHJt TRAP-ENTER] « 

;Get trap type code and fail ins ^* 

;Here Hith trap type in left half ALUl Q (coded bits) 
;MA contains failing ac^< 

D[MA1 mSKCia.] ALUtALUl DORQl DE5TIAR CYTYPE] CDNDtUSERl C550 
JUMPtHFUSl $ 

;AR has <t/pe code bits. >fai 1 ing MA> 
:Ju>p if USER 
D[MA) ROT[20.1 MASKI2] DESTCQ] TtKM * 

;hi9h order 2 bits 
DtCONST 3] ALUCD-Q] CQND[ZERO] JUnP[nFHIEXl C600 $ 

;J if privately napped part of exec addrs space. 
DLCONST MMAP / 1000] ROTO. 1 DESTIQ] JUMPIMFAl] TNRM t 
;PAGE TAB a MflflP AND JUtP 

rruS: D[D*ftrtM21 MASK!32.1 DESTIQI TNRM $ 

;GET ADR LIMIT REG 
;;; D[MA] MASKIIB.] ALU[D-Q1 CONDCSIGNOFFJ JUMPtMTRPAL] C600 » 

;J IF HA PAST AOORS LIMIT 
DtD«AHEH31 DESTIQI JUMPIMFAl] THW $ 

;GET UPT ADR IN Q 

MFHIEX: D[D*ArEM4] DESTIQ] TNRtI S 
;GET PSa ADR IN Q 
MFAl: MAP-DISABLE $ 

a^CIWP-OISAeLE] DIMA] Ran2?.! r¥!SKC9. ] ALUID+QI DESTinA] TNRfl 

« 

;PAGE TABLE IN Q 

;LDAD MA WITH ADR OF PT 
DICONST 15] R0TI12. ] DESTIIR-AOR] TNRM $ 

;PREPARE INITIAL PERMIT BITS 
^F'A2: REENA9_E-TRAP1 D[CC9^T 3] DEST[Q] T!*?1 S 

;FETCH PAGE TABLE ENTRY 

;DON'T CLEAR IND PNTR. COUNT, WAIT FOR FETCH 
DF/UT DIMEH] ROTIlB.l ALUtDQRQ] DESTIQ] TttW * 

;GET PERMIT BITS 
OUR) ALU[D8,Q] DESTIIR-AOR) TNRM « 

;AND THEM IN 
DIMEM) ROTIll.) MASKt33 CONDI-HERO] JUrPIHFTRll CSS0 S 

;CHECK FDR TRAP BITS AND JUTP IF SO 
MFB3: DIMEM] R0T[13.] MASKIll CONDIZERO] JUnP[MFTR2] C5S0 « 

;J IF MO ACCESS PERMIT 

DirtM) R0T(2i neiSKizi DtSTiiai condeeekoj juhplmftypm] C55e s 

;GET TYPE CODE, J IF <PRIVATE> 
ALUIQ-l) DESTIQI CONDIZERO) JUMPIMFTYPl) C550 » 

;J IF 1 <SHAR£D> 
ALUrO-11 DESTIQ) CCWDI-ZERO) JUMPIMFTRS) CS50 $ 

;J IF NOT 2 <ILLEGAL=3> 
DIIR] R0TI3S.1 MASKll) CONuI-ZtKUJ JUMPIMFiR4ii C550 i 

;TYPE 2 <INOIRECT>. J IF >2 INDR, PNTRS 
DtIR] ALUID+n DESTIIR-ADR] TNRtI S 

;CajNT IND. PNTRS 
DIHEM] R0TI27.] nASKI13. ) DESTIQI TNRM » 

;GET PAGE TABLE » 
DIMEM) 0ESTID*ArEnl4] TNRM « 

;5AUE PNTR IN D*AMEM 
DILIT SPT) ALUID+0) DESTIMA) TNRM S 

,- FETCH PAGE TABLE PNTR FROtl SPT 
DFRQ DID*AnEM141 MASKI9. ] DESTIQ) TIWH » 

;GET PAGE «. START MEM FETCH 
DIMEM) ROTIlB.l MASKI4) CONDI-ZERO) JUrt'trfTR4] C550 S 

;PAGE OUT-OF-CORE? J IF YES (TRAP) 
DIMEM] nASKI14.] DESTIHOLD) TNRM * 

;N0, GET MEM PAGE » IN HOLD (NOTICE 14.!!) "« 
Dlfltni ROT 15. ] hLuIDORQ) DESTIfiAi Juf1rIMrM2j TNRH • 

;FORM MA FOR OF PTR AND TAKE IM3IRECT LOOP JUMP 

JMFA2 DOES DFRO 
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25 1+58 
25 H51 
25 1452 
25 1453 
25 145+ 
25 1455 
25 1456 
25 1457 
25 145S 
25 1459 
25 1458 
25 1461 
25 1462 
25 1463 
25 1464 
25 1465 
25 1466 
25 1467 
25 1468 
25 1469 
25 1476 
25 1471 
25 1472 
25 1473 
25 1474 
25 1475 
25 1476 
25 147S 
25 1477 
25 147B 
25 1479 
25 1489 
25 1481 
25 1482 
25 1483 
25 1484 
25 1485 
25 1486 
25 1487 
25 1488 
25 1489 
25 1490 
25 1491 
25 1492 
25 1493 
25 1494 
25 1495 
25 1496 
25 1497 
25 1498 
25 1499 

25 i5ee 

25 1581 
25 1582 
25 1583 
25 1504 
25 1585 
25 1586 
2s> Ibei" 
25 1588 
25 1589 
25 1518 
25 1511 
25 1512 
25 1513 
25 1514 
25 1515 
25 1516 
25 1517 
25 1517 
25 1518 
25 1519 
25 1528 
25 1521 
25 1522 
25 1523 
25 1524 
25 1525 
25 1525 
25 1526 
25 1527 
25 1528 
25 1529 
25 1538 
25 1531 
25 1532 
25 1533 
25 1534 
25 1535 
25 1536 
25 1537 
25 1538 
25 1538 
25 1539 
25 1548 
25 1541 
25 1542 
25 1542 
25 1543 
25 1544 
25 1545 
25 1546 
25 1547 
25 1548 
25 1549 
25 1549 
25 1558 
25 1551 
2S 1SS2 
25 1553 



18725 01873817888086854653362365475516808 
10726 71860117888008004800152365535416088 
18727 01873817008880006302552025575255880 



10730 81073017008886054302552^5575415800 

10731 81854188288800881416162825761456888 

10732 61063117888086855416144355775415088 

10733 01077817888886854560762365775416888 
18734 01073108888888888441152025461556088 
10735 01864888888008800420762025421456888 

18736 01873817808806855403530365475516008 

10737 71063117888888881808162365535416888 
10748 81077017888886854256152365771215888 

18741 81064817888886854525152365575416088 

18742 01068817888886854521152365575416080 

18743 81063017808886854225762365635416088 

18744 81873188288888888860762025461555888 

18745 81873188288888888488352825421456888 

10746 51873117888886855415144365435416888 

10747 81873117888886855416130365435416888 

10750 81064137888886854518762354735415888 

10751 81073017880886054648362365575415888 

18752 01063017888886855486552355475515808 

18753 81073117888886854222358366875416888 

18754 01063117800886854676156365475516088 



10755 01024117888886855416872365435417888 

10756 81073108688886855876162365535415088 

10757 71073117808088881484562865775455888 
18768 81873117o88886d558Dlo40366521417o88 

18761 01873817888806854055162365435415888 

18762 O1O6418828888888865036Z025551455088 
10753 01063017888888888680362025575456888 

10764 81865817888886854508362365575415808 

10765 01064017880168888888152365535416888 

10766 01065817808868888888162365535416888 

10767 01873137888886855405762365435415888 

10770 01063117888886855415854365411417888 
19771 81073812488888888454152826761456088 

10772 01073817808886854454162366735415088 

18773 0ie63e!?8e8886e5S4045623655?5415eee 

18774 81866117887777777777656365511417888 

18775 81073117888021335415152825435456888 



;HERE Fa? SHARED PTH 

OFTYPl: DlrOll R0T[27.1 (1AS1CI13. 1 DESTIQl TfRH $ 

;EET SHARED PftGE « 
DtLIT SPT] flLU[D+Ql DEST[nfl] THRU $ 

: SHARED PNTR FROH SPT 
DFRC! DIOSST 121 R0T[12. 1 DESTIQJ JUK»[«FTYe01 

;FETCH PTR, BETTER BE PRIWTE TYPE!! 

;GET R-X HflSK 



TSKf. t 



;HERE FDR PRIUfiTE PTR 
;MEI1 WAILfleLE 

I1FTYP0: D[CCaiST 121 R0T[12.] DESTiQ] TNRM C 

;G£T R-X MASK 
MFTY08: DCIR] ftLU[D&Q) C0ND[HER01 JUtF[f1FTY81] 0558 $ 

;J IF hEITHER R NOR X 
DtIR] ALUEDQRQ) DESTtlR-flOR) TWM t 

;TLRN ON R AND X 
tFTYOl: D[IR] R0T[23. ) flASKtS) ALUtNOTDl DESTCOl TNRtI S 

;GET RUX ENBL BITS. INVERTED 
DIHEni R0T[18.1 nfiSK[41 C0ND[-2ER01 JUMPCnFTRSl CS58 % 

,-J IF OUT-BF-CORE (TR(V) 
DtARl ROTCl?.] mSKtSl ALUtDiQl OESTCQ] CONDI-HEROI JUfP[MFTR6] 
C558 « 

;J IF ILLEGAL ACCESS TYPE (RWX) 
DtMEni MASK! 14.) OESTCQ D*ArEM141 TNRI $ 

;GET ABS PAGE » (NOTICE 14. ! I) «» 

;SAUE PHYS PAGE B IN SCRATCH 
DCLIT CST01 ALUCDORQ] DESTIMAl TNRtI S 

.•GET CORE STATUS ENTRY 
DFRQ DCIR] ROT[10. ] ALUtNOTDl DE5TC01 « 

; START FETCH 

;GET RWX DISABLES 
DCCtWST 241 R0TI21.1 ALUID&Ql OESTCOl TNRtI $ 

;GET ONLY R i X 
DtCONST 41 R0T[21.1 ALU[D+Q1 DESTIOl TNRtI S 

;fCUE X BIT LEFT 1 
nrntAf€f114] R0T[9,1 MftSK!23.] ALU[DORQ! DESTtQl TMW i 

.-OR IN PAGE AOORS (NOTE THE 23. BIT PHYS AOR!) »«« 
DtnEni ROTtSl MASKOl CQNDtZEROl JUtl'[rrTR71 CS50 » 

;J IF CST AGE SAYS TRAP 
D[AR1 ROTHS. 1 nASK[ll CONDIHEROl JirP[fFA31 C558 S 

;J IF NO WRT RQ 
DtARl DESTIIR-ADRl TNRH S 

;SAVE ORRIGINAL ftt IN IR 
DtARl DESTfOSAnEMUl TNRM S 

;SAVE TRAP WORD IN DtAttn 
DtMAStC 35.1 R0Tt24.] ALUID4Q1 DESTtARl TNRtI * 

;TURN OFF ilRT PlSSXJf! . SAVE iEu MAP vfOSSi 
DICOfET 11 R0Tt25. 1 DESTtQl TM?t1 S 

;GET MODIFICATION BIT 
DtMEMl HftSK[26.! ALUtDORQl DESTIQ] TIM1 $ 

;0R INTO CST WORD 
fFA5: DtDtAHEMll R0TI9. 1 MASKtg. 1 DESTIHGLD) TNRtI « 

;GET JUST HLt 
DtMEMl R0TJ27.! ALUIDORQl DESTtMEMSTO! TNRtI » 

;0R in ase only and store CST8 entry, 
.repeat 1 - WAITS t 

DtCONST N-AR-REFILLSl DESTtMA) TtKH S 
Df/WT DtMEMl ALUtD+11 DESTtMEtKTOl TMW t 

;BUrP » AR REFILLS 
1;. repeat 1 - WAITS 
; (Leave this label in for debugs i ng/docunentat i on 1 
LOADAR: ALUIOl DESTtMERGEl TNRM $ 

;Set virtual address merser to use context for left half. 

DtSAVE-fW-SR] R0Tt35.1 COfOISIGNOFFl TNRtI t 

;Test whether the MAP-SR was active... 
DIIRl MASKI18.1 DESTlml TNRM JUMPLC I LOfiOA0 1 * 

;Get original MA. Ju«ip if MAP-SR uas active. 
DtSAvE-ilAF-SRl RGTI3G. - 11 MASKt + l uESTt MAP-SR 3 C558 S 

;MAP-SR uas active... reload it. 
L0ADA8: DtARl R0Tr2] DESTtQl TNRM t 

;t3et XP and UP bits in new position (phys adr got shifted 
too) 

DtCONST 11 R0Tt27. 1 ALUtD4Ql CONDtZEROl JUrPtLQADAll C558 « 

;Juaip if RP bit off in old position (bit 10 rotated 2) 
DtCONST 11 R0Tt24.1 ALUtDORQl DESTtQl JUnPIL0ADA21 TNRM $ 

;RP bit was on* turn on XR in new position (bit 11) 
DtCONST 11 R0Tt24.] ALUt-D8,Ql DESTtQl TNRM » 

;HAS OFF, TURN OFF XR IN NEU POSITION (BITU) 
DiLIT 8887880888081 ALUID&01 DESTtOl TNRM S 

;RETAIN JUST CORRECTLY POSITIONED ACCESS IN Q 
DtLIT 0883000880881 FLUtDitOl DESTtQl TfRM $ 

iHardware wants Read and Urite access conpleaented. 
DtARl MASKtl4. + 9.1 DESTtARl TNRM $ 

;RETftIN 23. BIT PHYS ADR IN AR «» 

,'F2,'3 AR HAD BEEN ONLY 28. BIT AOR BUT FAKE BIGGER ICRE! 

DIARl ALUtDORQl DESTIMAP-MAl LONG $ 
;ACCESS!ADR -> MAP HD FOR MA 

DtD«AtEM171 ROTIlB.l MASKtLEFT! DESTtQl CONDIUSERl JUnPtL0«M31 

;Load Q with positioned copy of USER-CTXT if USER... 
DtDiAMEMiei ROTIlB.l MASKtLEFTl IXSTtQl TISRtI S 

:...or copy of EXEC-CTXT if EXEC 
DIMAl MASK! 18-1 (=LUtDORC!l DESTtQl TNRM $ 
DtLIT 8377777777771 ALUIDi«31 OESTIMAP-TAGl LONG » 

;CTXT!yADR => HAP UD FOR HA (Compleioent tag bits except 

J for bit 3. which is guaranteed to be 8 when we get 
) 
JUHPIMAPUTPl TNRM $ 

;(jo restore state, take appropriate coMpletion action, 

:and resume iraoot^A in^triii~t i nn . 



LOAOAl: 



L0AOA2: 



CS50 t 



LCW0A3: 
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2S 1555 

2G 155B 1077S 01973100008630888243352025451555^8 

2B 1557 

25 1553 18777 51873117888805855415148365435415888 

26 1559 

26 1558 11008 01873117080885055415130355435416860 

26 1561 

26 1552 11001 81853137000006054560362365575416000 

ZS 1563 

26 1564 11002 01073017000021727406762025475556000 

26 1565 

26 1566 

26 1SE7 

26 1558 11003 01073100200021775540362025761456000 

28 1569 

26 1570 11004 61073117000006055415140365435416080 

26 1571 

26 1572 11005 01073117000006055416130365435416000 

26 1573 

26 1574 11006 01 064 137000022004G 10762024735456000 

26 1575 

26 1576 

26 1577 



PFfl4: 



D[«E«] R0T[I8.} MASKfll C0ND[-2ERa) JIJMP[,1Ffl4! C5S3 S 

:J IF ROOIF. BIT W 
OTFiRl DESTL IR-fd_Ll TMRM $ 

;SAyE ORIGINAL m IN IR 
DifiRl DEST[DSflrEni4] TNF?fl $ 

;5WE TRflP WORD IN D^AfEM 
DICONST 1] R0T[23.) ALUtDORQ] DESTIflRI TNfiM S 

;TURN GN URT-PR£yENT, SfiUE ^EH HftP yORD 
Dirtfl] f1fiSK[27-] DESTtQ] JUMPirfflS) TNRfl * 

;GET CST ENTRY, GO 00 



DIIR] R0TI22.1 nflSKdl C0SDI2ER0] JUnP[nFfl71 CS50 $ 

;J IF NO WRT-PERWT 
DtflR] DEST[IR-ftLL] TNRH * 

:5AyE ORRIGINflL Mft IN IR 
DIflR] DESTEOSflfEflH) ThRtI S 

;SAyE TRAP t«M) IN O^ATEM 
DlflftSK 35.1 R0TI24.) fiLU[D&Q! DESTtfiRl JUrPtrrffil TNRfl * 

;CLE(« W?T-PREUENT AND JUtlP 
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27 1S78 
27 1579 
27 1580 
27 iSSi 
27 1582 
27 1583 
27 1584 

27 isas 

27 1566 
27 1S87 
27 1588 
27 1589 
27 1596 
27 1591 
27 1592 
27 1593 
27 1594 
27 1595 
27 159B 
27 1537 
27 1598 
27 1599 

27 iBee 

27 1601 
27 1662 
27 1603 
27 1604 
27 1505 
27 1606 
27 1S07 
27 1608 
27 1609 
27 1616 
27 1511 
27 1612 
27 1B13 
27 1614 
27 1B15 
27 1616 
27 1617 
27 1618 
2? 1619 
27 1620 
27 1621 
27 1622 
27 1623 
27 1624 
27 1625 
27 1626 
27 1627 
27 1628 
27 1623 
27 1630 
27 1631 
27 1632 
27 1E33 
27 1634 
27 1635 
27 1636 
27 1637 
27 1638 
27 1639 
27 1640 
27 1541 
27 1642 
27 1643 
27 1644 
27 1645 
27 1645 
27 1647 
27 1648 
27 1649 
27 1550 
27 1651 
Z7 1552 
27 1553 
27 1654 
27 1655 
27 1656 
27 1557 
27 1658 
27 1659 
27 1660 
27 1661 



11007 01073100000000000220362026461556000 

uaie 8ie73i8e0e0eeed3024e3S2e254Si55see@ 

11011 01073117006000061416162025475556606 

11012 01073100266021620400362025421456066 

11013 01073017000006054751152355575415006 

11014 01653032406600061415162025421456006 

11015 610G3137066ee6e5444036Z365S>S4160e0 

11016 01073017060006660136362365535416606 

11017 71063117060066655416162366235416066 

11020 01073117006021471415156025431456066 



11021 0!07301?00ee2203975836202S57545eeee 



11022 010730170000066S47S01B236557S416006 

11023 01063017060022030660362025575456066 



11024 01073017066022030744562025575456006 

11025 01064100200066061401362025551456000 
1102G 0106301700000605466U6236557S416060 
11027 01064160200066601406562025561456006 

11030 01 0630 1700000605466056Z3655754 16066 

11031 01065017000666055401762365575415066 

11032 010E3017000622030750162025575456060 

11033 01073617666622036742162025575456060 

11034 01073017000022030750552025575456600 



11035 01073017000006054744152365575416000 

11036 01063017006022036660362025575456060 



;TRaP STUT 
;TRflP BITS SET 

MFTRl: DIMEni R0TI3.1 dfiSKtll CONDI-HEROI JUrPtHFTraj C550 $ 

;J IF TRAP TD USER 
CCfEK RDT[I8.i MfSKElJ COfCt-HERCJ JUfS=C?FTRi6J C556 > 

;J IF URT TRflP 
DCrtM] JUnP[fFTR21 TNRfl t 

;TREfiT BOTH 'TRftP-TO-nDN- CODES AS IMMEDIATE 



MFTR10: DtAR] R0TI16.] MASKIl) C0NDC2ER0) JUMPtrFB3] CS50 » 
.•URT RQ? J IF NO 
DICONST 44] ROTI30.1 DESTIQl TNRM t 

;[ST ERROR CODE BITS — IRT TRAP 



MFBS: 
MFB4: 



nFB41: 



DCAR) ALUCOORQl CESTIAR QI C0M3[USER1 JUnP[MFB41] C550 $ 

;0R ERROR BITS IN, J IF USER HDOE 
DCCONST 11 ROTClB.l ALU(D0RQ1 DESTIAB] TNRtI S 

jturn on exec bit 

DCLIT PSBS71] OeSTtQ] TNRM t 
D[D*ArErHl ALUIDORQ] DESTinA] TNRtI $ 

:ftDC PS8 (HON BASE TAB) 

;FORn PHYS AOR OF PSB CELL 571 
DIARI OeSTCrEMSTO] JUMPtnACTRP] t 

jSTQRE ERROR BITS THERE 

;N0 NEED TO STORE DATA IN PSB572 ANYMORE ! '. 

(TAKE MACRO TRAP AFTER DOING fEM STATE SAVE 



;N0 ACCESS PERMISSION TRAP 

HFTS2: DiCOfST 413 H0T[38.] DESTEO] JUHPCfFES) TNRM S 



;ADR LIMIT TRAP 

;CR ILLEGAL PTR TRAP 



MFTR3: DtCONST 40] ROT[30. 1 DESTtQl TNRM $ 

DICONST 11 R0T[27. 1 ALUtDORQl DESTCQ] JunP[HFB51 TNRM * 



;NOT IN CORE TRAP 



MFTR4: 

MFTRS: DCCONST 22] ROTI30. ] DESTtQl JUrPIMFBSl TURM S 



-■ILLEGAL ACCESS TRAP 

HFTR6: DtCONST 51 ALUCD&Q] CONDtHEROl JUMPIMFTRSll CSS0 $ 
;J IF NO R OR X ERROR 
DtCONST 41 R0Tt27.] ALUtDORQl DESTtQ] TNRM » 

;0R IN 'R OR X ERROR' BIT 
DtCONST 21 ALUtDKQl CDNOtZEROl JUK=tMFTR62] C550 t 
;J IF NO W ERROR 
tFTR61: DtCONST 21 R0Tt27. 1 ALUtDORQl DESTtQl TNRM $ 

;0R IN M ERROR BIT 
MFTR6Z: DtCONST 7] ALUt-DiQ] DESTtQl TNRM t 

DtCONST 401 ROTt30.] ALUtDORQ] DESTIOl JUnPtMFB4] THRU $ 
;GRaP 2 



;CST AGE ^ TRAP 



trTR7: DtCONST 10] ROTt30. 1 DESTtQl JUnPtMFB4] TNRM $ 
;GROUP 



MFTRS: DtCONST 421 ROTt30.] DESTtQl JUHPtfFB41 TNRM $ 
;USER TRAP 



;T00 rWNY INDIRECTIONS 

HFTR41: DtCONST 201 ROTt30. 1 DESTtQl TNRM $ 
;GROUP 1 
DtCONST 11 R0Tt27.1 ALUtDORQ] DESTtQ] JUnPirrB4] TNRM S 
;T0O MANY INDR. PNTRS 
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28 1S62 

28 ieS3 

29 1EE4 
23 1SE5 
28 1886 
28 1667 
28 1668 
28 1668 
28 lE7e 
28 1671 
28 1572 
28 1573 
28 1574 
28 1675 
28 1676 
28 1677 
28 1578 
28 1579 
28 1580 
28 1681 
28 1682 
28 1683 
28 1684 
28 1584 
28 1685 
28 1686 
28 1687 
28 1686 
28 1683 
28 1693 
28 1531 
28 1532 
28 1693 
28 1584 
28 1535 
28 1636 
28 1597 
28 1698 
28 1639 



11837 ai873U7ee!3eS0E541S!S23SS4314!6000 
11940 01073817001300031415162^7035416000 

11041 01065137000000001400362225575456800 

11042 0102411700000605S4160G2365431417000 

11043 01024117000006055415136365431416008 

11044 81024117000006055416860365431417000 

11045 01024117000006055415134355431415000 
11045 01073117000021164360332225575456000 



11047 01073117000021127060304225575456000 



11050 81073117000021073415152225435456000 



11051 810731 1700000605541E16242S435416800 



:-PCCEPTS DEU-fCR/ IVPVEV 

;CLEf« ALL MAP HDS (WD INIT CTXTS. 

;\JEMX. MAP OFF 



MAPRSTj 



8ETTER 



MAP-DISABLE $ 

SPECIMAP-OISABLE] DCATEM-ABS APR-MODE] DESTIQ) TNRH t 

;GET CURRENT CPU-MODE 
D[CQNST 1] ALU[-D&Q1 DESTIAR) PUSHJ [ SETMODE ] TNRH « 

;aEAR BIT 35. CMAP OFF FOR SURE) 
ALU[0] DEST[USER-CTXT] $ 

.•CLEAR USER CONTEXT REG (INUflLIDATE ALL USER (WS) 
ALU[01 DEST[DtAMEM17) * 

; CLEAR AfEM COPY OF USER CONTEXT REE 
ALUC0) DeST[EXEC-CTXT] $ 

;aEAR EXEC CONTEXT REG ( INVALIDATE ALL EXEC ARS) 
flLU[0] DESTIDSWIEMISI » 

; CLEAR AMEM COPY OF EXEC CONTEXT REE 
OtCONST 11 ROTCIS. 1 DESTIDtATEMlSl PUSHJIFORCEM] TM?H S 

;ASSUME PAGE 100 IS FIRST EXEC SWPPING PAGE TIL TOLD 

;EET 1ST AOR OF SUAPPABLE MONITOR IN DtAMEMlS 

.•AND SETS UP THE MAP TO FORCE 1:1 MAPPING FOR 

;PAGES 0,2:<D*AMEni5-l> 
D[CONST 1] R0T[35.1 DEST t D*AnEM2 ) PUSHJ[EXECLR] TNRM $ 

;SET MAPONE SO EXECLR CLEARS PAGE 1 

;rEAp5 wt mk£ MhFPING PAGE i TIL TOLD BETTER 

;aEAR EVERY MAP M), PAGE 1 IMIUDED 

;INIT UALID EXEC-CTXT 
PUSHJCUSRCLRl TNRM % 

;aEAR ALL USER MAP IDS 

;INIT VALID USER-CTXT 
POPJ TNRM $ 

;RETLRN 
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F41NNF 



23 1700 
23 1781 
23 1702 
23 1703 
Z3 1704 
23 1705 
23 170S 
23 1706 
29 1707 
23 1706 
23 1703 
23 1710 
23 1711 
23 1711 
29 1712 
29 1713 
23 1714 
23 1715 
23 171S 
23 1717 
29 1718 
23 1713 
23 1720 
29 1721 
29 1722 
29 1723 
29 1724 
29 172S 
29 1726 
29 1727 
23 1728 
29 1723 
29 1730 
29 1731 
23 1732 
23 1733 
23 1734 
23 1735 
23 1736 
29 1737 
23 1737 
23 t73o 
29 1733 
29 1740 
29 1741 
29 1741 
29 1742 
29 1743 
29 1744 
29 1745 
23 1745 
23 1746 
29 1747 
23 1748 
29 1749 
23 1749 
29 1750 
29 17S1 
23 17S2 
29 1753 
23 1753 
29 1754 
29 1755 
Z9k1756 
29«175B 
29oil756 
29«175E 
23ml 755 
29ml 756 
23ml 756 
23ml756 
23iiil756 
29«175S 
29ml756 
29»1756 
29nl758 
29 1756 
29 1757 
29 1758 
29 1759 
29 1760 
29 1761 
29 1762 
29 1763 
23 1764 
23 1765 
23 1766 
23 1767 
23 1768 
23 1768 
23 1769 
23 1779 
23 1770 
23 1771 
23 1772 
23 1773 
23 1773 
23 1774 
23 1774 
29 1775 
29 1776 
23 1777 
29 1778 
23 1773 
23 1790 
23 1781 
23 1781 
23 1782 

?*? 170-3 

29 1784 



11852 91873357000800553415000377031416006 

11053 01073U70e800055341SlS43eS43S41Sa00 

11054 01873137000000635416154364335416000 



11055 81073057000066054528762365435416000 

11056 81066140280000001408562025561456000 



11057 81073357800021521416002235575456000 



11060 64073117000000007416166365765416000 

11861 81073100400000634255026367021416000 

11862 01073357000000001415006075475556000 

11863 01873057000030830816162367031416803 

11864 01063157000006054000422355571417000 

11865 81823157000006055416022365421217000 

11066 81170057000000623415162367035416008 

11067 81823157080080823416154365435416008 



11078 81073057800000005416162367035416000 
11871 010641400000000802E03628255S1455800 



11072 81863157000000004260354365571416000 



11073 81873857800000635414162367035416000 

11074 0106315700000062S404554365671416000 

11075 0187311700000000141E162225435456000 

11876 8182315700000062741S154365431416000 

11877 810730570000060SS4 14 1623646254 16000 
11100 01063157000000631484554365631416000 



ECCTRP: D[?S1E«-ftBS STfiTE8S] DESTtfLU! ACS] $ 

;Preserve STATE0S Cin case we are inside a map trap !) 
D[flRl DESTEftfEn-flBS STflTE8S] TNRM S 

;5ave PR (needed below at tttPRO) 
DCtS-STfiTUSl DeST[IV!£n-flBS[E[X-TErPl) fiR] TM?M S 

;Put trap status in ftR for TRftP-ENTER. and save in 
ECC-TERPl 
ESXTPS: DSfifii ROTii + 24.3 nftSKiSl CESTifiLUi QJ TNRM * 

DICONST 21 ALUCflLUl OsOl CSS0 HERO JUMPIECCFXl $ 

;Jump if FIXLP needed (bits 22=24 = 018). 
OtrWl DESTEflLUl ACl ] ThSW PUSHJ [ TRiV-ENTER 1 $ 

;5ave no in our own private spot (not used by map trap). 

;Get flA loaded with address of failing reference, and a 
; code in f^ indicating the t/pe of cycle trapped. 
ECCFX2: 
ECCUTP: LOAD-PPC $ 

;E3ct PPC loaded with aapped version of PC. 
SELECT-HOLD D[fll1Et1-(«S ECC-TEfPlI ROTC10.) C500 CONDCSIGNON] $ 

;Put HOLD on HEII bus. Check the Hard Error bit. 
JUnPLCtECCHRO] 

DtnEfii DESTiflLUi (C3: jftm s 

;JUr*> IF HflRO 

;Save contents of HOLD. 
0[flMEn-flBS flPR-fWDE) ROTtCPlHtre-fiOTl DESTIflLUl 0] S 

: Get CPU mode bits. 
DICOKT 21 ROT[CPU-ntBE-ROTl ALUtfiLUl Oorlil DEST [ CPU-MOOE 1 S 

;Enable ECC correction. 
DFRQ flLUIflLUl Ql DEST [ CPU-flOOE 1 C550 S 

;Fetch the (corrected) data, disable correction again. 
;;; SLPPRESS-FETCH- TRAPS OEHEfll DESTCfEIISTO fiLUl Q] t 

;l^ttenipt to re-write data with good ECC. 
D[flHEH-AeS ECC-SFTCNT] flLUCO+11 DESTtW-Ul Ql TMW $ 

; Increment count of SOFT ECC errors 
ftLLI!f*-Ul Q] 0EST!!VE.1-fieS ECC-SFTCNT] TNRB S 
.REPEAT 1 - UfllTS I 

DtAfEM-feS flPR-STftTUSl DESTIflLUl Ql T(«fl S 

;GET fiPR CONI BITS 
DCCtWST 11 R0Tt35. - 22.1 ALUCflLUl WQl CONDI-ZEROl JUTftECCXITl 
C550 S 

tun^n^ 1 uvc.r^MKj.ic i-rib 1 lyrun unij.i_ ^AJni Oil u-CriKCU 

.■NON-RECOROED DftTfl IS LOST DUE TO SLDWESS 
;COLINT IS miNTAINED THOUGH SO LOSSAGE DETECTflGLE 
DtnWST 11 R0TC3S. - 22.1 flLU[ALUl DORQ] DESTIfirEM-fleS 
flPR-STATUSl » 

.•LIGHT APR CONI BIT FOR SOFT ECC INTERRUPT REQUEST 
;WILL BE DETECTED IN APRCHK 
1;. REPEAT 1 - WAITS 
.REPEAT WAITS t ;Bit 22 is ILL MEM REF on KA-10! Use bit 24 (SBUS error) 

;(Bit 27 would also be acceptable) 
DtATEn-AeS APR-STATUS] DESTIALUl Ql TtRM t 

;GET APR CONI BITS 
DECCWST 11 R0TI35. - 24.1 ALUCALUl DtOl CONDC-ZEROl JUnPCECCXITI 
C550 S 

;DON'T OVERWRITE LAST DATA UNTIL CONI BIT CLEARED 
.repeat 8 [1 ; NON-RECORDED DATA IS LOST DUE TO SLOWNESS 

.-COUNT IS MAINTAINED THOUGH SO LOSSAGE DETECTABLE 
DIC(»ST 11 R0T135. - 24.1 ALUtALUl DORQl DeSTEAJtM-fflS 
APR-STATUS 1 % 

:LIGHT APR CONI BIT FOR SOFT ECC INTERRUPT REQUEST 
;MILL BE DETECTED IN APRCHK 
];[ ;Bit 22 is ILL fEM REF on KA-18! Use bit 24 (S8US error) 
;(Bit 27 would also be acceptable) 
DEAHEtl-ABS APR-STATUS 1 DESTtfLUl 01 TNRM $ 

;GET APR CONI BITS 
DECONST 11 ROTtaS. - 24.1 ALUEALUl D4Q1 C0ND(-HER01 JUtFCECCXITl 
C550 % 



.repeat 8 [1 



11101 01043157801406055416150373175416800 
11182 01073100400800800356030025421456808 



11183 0187311760000605541E074365437416000 



.•DON'T OVERWRITE LAST DATA UNTIL CONI BIT CLEARED 

: NON-RECOROED DATA IS LOST DUE TO SLOWNESS 

;COUNT IS MAINTAINED THOUGH SO LOSSAGE DETECTABLE 
DICONST 11 R0TC35. - 24.1 ALUEALUl DORQl DeSTIAHEM-ABS 
APR-STATUS) $ 

;LIGHT APR CONI BIT FOR SOFT ECC INTERRUPT REQUEST 

;WILL BE DETECTED IN APRO* 
1. REPEAT WAITS 

DIAMEM-ABS ECC-TEMPll MASK[LEFTJ DESTtALUl Ql TNRtl ( 

;Get status bits, including ECC syndrome. 
DIMAl MASKde.) ALUEALUl DORQl DESTIAftM-ASS ECC-SFTDll « 

;Put failing address in right half 
PUSHJtECCPMAl TNRM $ 

;GET PMA IN ALUl Q 
ALUtALUl Ql DESTIAMEM-ABS ECC-SFTD21 $ 

;PUT IN PLACE FAILING PHYS AOR 
D[PC-FLAGS] ;'.:«KILEFT] 0EST(ALU1 Ql T3S0 $ 
DtPCl MASKdS.) ALUtALUl DORQl DEST [ AnEM-ABS ECC-SFTPCl $ 

; ENTER FLAGS,. PC 

;NOTE THAT THE INT WON'T HAPPEN ON END-OF-INSTRUCTION AS 

;IT SHOULD (WILL HAPPEN AT NEXT G0H2 TICK IN APRCHK). 
jACCEPT THAT 3^T INT UILL COFE SOHE » OF INSTRS AFTER Ti^ 

;OFFENDING INSTR. 
.•FALL THRU... 
;;;:«»» Fix interrupt at end-of- instruct ion. Currently, screws up Pi's. 

;;;;»•» I think this might cause the loss of clock interrupts. TVR/Febe3 



:HERE ANY ERROR RECORDING HAS BEEN DOE 

ECCXIT: REENABLE-TRAPl 0CAC31 ALU[flLUl A] DESTIHOLDl TNRM » 
;Prepare to return. First, restore HOLD. 
SELECT-MB D[AR1 R0T[14.] C550 COND[SIGNON] JUMPtECCUDFl t 

;Test code from TRAP-ENTER, jump if trap is from a data fetch. 

CLR-ECC-ERR SHORT $ 

vpT_Trj-rcp m 

;Trap Mas fro* an instruction fetch. This is easy. 
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29 1789 
29 1790 
23 1731 
23 1732 
29 1732 
29 1793 
29 1794 
29 1795 
23 1795 
29 1736 
29 1797 
29 1738 
23 1738 
29 1799 

29 isee 
29 laee 

29 1801 
29 1902 
29 1802 
29 1803 
23 1804 
23 1805 
23 1805 
23 180S 
23 1807 
23 1806 
23 1803 
23 1810 
23 1811 
29 1S12 
23 1813 
23 1814 
23 1815 
29 1316 
23 1317 
23 IBIB 
29 1819 
29 1320 
23 1820 
29 1821 
23 1822 
23 1822 
ii 1823 
23 1824 
23 1825 
29 1826 
23 182? 
23 1828 
23 1829 
29 1830 
29 1831 
29 1832 
23 1833 
23 1834 
23 1835 
29 1836 
23 1837 
23 1838 
23 1836 
23 1839 
23 1840 
23 1841 
29 1842 
23 1843 
29 1844 
29 1845 
29 184G 
29 1847 
29 1848 
23 1843 
23 1850 
23 1851 
23 1852 
23 1853 
23 i^j 
23 1854 
23 1855 
23 1856 
29 1857 
23 1858 
23 1859 
29 I860 
29 1861 
29 1862 
29 1863 
23 1863 
23 1864 
23 1865 
23 1865 
23 1866 
23 1867 
29 1868 
23 1863 
23 1870 
29 1871 
23 1872 
29 1873 
23 1874 
23 1875 
23 1876 
23 1877 
29 1878 
29 lB7d 
29 1880 
29 1881 
23 1882 
23 1883 
23 1883 
23 1S84 
29K1885 



11110 01043157900000553415154373035416000 
mil 01073057000006055416162354461415000 
11112 0186315703100685+9^200355575417000 



11113 01073040600000634176162367035416000 

11114 01064140200000000440362065571456000 

11115 71043157000005055416162473075415000 

11116 44073117000000003416162325755416000 

11117 71O431S7O024060S541G16247307S416O0O 

11120 44073117002400003416162325765416000 

11121 01073057000000634441562367031416000 

11122 01066140200000001401562025561456000 

11123 01170057000000613416152367035416000 

11124 01023157000000613416154365435416000 
1U2S 01073057000000011416162367035416000 

11126 01064140000000000400362025561456000 

11127 01063157000000010400354365571416000 

11130 01073057000000635414162367035416000 

11131 01063157000000615404554365671416000 

11132 01073117000000001416162225435456000 

11133 01023157000000617416154365431416000 

11134 01073057000066^5414162364625415000 

11135 01063157000000621404554365631416000 

11136 01077057000000011416162367035416000 

11137 0106414000002220236076202^61456000 

11140 01073137000000005400762367035416000 

11141 01073117000020343416162025431455000 



11142 0107313700140000141SS6202SS714S5000 



11143 01170057000000603416162367035416000 

11144 01023157000O00G0341615436S43S41600O 

11145 01073057000000005416162367035416000 

11146 01064140000022304300362025561458000 

11147 0106315700O0000043003S436S5714160O0 

11150 810730570000006354! 4 16236703541 6000 

11151 01063157000000605404554365671416000 

11152 01073117000000001415152225435456000 

11153 81023157000000607415154365431416000 

11154 01073057OOO006OS541416236462S416O00 

11155 01863157000000611404554365631416000 



+ 1. 



DtfiC8} flLUtftLUl ft] DESitftriEM-ftBS STftTEOS] T>SRf1 $ 

D[LCI0P-CTR1 DESTIflLUl Q3 CSOS S 

S[CONST n ROTELLDAO-RDT] SLUtftUl 0*Q3 DESTCLLOftDl TSRH S 

:Loop ctr. gets decrejaented ihy hardtiare) during tr^js. . 



D[firCI1-flBS ECC-TEMPll R0T[71 DESTCflLUl Q] CONDISIGNOFF] TNRtI S 
;Find out froB rB-STftTUS whether trapped uinst. had (II HEM WAIT 

jurw.ctEn:uon 

DECONST 11 RaT[3S. - ( 24. - 7 )1 PLUIPLUI KQ] C0NDC2ER01 * 
;JuBp if m MEM WAIT Mas on# test ti^ethcr trap was fro« P-Idisp 



DtflCl! ALU[flLUl Al DESTtllA] TNRtI POPJLC t 

jRestore flA, return if trap not from cycle after Principle 
Idisp. 

RE-IDISP $ 
ECCUDl: ;The FAKE-WAIT's below inhibit the DFRO in the uinst. we return 
to. 

; (This is necessary since that uinst has OFRQ, WAIT. DtfEfll) 
FAKEH3FWAIT DCACll ALUCALUl Al DESTIMAl TdW PCPJLC $ 

sRestore flA. return if trap not fro« cycle after Principle 
Idisp. 

FAKE-DFWAIT RE-IDISP » 



stERE FDR HARD ERROR OR NXH 



ECCHRO: 



C550 $ 



OIArEM-fleS ECC-TEnPll ROTIIB.] HASKtei DESTtALUl Q] $ 

;Hard error. Extract sync^ooie bits. 
DICONST 061 ALUIftLUl D»Q] CSSO C0M3C2ERO1 JUHPEECCNXnl t 

;JUMP IF NXH 
DtAHEn-ABS ECC-tHRDCNTl ALUID+ll DESTCALUl Q] TNRII * 

;Incre«ient count of HARD ECC 
ALU[flLUl 01 DeST[Af1Ef1-ABS EtX-HRXNTl TNRtI S 
0!AMEM-AeS PI-STATUSl DESTtALUl 01 TNRtI « 

;GET PI OJNI BITS 
DCCONST 11 R0Tt3S. - 13.1 ALUIfiLUl 08,01 COdOt-ZEROl JUHPtECCDIEl 

••DON'T OVERWRITE LAST DATA UNTIL CONI BIT CLEARED 
DiCOSST 11 R0T[3S. - 13.1 ALU(ALU1 DCRQl DEST[AnEM-ABS PI-STATUSl 

;LIGHT PI CONI BIT FOR HARD ECC INTERRUPT REQUEST 

;UILL BE DETECTED IN APRCHK 
DCAMEM-ABS ECC-TEtVl 1 MASK [ LEFT 1 DESTtALUl 01 TNRtI $ 

;Get status bits, including ECC syndroBe. 
DtfIA] tlASKtlB.l ALUtALUl DOROl DESTCAnEtl-ABS ECC-HRDOll « 

;Put failing address in right half 
PUSHJCECCPtlAl TNRtI S 

;GET PtW IN ALUl 
ALUtALUl 01 DESTtflTEn-AGS ECC-HR002] * 

;PUT IN PLACE FAILING PHYS MJR 
DiFC -FLAGS! HASKiLEFTl iSESTiALUl Qj T350 S 
DIPCl tlftSKtlS. 1 ALUtALUl DORQl DESTtAttM-ABS ECC-HRDPCl C 

.•ENTER FLAGS.. PC 
DtAfEn-ABS PI-STATUSl ALUtNDTD) DESTtALUl 01 TNRM » 

;GET NOT OF APR FLAGS KEPT IN PI CONI UORO 
DCCONST 31 R0Tt35. - 20.1 ALUtALUl D&Ql CONDt-HEROl JUtftECCXITl 

;JirP IF PAR ERR INTS NOT ENfBLED AND CN 
OCAttfl-ABS APR-STATUSl tIASKtS. 1 DESTtARl TNRtI S 

;APR CHANNEL 
JLWtPIGENl $ 

;ABORT INTRUCTION Aft) GIVE ERROR INT imEDIATELY 

;SINCE END-OF-INSTRUCTION WON'T CAUSE INTERRUPT 

;AS IT SHOULD. 



;HER£ IF LAST NXfl OR HARD ECC ERROR MOT PROCESSED AND ANOTHER XCURRED 
;CfiN'T LET THESE GUYS GO UNNOTICED... 

ECCDIE: REENABLE-TRAPl DICONST 661 DESTIAR] JUnPtHLTLOCl $ 
;You die now. Yankee... 

;DATA IN ECC-HR001.2 OR ECC-NXrDl,2 IS PREVIOUS ERROR 
DATA 

;DATA OF CURRENT TRAP NOT YET DISTRIBUTED TO TttSE LOCS 

;HERE FDR NXH 

ECCNXfl: DtAfEtl-AeS ECC-NXMCNTl ALU 1 0+11 DESTtALUl 01 TNRtI S 

; Increment count of NXtlS 
ALUtALUl 01 DESTtAtlEM-ABS ECC-NXMCNTl TNRtI t 
DIAtEtt-ABS APR-STATUSl DESTtALUl 01 TM?f1 $ 

:GET APR CONI BITS 
DtCONST 11 ROTtSS. - 23.1 ALUtALUl D401 CONDt-HEROl JUTPtECCDIEI 
C550 % 

;DON'T OVERWRITE LAST DATA UNTIL CONI BIT aEARED 
DICONST 11 ROTtSS. - 23.1 ALUtALUl DOROl DEST I AHEtl-ABS 
APR-STATUSl $ 

;LIGHT APR CONI BIT FOR NXM INTERRUPT REQUEST 

.-WILL BE DETECTED IN APRCHK 
DrsPEM-WS ECC-TEMP11 MASKILEFTl DESTtALUl Ql TNRtI $ 

;(jet status bits, including ECC syndroae. 
DtriAl MASKtlB. 1 ALUtALUl DORQl DEST t ATEn-fleS ECC-NXfCll * 

;Put failing address in right half 
PlSHJtECCPTIAl TMRtI % 

;GET PMA IN ALUl Q 
ALUtALUl 01 DESTtAflEM-ABS ECC-NXMD21 * 

;PUT IN PLACE FAILING PHYS ADR 
DfPC-FLAGSl tlASKILEFTl DESTtALUl 01 T3S0 » 
DlPCl tlASKtlB. 1 ALUtALUl DORQl DESTIAtttl-ABS ECC-NXtPC] * 

;ENTER R.fGS,.PC 
.REPEAT WAITS I 

DLAHEM-ABS APR-STATUSl flASKia.l DESTtlWl $ 

:Get APR PI channel 
DtARl CONDt-a8US=01 JUnPIPIGENl CSSO * 

;Abort instruction and take APR trap if enabled. 
Instruct ion 



];I 



4rrr fn n-i-is ^^ft<wi(^vwlc-iftrt->r^^t— Jrtii a 4r*iwk 
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2aiilB85 

22 1885 

29 18BE 111S9 818731 170e0e2220341GlE202St3H5E080 
29 1887 
2S 18B7 

23 1888 
29 1888 
23 1883 
29 1B90 
29 1891 
29 1891 
29 1892 
29 1893 
29 1894 



Jcan't be restarted anyway. 
]. REPEAT UfllTS 

JUf1P[ECCXITl S 

:LET PROCESS FIELD THIS PPiilC IMTERRLPT. DON'T STOP 



WCHINEi 



SOME 



;NDTE THAT THE INT WON'T HAPPEN ON END-OF-IfBTRUCTIDN fiS 

IT SHOULD (WILL HAPPEN AT NEXT S0HH TICK IN APRCHK) SO 
PRXEEDING IS DEFINITELY UR»E BUT UE HAVE TD FOR 
MEnORY SIZING TO WORK. ACCEPT THAT NXH INT WILL COTE 

;» OF INSTRS AFTER THE OFFENDING INSTR. 
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30 1835 
30 1836 
33 189? 
30 1898 
30 1833 
30 1300 
30 1901 
30 1302 
30 1302 
30 1903 
30 130+ 
30 1305 
30 1906 
30 1307 
30 1307 
30 13M 
30 1303 
30 1310 
30 1910 
30 1311 
30 1311 
30 1312 
30 1913 
30 1314 
30 1314 
30 191S 
30 191S 
30 1917 



UlSl 01073357000306055415004774535416000 

111E2 01973357900806055415002375575416000 

111E3 0107305700000G05541B1S27E452141B000 
11164 01023157000000001416000725411456000 



111E5 01043157000200001415004033121457000 

11165 0107305700030G055416162764535416000 
11167 01060157000206054000204365575417000 
11170 01073137000022140520362025575456000 



ECCTX: Ml-Pty DtjriEM] CeST[«_Ul ACZl TNRM « 

;Flush trap loc- fron stack to expose loc. of fixup routine- 
Dim] DEST[rt.Ul flCU imn $ 

;Savc original HA. 
DUnEMl DESTEALUl Q] C500 S 
M.U[flLUl 01 LCWG OOISP $ 

;Call the loser's fixup routine. It Mill 90 to either 
ECC-Pi?OCEEO 

; or ECC-RET after loading F1A with the failing address. 
;This Iceeps the fixup routine adr on the stack! 
ECC-PRXEED: 

DIfiC2] fiLUti^Ul Al DESTUrEMl rtl-PUSH CS50 JUMPIECCFXl J $ 

;ft fix-up routine JLWs here if it doesn't need to be returned 
to... 

; recover the trap loc. so we can return there instead. 
ECC-RET :MJ-PCP D[jnEI1] DESTtflLUl Ql TNRtI S 

;A fix-up routine PUSHJ's to here if it needs to be returned 
to. 

DCCQNST 1] ROT[ltJA-ROTi flLUtflLUl Q+0) DeSTtjnEMl HU-PUSH TI«H S 

;Coinpcnsate for the decrement ins of return address by ECCUTP. 
ECCFXl: DICOtST 11 R0T[35. - 14.1 DESTIflRl TNRfl JLrP[ECCFX2] $ 

;Fake a TRAP-ENTER code indicating thiat trap was froa a data 
fetch. 
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31 1318 
31 1313 

31 1320 

3! 132! 

31 1322 

31 1323 

31 192+ 

31 132'» 

31 192S 

31 132S 

31 1927 

31 1328 

31 1323 

31 1330 

31 1331 

31 1932 

31 1333 

31 1334 

31 133S 

31 1336 

31 1937 

31 1938 

31 1939 

31 1940 

31 1341 

31 1942 

31 1343 

31 1944 

31 1945 

31 134B 

31 1947 

31 1348 

31 1949 

31 1950 

31 1951 

31 1952 

31 1953 

31 1954 

31 1955 

31 1956 



.•GET PMA IN ALU! Q 

,:REfffl MfP yaRD IF MflP ON, USE MP, IF NOT 



11171 01073180500e3003107ElS236783541EeM 

11172 010730S70000060554I01B246567S41E000 

11173 0!07311700ee0eG3741ElS436543541B000 

11174 01073057000006077500162365535415060 

11175 01072117000006055400000365551417000 

11176 01064057000006055416162364151416000 

11177 01073137000000000716162224151456000 

11200 01063057000006054476162365475516000 

11201 01073137000000001816162224151456000 

11202 010630570000060544^182365475516000 

11203 01073137000000637416162367035415000 
1 1 294 01 0S30570000060S540236242567S4 1 6000 



11205 01 073 11 7000606055400 1503G557S4 16000 

11206 01073100600006055416152425421416000 

11207 0107313700000605403516235543541S000 
11210 01170U70000224154161S0025475556000 



ECCPtIA: 



THOUGH) 



D[ArEM-ftBS APR-HODE) R0Tt3S. 1 OMltSIGNOFF] TNRM % 

.-TEST nflP ON BIT CIXES NOT flCCOLWT FOR MflP-DISflSLE 

Dimi r»SK!32.] DESTEfiLU! Q] POPJLC T^5^r! S 

;L0fO flLUl Q WITH m INCASE MAP OFF, POPJ IF MAP OFF 
DtARl OEST[AfEn-AeS ECC-TEr*'2] TNRn S 

:SAgE AR FOR A WHILE 

: SO CAN USE AR AND HOLD AS SCRATCH 
DCLIT 000030377000] DE5TIALU1 Ql TNRfl % 

;nASK FOR BITS 13.14 AND 19:26 
ALUI-1] DESTIEOBUS-NULL] LONG $ 

icharse up fC's Local Eobius to all I's 

:??? IS THIS NECESSARY??? 
DCrW-HA) ALUIALUl D£Q] DESTIQl LONG $ 

;GET THOSE BITS FROM nfiP-MA INTO ALUl Q 
DIMAP-MAl R0T[28.1 DESTtARI PUSHJ [ DECODE 1 LONG $ 

;DECODE BITS 28:31 
OirEMl R0T[35. - 16.1 ALUIALUl DORQl DESTEQ] TNRfl $ 

.-CONTRIBUTE BITS 15 AND 16 OF PHYS ADR 
D[riAP-nA) R0T[3Z.] DEST[AR] PUSHJ [ DECODE ) LOtE $ 

;DeCODE BITS 32:35 
DIMEMl R0TC3S. - 18.1 ALUCALUl DORQ] DESTIQ] TNRtI $ 

;C0NTRI8UTE SITS 17 AND 18 OF PHYS ADR 
D[Af1EM-ABS ECC-TEMPZ] DESTtARl TNRM S 

; RESTORE AR 
DIMAl MASKI9.1 ALUIALUl DORQl DESTCQl POPJ TNRM % 

;AOD LOW ORDER 3 BITS FROtl MA (UORO INDEX INTO PAGE) 

;PflA IN ALUl Q 

.•ACCEPTS 4 CODED LEFT JUSTIFIED BITS IN AR AND RETURNS 2 BIT • IN HOLD 

DECODE: DICONST 01 XSTIHQLDl TNRM » 

DECOOl: DIAR) CONDCSIGNOFFl POPJ C550 « 
DEAR] ROTtl.l DESTEARl TNRM * 
DtrtHl ALUID-m DESTIHOLDl JUMPIDECOOll TNRM * 
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81 


0001 


01 


0092 


01 


00e3 


01 


00Wt 


01 


eees 


01 


HMrtd 


01 


0007 


01 


0086 


01 


0009 


0i>eei0 


01 


8810 


01 


8011 


01 


0011 


01 


0012 


01 


0013 


01 


0014 


01 


0014 


01 


0015 


01 


0O1E 


01 


0017 


01 


0017 


01 


0018 


01 


0013 


01 


0013 


01 


0020 


01 


0021 


01 


0022 


01 


0022 


01 


0023 


01 


0024 


01 


0024 


01 


0025 


01 


002S 


01 


0027 


01 


0027 


01 


0028 


01 


0029 


01 


0030 


01 


0031 


01 


0032 


01 


0033 


01 


0034 


01 


0035 


01 


0036 


01 


0037 


01 


0038 


81 


8039 


81 


0048 


01 


8041 


81 


8042 


01 


0042 


01 


0043 


01 


0043 


01 


0044 


01 


0045 


01 


0046 


01 


0047 


01 


0048 


01 


0048 


01 


0043 


01 


0049 


01 


(W50 


01 


0051 


01 


0052 


01 


0053 


01 


0054 


01 


0055 


01 


0055 


01 


0057 


01 


00S8 


01 


0059 


01 


0060 


01 


0061 


011110862 


81 


0062 


01 


0063 


01 


0064 


01 


env.^ 


01 


0065 


81 


0066 


81 


0067 


01 


0068 


81 


0069 


81 


8070 


81 


8071 


81.0672 


011.8072 


81 


8073 


81 


0074 


81 


8075 


01 


007S 


01 


8076 


01 


0077 


81 


0078 



of — F41NNF 

;; MAIN F4 HICROCOOE — FIRST PART 



4050 



NOi?nAL = 4050 



sBeainning of ordinary code 



;FR0t1 TO 37, EVEN LOGS fWE TRftP0, ODD ARE TRftPl 



00000 54073117000086055416162325420416000 



00001 01073117000000001416162265431456000 

00002 71073117000000001416162065511455000 



00003 61072117000800001416146065631456000 

00004 01073117000600001415152065431456000 

00005 01073117000621215416152265431456000 

00006 51 072 1 1 700000000 1 4 1 6 1 4505553 1 455000 

00007 01073117000600001415152065431456000 

00010 01073117000600001416152055431456000 

00011 01073117000660001416152M5431456000 

00012 51023117000600001415148065431455000 

00013 01073117000000061416152265431456000 

00014 01073117000000031416152065431456000 

00015 01073117000022125415162265431456000 
00015 01073117000000035415152065431455000 
00017 51072117000000001415145065631455000 

00020 010731 1700000004141E162065431456000 

00021 0107311700000000141S1622S5431455000 

00022 0107311 70000000454 1B1620654314S5000 

00023 01873117000000001415152265431456000 

00024 010731 170000000S141515206543145S000 

00025 01073117000000001415152255431455000 

00026 010731170000000SS4161620654314S5000 

00027 01073117000000001415162265431456000 



00030 75056117000614603404544311755416000 



00031 01073117000000001415152255431456000 



00032 75050117000014003404544311765415000 



00033 01073117000000001415152265431456000 
80034 01033117000000001415150045431255000 



00035 0107311700000000141516Z2S5431456000 

00036 01033117000000001415150045431256000 



00037 01873117000000001415162265431455000 



04050 75073137000006003415142325451515000 



04051 01073137000000001404562025571456000 



04052 55073117000006455415152325421215000 



.or3[0] [ xlist 
list INEDl S 

;SKIPs which skip come here. Fetch and dispatch on next instr. 

PUSHJLCdRAPlX] S 

DtPCJ OESTtml C150 JUrPLCtJW>FAILl S 

;Failin9 JLWs come here. Get address of instr. after the JUMP. 

D[PC1 PlLU[D-ll DESTIPCl NORn JUnPLC[IDINTl $ 

;Fbus interrupts trap here (on EOI+1 cj'cles) 
:04 JUTPLCdD-TO-ACl i ;IDISP uith PC<20 ;TRfln 04 



PUSHJLC[nfPTRPl » ;nflP FftOLT 

D[PC1 fiLUtO-1] DESTIPC) JLMPLCCID-TO-ACl S 



:10 



:14 



:20 



jmPLCdrFURiTYi $ 

JUnPLCEPDL-TRfiP] » 



;POPJ into an AC 
Impure thoughts trap to here. 
POLQU detected at EDI ;TRAn 10 



JUMn.C[PCTRflP] t ;Some PC-FLAG trap bit set. 

PUSHJLCITRAPIXI $ 
JUnPLCE.] t 



:TRfin 14 



;riain memory ECC errors. 



:30 



PUSHJLCIECCTRP] $ 

JUfPLCM * 

DtPCl ALUIO-11 DeST[PCl NGRtI JUfPLCdOINT) S 

;Fbus interrupts trap here (on EQI+1 cycles) 
JUtlPLCI.l « 
PUSHJLCITRAPIXI S 
JUtlPLCI.] $ 
PUSHJLCtTRAPlXl S 

JUTPLCI.] * 
PUSHJLC[TRAP1X] $ 
JUnPLCI.) S 
PUSHJLCETRAPIX] $ 

D[IR) nASKdS.l ALU[D+XR] DESTtllfl IR-ADRl IDISP-RQ ID-HDLD-PCtU 



ID-IDX-CY[11 ID-IDX-Efe[0] ID-FROM-OBUS ID-EOI[0) 
ID-FRIf£IIFLEL0j S 

; INDEXING TRAPS HERE. 

PUSHJLCITRAPIX] % 

DtlRl mSK[18. ) ALUID+XR] DEST[Mfi IR-fOR] IDISP-RQ ID-HDLD-PCdl 

ID-IDX-CY[1] ID-IDX-ENB(0I ID-FROn-OBUS IO-EOI[01 
ID-PRINCIPLEC01 $ 

INDEXING TRAPS HERE. 

PUSHJLCITRAPIXI * 

:34 DFRQ ALUlrtrWCl DESTCHQLD) JUnPLCE INDIRll » 

;Indirect trap. 
PUSHJLCITRAPIXI * 
DFRQ ALUinEriACl DESTEHDLD] JUTPLCC INDIRl ] $ 

;Indirect trap. 
PJSHJLC[TRAP1X1 $ 



.usetNORMALl 
1 ist J 



[ xlist 



INOIRl: 



DtnEMl OESTEAR HA IR-231 LONG 

IDISP-RQ ID-HOLD-PCin ID-FROtl-OBUS ID-EDKO] ID-PRINCIPLEC01 



;Dispatch after fetching indirect pointer. 



TRAPIX: ;Unirvle«ented TRAPls come here and halt. 
DECONST 22) DESTEAR] JUHPEHLTLX] $ 

.even 
[:. \ 2 ♦ . 

IJMPFAIL: ;Failin3 Jumps come here. 
HA-NEOI $ 
;END-(r-INST. DISPATCH, except get instr. with DF instead of IF. 
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of 



F+INNF 



B'te+e 71973117900eM0eHlBlE202SE3H5E00e 

049-H 01073117908000601116162025431456090 

04042 01073117009000001416162025431456000 

04043 01973117009010107416162025431456000 



04944 01073057904009981416162025431456800 



94945 9107311790400000141516202S411456000 



02 0073 
92 0080 
92 0061 
82 0982 
92 0083 
02 0984 
02 0085 
02 008S 

0Z 9087 
02 0068 
02 0089 
02 0099 
92 9991 
02 0092 
02 0993 
92 9994 
92 9995 
92 0096 
92 0097 
02 9998 
92 9099 
92 9190 
92 9101 
02 9102 
02 0103 
02 0104 
02 0105 
02 0106 
02 0107 
02 0108 
92 9109 
92 0110 
92 9111 
02 0112 
02 0113 
02 0114 
02n0115 
02 0115 
92 01 IS 
02 0117 
02 0118 
02 0119 
02 0120 
02 0121 
0211)0122 
02m0122 
02»0122 
02m0122 
02i»0122 
92m0122 
92 9122 
92 0123 
02 9124 
02 0125 
02 0126 
02 0127 
02 0128 
02 0128 
92 0129 
02 0130 
02 0131 
92 9132 
02 0133 
02 0134 
OZnOiaS 
02m0135 
02 0136 
02 0137 
02 0136 
92 0139 
02 0140 
02 9141 
92 0142 
02 9143 
02 0144 
02 0145 
02 0146 
02 0147 
02 0148 
92 0149 
92 0159 
02 0151 

02 eisi 

02 9152 
02 0153 
02 0153 
02 0154 
02 915S 
02 0155 
02 0156 
82 815E 
02 0157 
02 0157 
92 0158 
02 9159 
02 eiEO 
02 0161 
92 0162 
92 9163 
92 9164 
32 9165 
02 91BE 
02 0166 
92 9167 
02 0168 
92 9169 
92 0170 
02 0171 
02 0172 11225 01973109408999999256162925421456099 



94947 91073117000000001416162025431456000 



11211 01973117902106955416152365431416000 

11212 01073117001710107416162025431456000 



11213 01073117001499000916000726011456000 



11214 71972117001400001416146025631456009 



11215 01973917909806055414162364631416000 



11216 



11217 64063117000000003416162325765416008 



11229 01973917999906055416162364631416009 

11221 91063117009006054628242365571417999 

11222 61178117000988081415146925631456986 

11223 91973198491496954376162364661415999 

11224 01073037004200801416162064631456000 



; FIXED ENTRY POINTS FOi? INTERFACE yiTH CG.^50LE CGrtPUTER 
; flND fiNY BOOTSTRAPS IT MflY LOAD THAT MAY LOAD THIS CODE 



list ] ;Entr>' for START executing macro-code 

D[PC1 D£ST[I1A] JUt1P[t1STRTl] J 
;t1acro start. Back up PC. 

:4041 ;Entr>' point for Memor)' Loading code 
JLWCMLUAITl $ 

:4042 ;Reset •achine state. 
JLOTPt RESET] S 

:4043 ;Halt5 of all l<inds end up here for convenience of observation. 
HALTED: DIAR) JUMP!.] $ 
:AR FLAG LIST: 

;01 - RESET FINISHED 

;11 - JRST 4 

;22 - UNIMPLEMENTED TRAP 1 . a 

;33 - 

;44 - Interrupt from illegal device. 

;45 - Error in PI system 

;SS - 

;66 - ECC error. 

;70 - MONITOR BOOTSTRAP READ OK 

;71 - flQNITOR BOOTSTRAP S£(0 FAILED FOR SOME REASON 

:72 - HICRtEQOE READ OK 

;73 - mCROCQCE READ FAILED FOR SQflE REASON 

:4044 ;eootstrap Ucode fro» Tape 

.repeat TBCDT [ CLR-DEy-FROM-INTR D[AR1 DEST[ALU1 Ql JLWCrBOGT] S ] 
[ CLR-DEU-FROft-INTR D[AR] DEST[ALU1 Ql JUPIPIMBOOTl S 1 
:4045 ;Bootstrap Ucode from Disk 

.repeat DBOOTr [ 

CLR-DEU-FROn-INTR JUnP[DBOOTA] LONG $ 

;APR-DATASU SET UP ALREADY. RESET DONE 



CLR-DEy-FROn-INTR JUWCDBOOTA] LONG S 

;APR-DATftSU SET UP ALREADY. RESET DOC 

J 
;4046 reserved for soae other boot device 

:4047 

ITRflP: NORn JUMPCITRAPll $ 

;Ille9al instrs. jump here for ease of debugging patches or 
breaks. 



.useSHILX) 
[ xlist 
list ] 

HLTLOC: SPECt211 « ;TURN CFF MACRO HISTORY 

SPECH7) JUHP[HALTED1 t ;TLRN OFF MICRO HISTORY AND GO AMAY 

lOINT: REENABLE-TRAPl D[D*AMEn0] ROT[MUA-ROT] LONG OOISP S 
;I/0 interrupt — dispatch on its AMEM loc. 



IMPURITY; 



DtPC: ALU[0-11 DESTCPC Mfll REENABLE-TRAPl NORM JUTPIMfilNl $ 
;Re-fetch an instr. whi'ch Mas aodified by its predecessor. 



JMPAC: DIPC-FLAGSl MASK[LEFT) DESTIIJ] T300 $ 

;Me have just dispatched a Junp to an address <20 — get PC 
flags. 

D[LIT 00020^000291 ALUIDOROl DEST [ PC-FLAGS Ql « 
:Sct PC-FLAG bit 19 (to trap after end-of-instr ) . »id a^s 
Q18:35>17 

DCIRl ALUIDORQ) EA-FROH-OBUS RE-IDISP * 

;Re-dispatch on the Juap that trapped Eeff. adr. calc. already 
done) . 

;By ORing in Q. ue insure taking the non-AC dispatch (RE-IDISP 
does 

; not change any registers). PC fla9 10 uill cause trap at end 
of 

; Juap instr... see code at PCTRAP. 

ID-TO-AC: ;(Ue coae here froa a TRAPl to loc. 94) 

DtPC-FLAGS] DEST[I31 T399 % 

;i4e have detected PC<20 at end-of-instr dispatch. 
D[CONST 1) RQT[35. - 10.1 ALUCDORQl OEST [ PC-FLAGS ) * 

;Set PC-FLAG bit 10 (as at jrPAC). and go execute new instr. 
DiPC! ALUiD+13 DeST[PC! JUrPiPC<20] S 
;The aborted IDISP that cane he-' dii^'t buap the PC... aake it 
r i ght . 

PCTRAP: REENABLE-TRAPl DtUSER/INTl R0T[15.1 C558 COfCXSIGNONl i 
;A PC-FLAG trap bit or the AROV TRAP flag uas on at EOI. 

CLR-AROV-TRAP-FLAG D[PC-FLAGS1 K«T[AR Ql T3e0 JUTPLCtflROV] S 
;jw-^ jT pr pLfir fiDQy T5fJP i's an. 

DCPfi] ROT[ie. 1 esse C0N0[51GNGN] JUrF[PC<Z0] t 
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0Z 6178 
92 0179 

02 eise 

82 6188 
82 8161 
82 8182 
82 8183 
82 8183 
82 8134 
82 8185 
82 8186 
82 8187 
82 8188 
82 8183 
82 8138 
02 8131 
02 8131 
02 0132 
02 8132 
02 8133 
02 0134 
02 01SE 
02 8136 
02 0137 
02 0138 
02 0133 
02 0288 
82 8281 
02 0282 
02 8283 
02 0284 
02 0285 
02>i02e6 
02i»8286 
02in8286 
82nie206 
02me2e6 
02in0206 
e2n8286 
8Zii>82e6 
02i>0286 
02r»e2e6 
02 0206 
02 0287 
02 0206 
02 0286 
02 0218 
02 0211 
02 8212 
82 8213 
02 02H 
02 8215 
02III0216 
02i>0216 
0Zm8216 
02x8216 
02IK0216 
02ii8Z16 
02i>02l6 
32n0215 
e2n8216 
82 8216 
02 8217 
02 8218 
02 0219 
02 0220 
02 8221 
02 8222 
02 0222 
02 0223 
02 0224 
02 0225 



11238 61872117804180081416146825531456080 

11231 71872112288822461484562825621456038 

11232 81833118400000801416150085421456000 



11233 54073117008006847416162325425416888 

11234 54065117008006856628242325565417000 

11235 61072117008020163416146225631456000 



11236 81073017008088031416152367031416000 

11237 01065137888006855404152365571416000 

11240 810731 1700420000141B16Z22S431456000 

11241 01073028000020343480752826121455080 



11242 01073117080000001416162025431456008 



PCTRPX: CLR-PC-TRflP-FL(CS D[PC] flLU[D-l! 0EST[PC1 JLW"[mlNl $ 

jRcturn to execution of trapped instr. 
PC<28! D[PC! rwatlB. ] *S.U[D-n DESTIMAI esse COND[-£fi<Ze] jumpepctrpxi 

* 

;PC was <20 at end of previous instr. Is it still ? 
fiLUCftrWCl OeSTCHOLDl C550 COfOtlNTRPT) JljnPtPC<20Il $ 
:PC is still <20. Get contents of appropriate PC. checU 
interrupts. 
.REPERT 1 - WAITS [ ;So=e sort of btjstrsp??? 
OCLIT 251] DESTCQl * 
OCMEm ROTta. 1 mSKO. 1 (tUtDnQ) CONOt-ZEROl JLW[. + 21 » 

CONT * 
];. REPEAT 1 - WAITS 
XCT-IDISP « 

: Execute the instr we Just fetched froM the AC. 
PC<20I: D[CaNST 11 R0T[3S. - 10. J flLUUXQl DESTI PC-FLAGS 1 PC-HOLD-EOI S 



;An interrupt is Mai tins, so let it happen. Uhen it is 
d i SB i ssed F 

1 ue Mill detect PC<20 again at rWIN. 
AROV: DCPC] ALUtO-U DESTCPCl PUSHJtAPRCIIl t 

;Overflow trap. Adjust PC. set APR status bits. 
.REPEAT WAITS t 

Infanous core clobber ins bu3 - a bug trap for soMething else, hay it 
rest i n peace ! ! ! 

MAP-DISAeLE 0[PC] MASKtlB. 1 DESTCQl t 

;Turn off Bap so He can store safely into EXEC 
D[LIT 1231 DESTCMAl S 

;Where we'll store the losing PC 
D[PC-rLHGSJ MhSKCLEFT] hLUlDOkQ] DtSTifErSTOJ TS0 S 

;Cocibine flags and PC. then store into abs. 123 
MAP-ENABLE % 



Infamous core clobbering bug - a bug trap for something else. May it 
rest in peace! ! ! 

MAP-DISABLE DCPCl MftSKClB.) OESTIQ] » 

;Turn off nap so we can store safely into EXEC 
DtLIT 1231 DESTirwl $ 

;l.ft-iere we'll store the losing PC 
D[PC-FLAGS1 MASKELEFTI ALUCOCRO] OEST [ MEMSTO 1 T350 * 

;Coiiibine flags and PC. then store into abs. 123 
MAP-ENABLE $ 
1. REPEAT WAITS 
.REPEAT FZARtW [ 

DIAMEM-ABS APR-MODE] DESTEQ) $ 

; Fetch old APR state 
D[CONST 20] ALU[-C«l3) DEST[iWl $ 

; Turn off arithmetic interrupts 
CLR-AROV-TRAP-FLAG PtJSHJ[SETMQOEl » 

; Set new mode 
OtAPRSTSl MASK(3] DESTIQ AR] aWD[-OeUS=0] JUMPIPIGENl CSS0 « 
^Generate a PI an the APR's channel. 
J ;I 

DIAMEM-ASS APR-MODE] DESTtOl S 

; Fetch old APR state 
D[CONST 201 ALUC-D&Q] DEST[AR] t 

; Turn off arithmetic interrupts 
CLR-AROy-TRAP-FLAG PUSHJ t SET MODE ] S 

; Set new mode 
D[APRSTS] MflSKISl M:ST[Q AR] COND t -OaJS=0 ] JUMPLPIGENl C5S0 $ 
;Generatc a PI an the fiPM^ s channel. 
]. REPEAT F2AR0V 
.REPEAT 1 - FZAROy [ 

D[AR1 MASKC3] 0EST[I3 AR] COrCi(-OBUS=0] JUMPIPIGEN] C550 % 
;Generate a PI an the APR's channel. 
];. REPEAT 1 - FZAROy 
JUMPIMAIN] $ 

;Otherwise. main. (This night be a good place for a bugtrap if 

:a system is presumed to always have these things enabled.] 
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83 8228 
03 0227 
03 S228 
S3 @22S 
03 0230 
03 0231 
03 0232 
03 0233 
83 8234 
03 0235 
03 0236 
03 0237 
03 0230 
03 0239 
03 0240 
03 0241 
03 8242 
03 0243 
03 0244 
03 0245 
03 0246 
03 0247 
03 0248 
03 0249 
03 0249 
03 02Se 
03 0251 
03 0252 
03 0253 
03 0254 
03 0255 
03 025G 
03 02S7 
03 0258 
03 0259 
03 0268 
03 0261 
03 0252 
03 0263 
03 0264 
03 0265 
03 02B6 
83»02S7 
83»02S7 
03m0267 
03 0267 
03 0268 
83 0269 
83 8278 
83 0271 
03 9272 
03 0273 
03 0274 
03 0275 
03 0276 
03 0277 
03 0278 
03 0279 
83 0288 
03 0281 
03 0282 
03 0283 
03 0284 
03 0Z85 
03 0286 
03 0287 
03 0288 
03 0283 
03 8290 
03 0291 
03 8292 
03 8293 
03n0294 
03i»0294 
@3fn8Z34 
03 0294 
03 8295 
03>n0296 
03in8296 
03in0296 
03 0296 
03 0297 
03ni029e 
03m023e 
03010298 
03 0298 
03 8299 

03«>03ae 

03010308 

03010300 

03 0300 
83 0301 
03 0382 
03 0383 
03 0304 
03010385 
03i>0305 
03o<0385 
03 0305 
03 0306 
03o>0307 
03b03e? 
03ii«387 
03 0307 
03 0306 
03 0309 
03 0318 
03 0311 
83!B0312 

03m0312 



11243 01073137808822423411162025571456000 

11244 ei024ii70eee0se5S4iE0es3£S43i4!?0e0 

11245 01024117008886055416012365431417000 

11246 01024117080006055416842365431417008 

11247 81024117888806055416872365431417000 
11258 81073117000006854840624365571417088 

11251 81070117884706055416162365431416080 

11252 01024017004006055416046365431417000 

11253 01073117001006854887600365571417880 

11254 81073117800808082250700365531416800 

11255 01120007004022531416046025431457888 

11256 0102411700402023741B046225431457080 

11257 010731 1700402207740824622S571457000 

11268 81024137000000881416162225431456000 



11261 71073117008030001405362224731456000 



11262 03073117000006055416155365471316800 

11263 71072180600022545485762025671456000 

11264 01073137000008801402162225571456000 



11255 01024117088000603416154365431416000 

11266 01024117008000S0S416!5436543141688e 

11267 01024117080008607416154365431416088 
11278 01024117080008611416154365431416080 

11271 01024117080000613416154^5431415880 

11272 01024117088006615415154365431416080 

11273 01024117000000617416154365431416008 

11274 01824117000000621415154365431415000 

11275 01024117080008623416154365431416000 

11276 01824117080008625416154365431415000 

11277 01024117000000627415154365431416000 
11300 01824117880000631416154365431415000 



11301 01073117080008001416162225431456000 



11302 0i673ii700480006148io46225571457808 



11303 01073117004080881481246225571457000 



11304 81073117064900001401645225571457008 



11305 01073117004800001402046225571457008 



11386 01073117004038801404846225571457888 



11387 01873117004000001403046225571457000 



11310 01073117084008801403246225571457888 



iQrd'iriary cods starts here 



ILLINT: DCCONST 441 DESTCflRJ jUMPiHLTUOCi » 

iZama here if unknoMD device requests an interrupt. 



RESET: SLUI0! DEST[JMEn-P! * 
ALUt81 DEST(flf1EH-Pl S 

; RESET POL PTRS 
fiLUt01 OeSTIPC-FLfffiSl * 

;SET EXEC 
ALUC0] 0EST[nER6E] t 

;Sclect 18-bit addressing. 
DIOINST 3] i?OT[IDR-ROT] DESTIIDISP-REG] S 

;5ET IDISP BASE ADR 

SPEC t BUS-RESET] S 

.-Reset all I/O harAare 
ALU[01 aR-DEU-FROn-INTR DESTIDEV-fCR Q] S 

.-SELECT APR DEVICE 
OICONST 31.] RCT[LLOftD-ROT] LLDAO « 

;Init. the interrupt dispatch addresses of all devices to 
ILLEGAL. 
RESETl: DtLIT ILLINT] DEST [ DtAMErW 1 NORM $ 

ALU[0+1] DESTII3 DEV-AOR] LOOPtRESETl] $ 

:Set all device interrupt dispatches to be illesal. 
ALU[0] OeSTEDEy-ADRl PUSHJ [ APRRST 1 $ 

;Init. device APR stuff. 
OICOMST 1) DESTtDeV-ftDR] PUSHJ [ flAPRST ] NORM » 
Jinit MAP device 

ALU[0) 0EST[AR1 PUSHJ t SETrOJE ] » 
.-Disable ECC traps... 
.REPEAT 1 - WAITS [ 

DtMAStC 28.1 DESTCMAl PUSHJ ;fEMA0R-23BIT-fieSl » 

.-Sweep lower part of memory to repair ECC errors... 
];. REPEAT 1 - WAITS 
.REPEAT WAITS [ 

DEMASK 21.] DESTCrW] PUSHJ [MEMA0R-23BIT-AeS] $ 

fSweep both parts of ■enory to repair ECC errors... 
];[ 

DCnfiSK 21.] DESTtMA] PUSHJ(rEnAOR-23BIT-ABS) S 

jSweep both parts of meowr/ to repair ECC errors... 
]. REPEAT WAITS 
RSTCCL: DF/WT DIMEMl CESTCnEHSTO] » 

D[nA] mSK[23.] ALUtO-ll DeSTCnftl CONDCSIGNOFF] JUMPCRSTCCL] * 

DtCDNST 10] DESTtAR] PUSHJ [SETHOOE] NORM $ 

.-Disable oiap, EEC off, EXTD AOR off .enable traps 



:RESET EC 



ALU[81 
ALUI01 
ALU[0] 
ALUC0] 
ALU [ 8 J 
ALU[01 
ALU(8] 
ALUte] 
ALU[0] 
«.U[8] 
ALU[0] 
ALU[01 



;ik; sfEM 

DESTtAMEM- 
DESTIAMEn- 

DesTtmEM- 

DESTtAMEH- 
DEST[AfEf1- 
DEST[Artn- 
DEST(AMEf1- 
DESTCAflEtl- 
OESTCATEM- 
DESTCftriEn- 

DEST[Artn- 

DEST[AMEM- 



AeS ECC- 
ABS ECC- 
ABS ECC- 
ABS ECC- 
ABS ECC- 
ABS ECC- 
A8S ECC- 
ABS ECC- 
A6S ECC- 
ABS ECC- 
ABS ECC- 
ABS ECC- 



■NXnCNT 

Nxrcii ] 

■NXrD2] 
■NXMPC] 
KRXNT 
HRDOll 
HRD02] 
HRDPC] 
SFTCNT 
SFTOl ] 
SFTD2] 
SFTPC] 



] NORM $ 
NORn $ 
NQRn $ 
NORn S 

J fCRn $ 
norh t 

NORM S 
NORM $ 
1 NORM $ 
NORM $ 
NORM i 
NORn S 



PUSHJ[l1EnACIR-188IT] $ 



.repeat CTY t 

DCCONST 4] DESTIDEy-AOR] PUSHJtCTYRST] NORfl S 



ulCONST 4j DEST I DE v-ADR ] PJSHJ [CTYRST] pCRm S 

.repeat TII1ER I 
DtCCJCT 51 DeST[DEV-AOR] PUSHJITIMRST] NCRfl » 



DCCONST 5] DESTIOEy-ADR) PUSHJ [Tlr;,";ST) NORM S 

.repeat TAPE [ 
DCCONST 71 OESTCDEU-AORl PUSHJ I TAPRST ] NORM * 



DtCONST 7] OESTCDEU-AORj PUSHJ I TAPRST ] NORM $ 

.repeat OSi< [ 
DtCONST 101 DESTCDEU-AOR] PUSHJ [ OSKRST 1 NORM » 



DCCONST 10] DESTCDEV-AOR] PUSHJ C DSKRST 1 NORM $ 

.repeat OLS C ; 9 JAN 88 BO 
DCCONST DLSDEy] DEST C E3Ey-fO? ] PUSHJ C DLSRST 1 NORM S 



repeat DCA C ; 29 JAN 81 TVR 

DCCONST DCA-UOEU] DEST C DEV-AOR ] PUSHJ t DCARST ] NORM $ 

[; 23 JAN 81 TUR 

DCCONST OCA-UOevi DESTtDEV-ADR] PUSHJ tXARST] NORM t 
.repeat VC C ; 24 AUG 80 BO 
DCCONST VCDEV] DESTCDEV-AOR] PUSHJCVCRST] NORM S 

C : 24 AUG 30 SO 

DCCONST VCDEV] DESTIDEV-AOR] PUSHJCVOJST] NORM S 
.repeat IMP C ; 23JAN80 «_B 
DCCONST 16] DESTCDEV-AOR) PUSHJCIHPRST] NORM S 

repeat LPT ( 

DCCONST LPT-UDEV] DEST C OEV-ADR 1 PUSHJ C LPTRST 1 NORM $ 
■A 

DCCONST LPT-UOEUl CXST C DEV-ADR ] PUSHJCLPTRSTl NORM S 

II DT 



SLOE Harch 23. 19B4 21 = 82:27 file STRING: — of — F+lMf 



e3rr«317 
e3aie317 

esmeai? 

6300317 
0300317 
03 0317 
03 0318 
03 0313 
03 0320 
03 0321 
03 0322 
03 0323 
03 0324 
03 0325 
03 03ZS 
03 0327 
03 0328 
03 0323 
03 0330 
03 0331 
03 0332 
03 0333 
03 033+ 
03 0336 
03 0336 
03 0337 
03 0338 
03 0333 
03 0340 
0i 0341 
03 0342 
03 0343 
03 0344 
83 0345 
03 034G 
93 034? 
83 0348 
83 8343 
83 8350 
03 0351 
03 0352 

03 ftma 

03 8354 
03 8355 
03 0356 
03 0357 
03 8358 
83*0359 
03III035S 
03 8368 
03 0361 
03 0362 
03 0363 
03m0364 
03108364 
83 8365 
03 8366 
03 036? 
03 0368 
33 8353 
83 0370 
03 0371 
83 0372 
03 0373 
83 0374 
83 8375 
83 8376 
83 8377 
83 8378 
83 8379 
03 0380 
03 8381 
83 8382 
03i>!8363 
03<n0383 
03 0384 
83 8385 
03 0386 
83 8367 
83 0388 
83 0369 
03 0390 
03 0391 
03 0391 
03 0392 
03 8393 
03 8394 
83 8395 
83 8396 
83 039? 
83 839? 
03 0396 
03 0393 
83 8400 
03 0401 
03 0402 
83 8483 
83 8484 
03 0485 
03 0406 
03 0486 
03 040? 
03 0*08 
03 0409 
03 8410 
03 8411 
03 0412 
83 0412 



11311 818731 17804000001486045225571457000 

11312 818731 170e40e0001406e4S22S5?!457000 

11313 818731 l?0e4000eei48S84522S5714S?000 

11314 81873117804000001401446225571457088 

11315 81873117004000001461445225571457000 

11316 810731i78&T08eeei48244S22S57145?eee 



11317 01073117000020S3S41E16222S431456000 

11320 01073137008822423400362025571456000 

11321 01073117000022643416162025431456000 

11322 18823117000006055416156365431415080 

11323 01073117000006855415162365431416000 

11324 03066100000808081416162025471356000 
U32S 00073117000522643416162825431456000 

11326 01073117000022655416162825431456000 

11327 01073117000022655416152025431456000 

11330 55073117000606045415152325425215000 



11332 540731170008060554161S232S42S41E000 

11333 54073317000886855416152305425436008 



11334 54073117050606055416152325425516000 

11335 5407331705000605541K15Z38S425536000 



11336 81873117800006055415162^5431416000 

1 1 337 540731 1 78000060554 1 6 1 523254204 1 6000 



11340 540733178000068S541E16232S425415008 



11341 54873117000006055416016325425416000 



11342 81873117800022665416156025430456000 

11343 54073317000006055416152305420436000 

*.'" ■'- 

11344 71873117001400O014151622Z5631456000 

11345 55073111200007655415162325421216080 



11346 01873137000680031416162367831416000 

11347 01073117000006054016022365411417000 

11350 01873117001408831415154365431416000 

11351 01073188400600001075162025421456000 

11352 01024117000006055416062365431417000 

11353 81824117800606055415050425431417800 



I 
lifiarSZ TVS 

DtCONST 30] DEST[DEy-ftORl PUSHJ[PflNRST] NORtI $ 

DtCDfET 30] DESnCey-ftOR) PUSHJtGSNHST] NDRfl $ 

DtCONST 30] DESTtDEy-flDR] PUSHJ [ fiSRST ] NCRH % 
1 

DICONST 61 OeSTtDEV-ftOR] PUSHJtCLKRST] NORM $ 

DtCDfBT 6] DESTCDEV-flORl PUSHJITYHRST] NORtI $ 

D[ CONST FNTDEV] BEST [ DEU-ADR ] PUSHJ iFNTRSTl NCRM 
;«» Why tuo calls to DLSRST??? TVR/Jun82 
.repeat DLS [ 

DtOWST DLSOEV] DEST[DEV-«R] PUSHJ[DLSRST1 * 



1 



Hd tnid lldbl BlB/illf-BMWBMtWiTj'Ubab^Sx'Bdl'H AWB 
03 8414 



PLEHJt PI -RESET! S 



OtCDNST 11 DESTIflR] JUHPIHTLXl * 



;Here is the service code for main neiDor>' loading by the CC. 
rtUfllT: JLTPI.] S 

;Mait for console con^iuter to 'Bir a 'DILITl EESTIQl' 
MLWRT: flLUCQ] DESTtHEflSTOl SEL-PC LD-flfl $ 
istore the neu data. 
CONT S 

;preparc to fetch it (need adrs in hA in case Me wait) 
DF/WT DIMEMl ALUCDmQ] C0ND[-{BUS=8] JLTPCftEfS] ( 
;Stored ok? 

spec[pc+i] jufPcrtufliTi t 

:>'es. do some «ore 
HLERR: JLTPC.l % 

;No. lose big. 
JUfPC. - 11 $ 

;Persist even if CC loads MI. 

rSTRTi: OFRQ IDISF-RQ 5EL-fW LD-Hfl ID-tOI[01 S 
;FGtch and dispatch on first inst. 



COttlON EXIT POINTS FOR INSTRS. WHICH END WITH fl STORE TO fEMORY 



.pair 
[:. \ 2 + . 

JSEOI: 
HEMST: EOI « 

D[i=iRI CESTtMEMftCl EOI t 
;Here to finish a store and proceed, 
.pair 
[:. \ 2 + . 
IFIX-SEOI: 

TRP-CTL I TRAP-FIX RE-XCTl EOI » 
TRP-CTL!TRftP-FIX RE-XCTl DtftRl DESTrMEWCI EOI $ 
;Here to finish a store and proceed, but coll a fixup routine 
:if thie store fails. 
SNEOI: CDNT $ 
NEOI S 

ftSEOI: 

HEMSTi^: DIARl DESTtfCl EOI * 

:Here to finish a store and also store result in AC. 
CflSEOI: 
HEnSTCfl: 

D[f«l COND-AC-STO EOI $ 

:Here to finish a store and conditionally store result in AC. 

;Here to store AR into loc. indi acted by ttA and go on to next instr. 
;Get here by ... DEST[AR1 WK28 LBJUnPISXEOIl % 

. oair 
[':. \ 2 + . 

]SXEOI: IFRQ DIAR] DEST [ MErtSTO ] NORfl JUTPtSEOI] $ 

itVi adcb'essed real men. 
MACSTO: D[AR] DESTtMEMAC] NEOI $ 
;!1A addresses an AC. 

flAIN: ;Coine here to resume execution of macro-code at (PC). 
REENABLE-TRAPl DtPC] DE5T[ttft] PUSHJ [MEflADR- 186111 $ 
;Let traps happen again ^ put PC Mherc Me can use it? sel. 18-bit 
addrs 

COND[-riA<20] ABORT-rt5R-04 ID-CONDI 1] ttA-NEOI $ 
;Fetch instr. and dispatch. 
;Trap to loc 04 if dispatchins into AC's. 

;Come here to update the ftftri copy of CPU-FIODE reg. (data in AR) 

;3nd CPU-nODE Jtself. All changers of CPU-MODE should call this routine. 



SET-COTJTEXT: ;Special entry for updating context registers only. 
DCATIEn-ABS APR-raJEl DEST[AR3 S 

;Set »ode to current value... 
SETtCDE: ;Nornal entry. 

OrAR] R0T[CPU~!10OE-R0T3 DESTCCPU-nOOE] CYLENIEOBUSI $ 

;Set the CPU MODE register. 
REENABI.E-TRAP1 DEAR) DEST t AflEM-ABS APR-MODEl NORM $ 

;Update softMare copy* enable traps if that siode bit is 
noM on. 

DtAR] ROTtaS.] C550 C0ND[SIGNON] JUTPESETMDl] $ 

;JuEnp if m^ is now on. 
ALUC01 OESTCUSER-CTXT] NORM $ 

;riap is off. Set BOTH context registers to 0» in order 
ALU[01 DEST [ EXEC -CTXT] NORTI PDPJ $ 

; to cause neaory references to be to the bottom Z56k 
only. 
StTit;!: DiHritri-HSS riHP-uCTXTj RuTidS. - is. J DESTiuSER-CTXT J NuRn i 
;ttap Is now on. Set up the context reqtsters- 



SLOE riarch 23, 133* 21:02:3+ file DSK : F4BfSE . SLQ — of — F+1(»F 

03 0+20 11357 0102+117001222735+16072025+31+57000 ALU[0] DESTtfOGEl MflP-ENflBLE JUflPICPCPJ] $ 

03 8+21 

03 0422 nEffflOR-23BIT-flBS: :Enter 23-fait absolute address aode. 

03 0+23 11360 9!0?211?00!322735+0^72025571+570e0 flLUt-11 DESTJflERGE] mP-DISABLE JUIPECPOPJ] t 

03 0+2+ 



SLOE March 23, 1984 21:02=34 file DSK:F41l=lX.SL0 -- of -- F41NNF 

01 8062 >'' F^BhSE-SLu contains the stuff neecied ay everbody- 

01 0063 

01 0064 .Insert F4I?ST 



SLOE March 23. 1384 21:62:34 file DSK:F+INST.SLO 



of 



F'VINNF 



ei eeei 

91230082 

eiiii00e2 
ei 0003 

01 000'* 

01 eees 
01 eeeE 

01 0007 

ei ee^ 
01 eeos 

01 0010 

01 0011 

01 0012 

01 0013 

01 00H 

01 0015 

01 0016 

01 0017 

01 001S 

01 0019 
01IB0020 

01n0020 

01100021 

01m0021 

01III0021 

eiiB002i 

01n>0e21 
01n0021 

eiB>0e2i 
ei 0022 

01 0023 
01 0024 

01 002S 

01 0026 
01 0027 
ei 0028 
01 0029 

01 0030 

01in0027 
01m0027 
01m0027 

01KI0027 

0111.0027 
01B0027 

01IB0027 

01i»0027 

01B0027 

01i«0027 

011.0027 
01D0027 

01 100027 

eiB0027 

01m0027 
01III0027 
01ni00Z7 
01»0027 
01«i0027 

01B0027 

01a0027 
9Xwo&Z.7 
011.0027 
01m0027 
01m0027 
01B0027 
01m0027 
01i«e27 
01*0027 
01B0027 
01n0027 
01B0027 
01>>0027 
01n0027 
01n0027 
01.10027 
01n0027 
011.0027 
01i>0027 
01a0027 

01B0027 

eiB0027 
01a0027 
eia0a27 
01>0027 
011110027 

01B0027 

01a0027 
01*0027 
ei>0027 
01H0027 
01II0027 
ei>i0027 

01*002? 

01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 
01*0027 



06000 01073117000010117416162025431456000 
0G001 0107311700001011741B1620254314S6000 



0G002 0107311700800000141E1G202S43145S000 

06003 01073117000000001416162025431456000 

06004 01073117000000001415162025431456000 

06005 01073117000000001416162025431456000 

06006 010731 1700000000141616Z02543145G000 

06007 01073117000000001416162025431455000 

0S0I0 010731 170000000014161B202S431456000 
0G011 0107311700000000141516202543145G000 

06012 010731 1700000000141B16202S43145B000 
0S013 0107311700000000141E1G2025431456000 

06014 01073117000000001416162025431456000 
0G015 010731170000000014161G202S431456000 

06016 01073117000000001416162025431456000 

06017 010731 1700000000141615202543145G000 

06020 01073117000000001416152025431456000 

06021 01073117000000001416162025431456000 

0G022 010731 1700000000141616202S43145G000 

06023 010731 1700000000141616202543145S000 

06024 01073117000000001416162025431456000 

06025 010731 1700000000141616202S431456000 

06026 0107311700000000141G16202S431456000 
0G027 01073117000000001416152025431456000 

0G030 01073117000000001416152025431456000 

06031 01073117000000001416152025431456000 

06032 01073117000000001416162025431456000 

06033 01073117000000001416162025431456000 

06034 0107311700000000141G16202S431455000 

06035 01073117000000001416162025431456000 

06036 01073117000000001416162025431456000 

06037 01073117000000001416162025431456000 

06040 010731 1700000000141816202543145E000 

06041 01073117000000001416162025431456000 

06042 01073117000000001416162025431456000 

06043 01073117000000001416162025431455000 

06044 0107311700000000141G16202S431456000 

06045 0107311700000000141616202S431456000 

0G04G 01073117000000001416162025431455000 
06047 01073117000000001416152025431455800 

06050 01073117000000001415152025431456000 

06051 0107311700000000141515202S431456000 

06052 01073117000000001415152025431456000 

06053 01073117000000001415152025431455000 

06054 010731 1700000000141616202S4314S6000 

06055 01073117000000001415152025431455000 

06056 01073117000000001416152025431455000 

06057 01073117000000001416152025431455000 

06060 0107311700000000141616202S431456000 

06061 01073117000000001415162025431456000 



. use t NORMAL 1 

L xliSt 

1 ist i 

;;; ULtOs and unassigned opcodes 

.define Il.LOP Inl [.repeat n [ 

JUrPdTRflPl $ 
]] 



.define KO-OP [nl [.repeat n [ 
HEOI * 
NEOI S 
11 



; is unassigned 
.opcode[0001 
[xlist 

list 1 ILLCP [11 

[ . repeat 1 [ 

JLIHP[nRftPl S 
JUrP[ITRftP3 $ 
]][ 

JUnPdTRftPl s 
JUMPdTRflP) % 
] 
; LUUO dispatch (codes 001-0037) 
. repeat 37 [ 

JUnP[LUUO] » 
JUMPILUUQI $ 



JLW»[Llin $ 

jurp[Luuoi « 



junp[Luuoi $ 

JUMP[LUU01 » 



JUMPdUUOl » 

junp[Laiai » 



JLTPCLUUGl $ 
JUMP[LUU01 t 



junPfLuuoi s 
jurp[LUU0i » 



JUMPCLUUOl t 

jijnp[La€] $ 



JUMPtLUUOl $ 

junpcLuuoi $ 



junpcLuuoi t 
junpcLuuoi * 



JUnPtLUUO! $ 
JUMPtLUUOl S 



jurf [Luuol « 

JUHPSLUUOl * 



JUMPtLUUOl « 
JUMPtLUUOl S 



junptLuuoi $ 
jurp[Luuoi $ 



junp[Luuo] $ 
jurp[Luuoi s 



junp[LUUOi * 
junp[Luuoi * 



junp[Luuoi * 
junP(Luua] t 



JUMPtLUUOl t 
JUtPILUUOl « 



junptLuuoi s 
jurpiLuuo) » 



JUMPtLUUOl * 
JUHPILUUOl « 



JLnPILUUOl « 

junptLuuoi $ 



JUMPtLUUOl S 
JLTf tLUUOl « 



JUMPtLUUOl $ 

jurptLUUOi $ 



JUftLUUOl $ 
JUMPtLULDl « 



JUTf tLUUOl « 
JUMPtLUUOl $ 



junptLuuoi « 

JUMPtLUUOl « 



01*0027 06063 0107311700000000141515202S431456000 



JUMPtLUUOl $ 



SLOE March 23, 198+ 21:02:41 file STRING: 



of — F41NNF 



81riie827 368S7 81673117360086081415152825431455808 

eia8e27 

8i«8827 85378 81873117888888881415152325431455980 

01B0027 86071 81073117080000001416152025431456080 

01b8027 

81B0027 06072 81873117800000081415152825431455000 

01B0027 8G873 81873117800000001416162025431456008 

01n8827 

01II10027 06074 8187311700000000141515282S43145S800 

81ii>0e27 86875 81873117000880081415162825431456080 

ein8027 

01»0027 06076 81073117800000001416162025431456880 

81B0027 86877 81873117888800001416162825431456808 

01 8827 

81 8028 

0lB8e23 

81>i002a 

81 8030 

01 0031 

81 8032 

811110833 

01m8e33 

81»e033 06188 0ie?3117000e8eeei415162825431456000 

81.0033 06181 81873117800000001416152025431456000 

01ai0033 

01»0033 06102 81073117800088881416162825431456888 

0108033 0G103 01073117800000081415162025431456000 

81 ■10033 

81i«0033 06104 81873117000080001415152825431456000 

011110033 06105 0:073117080800001416162025431456000 

01n0033 

01»i0033 86186 81873117888800001416162825431456000 

81in0033 06187 81873117800000001416162825431455000 

01n0033 

011110033 06110 01073117000080001416162825431456000 

011110033 06111 81873117800000001416152025431456000 

81ii>0e33 

81«e033 06112 81073117000000001416162025431456000 

01B0033 0G113 81873117000000001415152825431456000 

81a8833 

81b8033 36114 8187311700000000141S16202S431456000 

01iii8033 06115 81873117800000001416152025431456000 

eiiM033 

01i!i0e33 06116 01073117000088001415162025431456000 

eiB8033 86117 81873117800000001416162025431456000 

01110033 

01»0033 06128 81073117880088801415162025431455800 

01B0033 06121 01073117000000001415162025431456888 

eine833 

81m0033 06122 81873117888800001415162825431456888 

81i»8833 86123 01873117800000001415162025431456800 

81118033 

01010033 86124 8ie7311700M000014161B282S4314S6000 

01iii8833 86125 81873117800000001415162025431455000 

81iii8033 

01m0033 06125 01073117000000001416162825431456000 

011110033 05127 81073117000000001415152025431455000 

01in0033 

011110033 06130 01073117000080001416162825431456000 

811118033 06131 81873117808088801416162025431456888 

01018033 

01iii8033 86132 81873117880088001416152025431456000 

81010033 06133 81873117888888801415162025431456088 

8 1018833 

81B0833 36134 81873117838000001416162025431455000 

01110033 06135 01073117000008081416162825431456888 

81010033 

81018833 86136 31373117888680001416162025431456000 

81B0033 06137 01073117000000001416162025431456800 

0lB8e33 

81010033 06140 01073117000000001416162025431456000 

01010033 06141 01873117800000001415152025431456000 

01B0033 

81010033 06142 01873117000088881416152825431456880 

81010033 06143 01073117000008881416162825431456800 

81n8033 

0lBi8033 86144 01373117800000001415152025431456008 

81010033 06145 01073117000000001415162025431456000 

01010033 

01010033 06146 81073117000080001415162025431456000 

01B0033 06147 01073117000000001416162025431456000 

01010833 

81010033 06150 01073117000080001415152025431455000 

01m0033 06151 01073117000000001416152025431456000 

01010033 

81010033 06152 01073117888888801416162025431456800 

01100033 06153 01073117000088001415152025431456000 

01010033 

01m0033 06154 01073117000808001415152025431456000 

01010033 85155 31073117880888081415162825431456000 

01m0033 

81010033 06156 81873117088000001416152025431456000 

01010033 06157 01073117800000001415162025431456000 

01010033 

01«i8033 86168 81873117380000001416152025431456000 

01010033 06161 01073117888800801416162825431456880 

01010033 

01010033 06152 01073117000000001416152025431455000 

01«ee33 06153 01073117088800001416152025431455000 

01010833 

81108033 36164 81873117880000001415162025431456800 

81di8033 36165 01073117000000001415162025431456800 

01010033 

01m0033 06156 01073117000600001416162025431456000 

01010033 06167 0107311700008000141S1628Z5431456000 

01010033 

81oi8833 86170 01873117000000001415152025431456000 

01010033 06171 01073117000000001415152025431456000 

01010033 





JUriPii isifij 


« 


It 








JUfPiiiiin] 






JUMPCLUUD] 




3! 








JunPtLUUO] 






JUrPELUUO] 




H 








junprmni 






JUnP[LUUDj 




][ 








JUnPtLUUD] 




] 


JUMPCLUUG] 





; HUUO dispatch (codes 040-077) 
.opcode [040] 
[xlist 

list ] .repeat 40 [ 
JUMPtmUOl t 

JunP[rujO] s 



01010033 06173 01073117000000001415152025431456000 



JunpcrtAJO) $ 
juwcnuuo] * 



JiwtnuuG) $ 
junpcmxio] $ 



JLTPlnULD] t 



JUfPtriJUOl * 

JunPtnuuDi t 



JuriPtnuuQ] t 



jUMPcnuuoi $ 
JL«p[Huiioi $ 



Junp[nuuQi $ 

JLWrMUUO] $ 



junptmuo] $ 

JlJHP[MUUO] $ 



juMPinuuo] t 

JUMPCtDUO] $ 



JUMPtnuuoi s 

JUMPtMUUO) $ 



juTFtmini $ 
jmptnuuQ] s 



junp[nuoo) $ 
JUMPinuuo] s 



jUMP[Mijijn] $ 
JUI1P[M(JU01 $ 



ju«p[muo] $ 
jutptrtjuoi $ 



JUnPEMULDl t 

jurpifuuoi » 



JUff [nuuo] t 

JUMP(nULIO) $ 



Ji*p[riuuo] $ 
junptnuxi] s 



junPcnuLioi s 

JUf!P[f1UU01 $ 



junp[nuuo] s 
junp(nuo) $ 



junptnuuoi t 

JUflPCMIUOJ $ 



jufptnuuoi $ 
JUMP[nuuo) $ 



jufipimuoi t 
JUMPinuuo] $ 



JUflPtflUUO] s 
JUMPCfUJUO] $ 



JUMPdlUiXU t 

junp[riuuo] $ 



JuriP[fiuuo! t 
JLmptruuo] $ 



JunPinuLDi t 
junptrujo] % 



Jurp[tiuuoi t 
jurprnuuoi s 



junptrmuoi $ 
jUMPinuuo] $ 



junpinuuoi t 
junptmjuo] s 



junfinuuuj % 
JUnPtMUUQl s 



SLOE riarch 23, 13B^ 21:a2:+B file STRING: — of — F^INNF 



eiBaeaa 
eiaeesa 

ei 8833 
81 8834 
81 8835 
eii>883G 
81 8836 
81 8837 
81 3838 
81 8833 
81*8848 
81*8848 
81i>8e4e 
81 8041 
81 8842 
81 8843 
811118844 
81*8844 
81 8844 
01 0845 
81 0846 
81 8847 
81 8848 
81*0843 
81*0043 
81 0058 
81*8851 
81*0851 
81*8851 
81*0051 
81*8851 
81*8851 
81*8851 
81*0051 
81*8851 
81*8851 
81*8851 
81*8051 
81*8851 
81*8851 
81*8051 
8l£8851 
01 8052 
81 8053 
81 8854 
81 8055 
01 8056 
81 8856 
81 8057 
01 8858 
81 8853 
81*8868 
81*8860 
81*0068 
81*8860 
81*0060 
81*0860 
81*8860 
81*8860 
81*8860 
81*0060 
81*8868 
81*8068 
81 8857 
81 8858 
81 8853 
81 8868 
81 8868 
81 8861 
81 8062 
81 8863 
81 8864 
81 8865 
81 8866 
81 8067 
81 8868 
81 8869 
01 0070 
01 8871 
01 0072 
01 0072 
01 0073 
81 8074 
01 8075 
01 8076 
01 0077 
01 8078 
01 0079 
01 0098 
81 8081 
81 8082 
81 8863 
81 8884 
81 8885 
81 0088 
81 0087 
81 0^8 
81*8089 
81*0089 
81*8889 
81 0898 
81 0893 
01 8891 
81 8092 
81 8893 
81 8094 
81 8094 
01 8095 



86176 
86177 



06Z16 
06217 



81873117808000881416162025431456880 
81873117880000001416162025431456000 



01073117000088800016012025771457000 
010731 1700000000001S012025771457000 



04053 
04054 



01873112488880001416152225431455000 
5487331 78000060554 1 6 1 623274204 1 6000 



06220 
06221 



06222 
05223 



86224 
86225 



86226 
0622? 



81873117800010117416162025431456000 
01073117800810117416152825431455888 



81873117000010117416152025431455000 
010731 170000101 1741616282S43J4S5800 



81873117000010117415162025431456000 
01073117000010117415162025431456000 



018731 170080181 17415162825431456000 
01073! 170080181 1741S1B202S43145S090 



06230 
06231 



06232 
06233 



06Z34 
06235 



86236 
86237 



010/31 i ^W0eiMll i'4lbi5282S43i4b600e 
91073117000010117416152825431456000 



01073117000019117415152025431455000 
01073117000819117415162025431456000 



01073117000010117416152025431456000 
01973! 17809e!0n741S!E282S4314SS88e 



81873! 170009101 17415152025431456000 
01873117000010117415162025431456000 



8S248 
06241 



86242 
86243 



138733!7900630eei41S!S292547135S08e 
1 18433178880888014 15152981431456000 



13073137000888881415162025471356000 
11033137000800001415162005431456000 



04055 56073317000006055415162315460316000 



04056 01033017000006055416162345437416000 
94057 54023317000006055416152315420415000 



04060 83171393088000001415162115461356000 
04051 81132803000000001416162105421456000 



JUnPEMUUOl t 

] 

; Other unssstgned epccdes 

.opcode[187] [xlist 

list ) ;RDmEri 

DtIR] RQTIflnEM-P-ROT] DEST[(»tn-P] NORM JUnP[RDftrEHl % 

;Get eff. sddr. t= use as flfEM addr. 
DCIR) ROT[PinEn-P-ROT] OESTtflftn-PJ NORd JirP(RDflfEH] $ 
-rcloc 
[.USE [NORMAL] 
[ xlist 

list 1 JRDAMEn: 

.repeat Maitsfix [ 

aWD(USERl PUSHJ[CXIDTU3 NORM t 
];[ 

CONDtUSER] PUSHJ[D;IDTU] NORfl $ 
1. repeat uaitsfix 

D[flnErWI DESKflCl NEQI « 

;Rcturn contents of flfttt loc. in AC. 

;110-113 (HISSING FLOATING POINT STUFF) 

.opcode[1101 
txlist 
list : 

ILLOP [4] 
[.repeat 4 ( 

JUrP[ITRAPl S 
JUrf=£ITKftP3 S 



]][ 



JUnP[ITR«'l $ 
JUMP[ITRftPl $ 



JLJfP[ITRflP] $ 
JLjr*'[ITRftP] S 



JUMPdTRftP] S 
jmP[ITR«') * 



JLrP[ITRftP] $ 
JUfPdlRflP] X 



] 



;114-1!7 

.opcode[114] 
[xlist 

list 1 ILLOP [41 

[ . repeat 4 [ 

JUWtlTRflP] S 
JLWdTRflPl $ 



nt 



JUhpLliRAP] > 
JUnPtlTRflPl t 



JLir!P[ITRflPl » 
J[JMP(ITRtf'l $ 



JLTfllTRaP) » 
JUnPIITRflP! $ 



JUHP[ITRflPI $ 
JUrPEITRflP] I 



1 



;120-122 DttWE.DrnVN.KIFIX 

.opcode[120) 
[xlist 

list 1. repeat DflOVEFLG [ 

DF/WT DtMEMl DESKl^l HA-Mfl+l JlJMP[CinOUEl 1 S 
flCSELim.flC) flLUIfl) DEST[B1 Mfi-Mfi+l NORM Jt«'[OnOVE21 $ 

DF/WT m-Mft+1 DIMEMl DESTEflRl JlJhP[DMOUNl 1 % 
Mfl^rW+l ALUIMEnflC) [5EST[flRI JL»1P[DreWN21 $ 

.reloc 
DMOyEl: DF/IF D[MEM) ACSELtfiC+1) CESKflCl NEQI $ 
DM0yE2: ALUEMEMAC] DESTtQl SHORT S 

ALUtO! flCSELIftC+lJ DESTIACl NEOI S 

DrCWNl: DF/WT DIMEM) ALU[0-D1 flCSEL[AC+l) DEST[fCl C580 CONO(CRY0) 

LBJU(1PIDnOUN31 * 
DnOUN2: fCSEHftC.ml f)LU(0-PCl DEST[Q) CSSe COM3ICRY9] LBJUMPIDM0UN4) $ 

.even 
DMOVMS: DLflRl flLU[NOTD] DESTlaC] NEOI i 

OtflRl flLU[0-D) CESKfCl NEOI $ 
.even 
DnOUN4: OtPlfil ALUtNOTDl DESTtPlCl NORM JL»1P[DnOyN51 t 

Dtflfil flLU(0-O] DEST[flCl NORM JUMP[DM0yN5) t 
DM0VN5: flLU(Ql ftCSEL[AC+!) DESTlftC] ICOI » 
1;( 

DF/WT DfrEMl DESTEflCl MA^MA*! JLB1P[Dr!0yE! J S 

ACSEL[Mfl,flCl ALUtfi) DEST[B1 MA^Mfl+1 NORM JLrP[DnOVE21 » 



DF/UT MA*Mrt+l DIMEMl DEST[AR1 JUtlPIDMOUNl 1 S 
Mfi.Mfl+l flLUIMEriAC! DESTIARl JUnP[DnOVN21 S 

.reloc 
(.USE [NORMAL! 
[ xlist 

list 1 lonoyEi: 

ACSELtaCtl! DESTCflCi NEOI t 
DnOVE2: ftLUIMEMftCl DEST[01 SHORT $ 

ALU[Q] fCSELIfC+U DESTIflC) NEOI I 



DF/IF D[nEMl 



DMOVNl: DF/WT D[MEm flLU[9-D) l=CSEL[fC+l] DEST[«:i CS99 C0N0[CRY9] 

LBJUnPIDMOVTO! S 
DflOVNZ: ACSEL[flC,Mfl] PILU[0-«:i DEST[Q] C588 [:0ND[CRY81 LBJUnP[DM0VN41 $ 



01*0097 



SLOE Harch 23. 1S84 Z1:02:S9 file STRING: 



of 



F41NNF 



81 8101 
81 8182 
81 8183 
8! 8882 
81 8883 
81 8084 
01 8065 
81 8088 
01 8087 
01>0ee8 
01a0088 

01B0083 

01a0083 
ei>>0883 
01B0083 
81110083 
01110063 

01B00S3 

81 8030 

01 0031 

81 003Z 

81 0033 

81 8033 

81 8094 

81 8035 

81 009e 

01 0036 

01 0037 

01 0037 

01 0098 

01 0033 

01 0100 

81 8181 

81 8182 

81 0103 

81 8184 

81 8105 

01 0105 

81 8106 

01 0187 

81 8106 

01 8189 

81 8110 

01 0111 

01 0112 

01 0113 

01 0114 

01 0114 

01 0115 

01 8115 
81 8115 
01 0117 
01a811S 
0I1118II8 
0I1118II8 
01 8119 
01 0119 
01 0120 
81 0121 
81o9122 
0190122 
01 0123 
81 8123 
81 8124 
81n812S 
81aei25 
81 8125 
01 8127 
81 0128 
01 0111 
01 8112 
81 8113 
81 8114 
81 8115 
01 0116 
01 0117 
01 0118 

01 0113 
01 0120 

01 0121 
81 8122 
01 0123 
01 0124 
01 0125 
01 0125 
01m0127 
01H10127 
01B10127 
eim0127 
01m0127 
611.8127 
91a0!Z7 
01.8127 
01110128 
01«0128 
01010128 
01m0128 
01niei2a 
01ni812e 
eini01Z8 
81 8129 
81 8127 
81 0128 



04064 e!877317000e000014151S28254314S6088 
8486S 8117!.31708ee8800141ElS2025431456000 
84066 540233!700ee060554!61S23154204160e0 



06246 81073117800818117415162025431456008 

06247 01073117000610117416162025431456088 



86258 81033117000000001416156025431456000 
86251 11843317000000001416162005431456000 



86252 0113200300000M8141616211543145E000 
0S2S3 81132083888088881416162115431456808 



04067 11033117000822675416156015431456880 



84078 81833817000006055415162355437416000 
04071 54023317000006055415162305420436000 



84872 81837131800600001416156125431456000 
04073 81132131888080881416156125431456888 



04074 11023117880622675415156825431456888 

04875 1187331 70000060554 1 E 1 623454 3 1 435000 

04876 54023317000006055416162305420436000 



06536 01073117000010117416162825431456000 

06537 01073117000610117416162025431456000 



]DnCIVN4: DCflfil «.U[SOTD] [XSTIflCl NORM JUMPIDreWNSl $ 

D[ftRl ftLU[0-D] DEST[flC] NOW JUTIPIDMOVNS} t 
OnOVNS! ftLUEQ] fCSELtflC*!! OESTCfCI NEOI S 
]. repeat WOVEFLG 

.repeat 1 - DflCWEFLG [ 

ILLDP [21 
1;. repeat 1 - DflCWEFLG 

■ opcode: 123] 
[xlist 

list 1 ILLOP Cll 

[.repeat 1 ( 

JLJrt'[ITRAPl S 
JLTPlITRflP] S 
!][ 

JLrP[ITRflP) S 
JLrP[ITRflP] $ 
) 
;124-127 l»tlVEH,[5nOVM1,FIXR,FLTR 

.opcode[124] 
txlist 

list 1. repeat [JOOWEFLG [ 

ALUtflCl DEST[nEHST01 JUnPtDfWEnil $ 

ACSEL[AC.Hftl ftLUIfll C£ST[8] MfKMfl+l JUMP [ Pf1VEfl2 ] $ 



;0mUE(1 



m;^l[«:+ii fiLU[e-M;) ceskqi ccwd[cry01 LBJunpconvwiii s 

:Df1CMr 

HC5ELiHC+i] hLu[0-hCj DESTiuJ C(Mj[lRt0j LBJUfiPEijilvwil] % 

.reloc 
OnVEMl: MA-MA+l flCSELEftC*!] «_U[«:] DEST ( tIEIISTO 1 JLWtSNEOIl S 
OflVEMZ: fiCS£LIAC+l] ALU[fCl [)EST[CI1 SHORT % 
«_U[Q] DESTEMEMflC] NEOI » 

.even 
tJHUNHl: ftLUINOTfC] DESTirtllSTO flRi NORM COND[m<20] LBJUnPtDrM*131 S 

flLU(0-AC! DEST[rEnSTO flRI NORfl COND[m<20I LSJUnPEDnVNfHl $ 
.even 

onvMi3: rw*m+i flLU[Q) dest[memsto) jurpistcon $ 

Hfi^Mft+l DEftRl OESTrflEMAC] NORM $ 
flLU[Q] DEST[rEn«:i neoi $ 



];[ 



flLUtACl DEST[HEnSTO] JLrP[DnVEMll t 

«:sEL[«:.nfli flLU[i^) dest[8) nfwifi+i jutf>[DnvEn2i * 



;DnoyEH 



:DHOUNn 



flCSEL[ftC+ll flLU[0-flCl [)EST[Q1 CONDICRY0] LBJlW[DHVNnil S 

n 

M:SL[f)C-Hl ftLU[0-M:] [3EST[Q) COND[CRY0] LBJUnPEOUVMIl] $ 



.reloc 
[.USE[N0Rt1«.l 
[ xlist 

list ) ][)riuEni: nfl*nfl+i 

ACSEL[flC+n flLU[ACl DESTtrCnSTOl JUrPESNEOIl $ 
DnyEI12: fiCSEL[flC+ll ALU[ftCl DEST[Q1 SHORT S 
flLUEQ] DEST[l1EmCJ NEOI % 
. even 
[:. \ 2 + . 

l[»1VNni: ftLU[NOTAC] DESKMEnSTO flR] NORM COND[m<20] 

LBJunP[DnvNii3] $ 

ALU[0-AC1 C€ST[flEnSTO flR) NORtl COND[I1A<201 L8JUnP[[X1VNn31 » 
.even 
[:. \ 2 * . 

]DnyNM3: MA-tlft+l ALUtQI DESTEMEMSTQ] JUW[SNE0I1 $ 

tW»nA+l D[AR] OEST[«EnflC] NORM $ 
ALU[Q1 DEST[f1E(1«;] NEOI t 
]. repeat DMOVEFLG 
.repeat 1 - DMOVEFLG [ 

ILLOP [2] 
);. repeat 1 - DMOVEFLG 

;247 and 257 defined in f4au9 if getting augment intructions 



.repeat 1 - flUGGYF [ 
-repeat 1 - WAITS [ 
.opcode[247] 

ILLOP 111 
1;. repeat 1 - WAITS 

.opcode[257] 

ILLOP [1] 



.repeat 1 - WAITS [ 
.opcode [2471 

ILLDP (11 
];. repeat 1 - WAITS 



;KAFIX on appropriately modified KA-18's 



;KflFIX on appropriately modified Kft-18's 



-opcode [257 3 
[xlist 

list ] ILLOP [11 
[.repeat 1 [ 

JUMPIITRflP] $ 
JUMP(ITRAP) t 
]][ 

jmPdTRAPI t 
JUMPIITRAPl $ 
1 

1. REPEAT 



SLOE March Z3, 198+ 2l!03:e8 file OSKrFtlNST.SLO 



of — F+INNF 



02 8129 

a2iiei3e 

9Zii>ei3Q 
82316130 
92 8131 
82 8131 
82 8132 
82 8132 
82 8133 
82 8134 
82 8135 
82 8136 
82 8137 
82 8137 
82 8138 
82 8139 

82 eue 

82 8H1 
82 8H2 
82 8143 
82 8144 
82 8145 
82 8145 
82 8146 
82 8147 
82 8148 
82 0149 
82 0150 
02 0151 
02 0151 
82 0152 
82 8153 
82 0153 
82 0154 
82 0155 
82 0158 
02 0157 
82 0158 
82 0159 
02 01B0 
82 0151 
82 01B2 
82 01E3 
82 0164 
82 8165 
82 0166 
82 0167 
82 0168 
82 0159 
02 0170 
02 0171 
02 0172 
02 0173 
82 0173 
02 0174 
82 0175 
82 0176 
02 0177 
02 0178 
02 0179 
02 01S0 
02 0181 
02 0162 
02 0183 
02 8184 
82 0185 
02 0186 
02 0187 
02 0186 



04077 71073117008800061410152225571456000 



04100 010G41170000060S541E1SG3S5771416000 

04101 71873117000806055410362365571416000 

04102 01073117000000001415162025431255000 



04103 71073117000000001414162025571456000 



04104 71073117000006055410162365571415000 

04185 0107303700000G0S541B16236463141S000 

04186 01065117000000000740242225571457000 

04107 01054117000006055415156365771416000 
04118 11073117000000001415162025431456000 

04111 01073117000086055415152365431215888 

04112 71073117000006055415140365471516000 

04113 01073017000000000021162365531416000 

04114 01066100200000000222362025471556009 

04115 81073817000000000055162365531415000 

04116 01066100200000000222362025471556000 



04117 6107Z1170000060S541B14636563741B000 

04120 5407311700000605541604232S4ZS417000 

04121 01073817000006055414152365431415000 

04122 01873100200000000552352025771455000 

04123 81873117000000001416162025431455000 

04124 81873817000000001414152025431456000 

04125 01073017000006054557762424731415000 



.reloc 

[.usECMORnnLi 

t xlist 

list J jLUuu: ulCuNST T0J 

DEST[l1fl] PUSHJtUUOPJl NOHtl » 

;5etup Mf^ for trap area and «ake aask for reBiovins 
index/indir . 

OtIR) ALUCDiO] OeSTCrEnSTDl NORM t 

:Store instruction uhich caused trap* 
DECONST 41] DESTtrW] NORM t 
DrRa JUMPiXCTll] S 

;Execute contents of (sane space) location 41< usually a 
JSR or 

;a HALT instruction 

ITRAPl: ;Ille9al instrs. come here froa ITRfiP. 

D[C0NST 601 DESTitiA] jufprrujon S 

;Ue Mill trap to loc. 60 of exec- node. 



nUUO: 
here. 



;Honitor UUOs (opcodes 040 - 077) come here. 

; Instruct ions which have decided they are illesal also com 



DtcoNST 401 oesTirwi * 

;Trap to location 40 of exec. mode. 
rUUOl: DtPC-FLftGSl DESTIQ AR] i 

;5ave PC flags in AR for storage by the trap instr. 
DtCONST 1) R0T[35. - 51 ALUt-D&O) DESTt PC -FLAGS) PUSHJtUUOPJl % 
;Cle3r USER MOOE and go get a mask for removing bits 13:17 from 



DtlRl «_U[DSQ] DESKMEnSTOl NORM $ 

;Store instruction which caused trapf without IDX or IND 



bits. 



HA^MA+i junpiPinuuoi $ 

;Get address of trap instruction. 
;PI traps come here. 
PlrWUCi DFR3 $ 

;Fetch trap inst. 
It^ap Fault traps cone here. 
PGRTRP: ainETfi DESTIIR-ALL HA] NORH * 

;Preparc for execution of trap inst. 
D[LIT 1041 DE5TIQ1 NtMl $ 
Dlrcnt R0T[3. J MASKtS. 1 ALUtDnQl COND[OajS=01 JUMPmuSYSl S 

Jjump if trap instruction is a J5Y5. 
D[LIT 2541 DEST[Q] NORM t 

DCnEHl RQT[9. 1 MASKO.) ALUIDnO) COND[OeUS=0] JUHPtHLUSR] ( 
;Jump if trap instruction is a JSR. 
;;+++ D[LIT 2651 ALUCDsQl CONDtOeuS=0) JUMPtnUJSP) S 
;; ;Jump if trap instruction is a JSP (opcode 265) 

+++ BLKI/&.KO would need to be handled hcre» if anyone ever cared. 



D[PC] ALUtD-l) DEST[PC1 SHORT » 

.-Any other apcocJE will be XClsd and thi 



raguiar cods 



;resume- 
DtARJ DhST I PC-FLAGS) EOI $ 

iRestore flags and dispatch 
nUSYS: D[AR] MASKELEFTl DESTIQ) NORII $ 

DtlR] R0T[33I mSKtllJ COND[OBUS=0] JUnPtJSYSAl $ 

;Juiiip if it's an EXEC-type JSYS 
NORtl JUnPtJSYSZ) i 

nUJSR: DIAR] MASKtLEFTl OEST[Q) NORfl JUMPtJSRl) $ 

.-Place original PC-FLAGS where JSR warts them. 

UUOPJ: DIMASK 371 R0Tt27) DESTIQ) POPJ NORtl * 



SLOE March Z3. Iffi^ 21:83:12 file DSK:F+IhBT.SLO — of -- FtlWf 



63 8199 
83 8138 
03 0191 
83 0132 
03nei33 
83 0133 
83 0195 
03 0135 
83 619G 
83 0197 
83:110196 
03 0198 
03 0139 
03 0208 
83 0201 
83 0202 
03110203 
03 0203 
03 020+ 
03 0205 
03 0286 
83 0207 
03n0Z0e 
03 0208 
03 0203 
03 0210 
83 8211 
83in0212 
03m0212 
030102 IZ 
83 8213 
83 0213 
03 021+ 
83ni0215 
83in0215 
03 021B 
83 0217 
03 0218 
03 0219 
03 0220 
03 0221 
03 0221 
03 0222 
03 0223 
03 0223 
03 022+ 
03 022+ 
03 022S 
03 0226 
03 0227 



06200 01873812600000001+16162125771+56000 
0G281 01873012680000001+15162125771+56000 



06202 01073012600080001+16162125771+56800 

06203 01073012500000001+16152125771+56000 



0620+ 01073812600080081+16162125771+56800 
86205 01873812600000001+15162125771+5B000 



86205 01073012600000001+16162125771+56000 
06287 01073812600000001+16162125771+56000 



0+12B 81073117000010211 + 16162025+31+56000 
0+127 81860017820000000000162365531+16000 
0+130 01865117e0008605+++7750365571+16000 

0+131 01073817000080001+01362825571+56000 



:Uf10VE SToup faked as special XCT. 
.OPCODE[100] ixlist 

list ] .-urtwE 

DCIR) DESTIOJ NDRTI CONDI-USER] LBJUfPIUMOVX] NORrt * 
DtIR] DEST[Q] NORM CCIND[-US£R] LBJUIIPIljnCWXl NORM S 

;GET UMtniFIED (VIA NDX ETC TRIVS) INSTR IN Q 

.CPOJDElieU [xlist 

list ] -.iJtK^l 

DtlRl OeSTIOl NORM CDNDE-USER] LBJUHPtUtlCWXl NORH » 
DCIRl DESTtQ] NORM CC*D[-USER1 LBJUWIUnOVXl NORM $ 

;GET UNMODIFIED (VIA NDX ETC TRAPS) IMSTR IN Q 

.OPCaC)E[102] txlist 

list ] ;UnOUEM 

DIIR] DESTiai NGRtI CaW[-USER] LBJIWIUMOVX] NORM » 
DIIR] DESTtai NDRTI C0ND[-USER1 LBJUnPCUMOVX) NORM » 

;GET UNMODIFIED CVIfl NDX ETC TRflPS) INSTR IN Q 

.DPCOOEC103] txlist 

list ] ;urciyES 

DdRl DEST[Q] NORM CDND[-USER1 LBJUTPCUMOVX] NORM $ 
D[IR] DESTIQ] NORM CONDI-USERl LBJUMPIUnCVX] NORM $ 

:GET UWCDIFIED (Ulfl NDX ETC TRflPS) INSTR IN 
-reloc 
[. USE [ NORMAL ] 
i xlist 

list ] 1;L0AD MEM BUS WITH INSTR AND 

13 WITH MAGIC BITS FDR MERGE WITH 
;SPECIftL XCT STUFF 
.pair 
[:. \ 2 + . 

lUnOVX: JUMPIMUUD] NORM $ 
;USER: LOSE 
D[LIT 180000000000) «-U[D+Ql DEST[Q1 NORM S 

;COiiWERT TO MOUX GROUP 
DtCONST 371 R0T[18. 1 ALUI-O&Ql DESTIHOLDl NORM $ 

;flddr calulation is already done- Don't confuse XCTP 



code. 

CALC! 
5) 



DICONST 51 DESTiai JLTIPtXCTMRGl NORM S 

;FAKE XCT 5,[M0VX flCEA] (EXEC MODE EFFECTIVE ADR 



;THIS IS WRONG ACCORDING TO BBN SPEC! ! ! ! ! ! (WANTS 15 NOT 
:rERGE WITH SPECIAL XCT COOC 
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94 8228 
84 8229 
64118236 
84 8238 
84 0231 
84 8232 
84 8233 
84010234 
84iii8234 
841118234 
04m023S 
041110235 
04 8236 
04 8236 
84 8237 
84 8238 
84 8239 
04 0240 
84 8241 
84 8242 
84 0243 
84 8243 
84 8244 
84 8245 
64 8246 
84 8247 
84 8248 
84 0248 
84 0249 
84 8258 
84 8251 
84 0252 
04m02S3 
04m0253 
841118253 
84iB82S3 
84in0253 
840.8253 
0411.8253 
841.0253 
04ro0253 
S4mS2S3 
04m82S3 
84m8253 
841110253 
841110253 
841118253 
84 0253 
04 0254 
04 0255 
04 0256 
84 0Z57 
04 0258 
04 0258 
84 8259 
84 0260 
04 0261 
04 8262 
84 8263 
84 0264 
84 0265 
04 0266 
04 0267 
04 0268 
84 8269 
84 8278 
04 8271 
04 0272 
04 8273 
04 0274 
04 0275 
04 0276 
04 0277 
04 0278 
04 8279 
84 8280 
04 0281 
84 8282 
04 0283 
04 0284 
04 0285 
04 0286 
04 8287 
04 8287 
04 0288 
04 0288 
04 0289 
04 8298 
84 8291 
04 0292 
84 0293 
04 0294 
84 0295 
04 0296 
04 0297 
04 8298 
04 8233 
04 8300 
04 8301 
04 0302 
84 0382 
04 0303 
04 0304 
04 8304 
84i>e305 
e4m83e5 
84n8305 
8408305 



.spco=tetl04! 



iqvc 



06210 01073180280800900662362125771456800 

06211 01073180200880000662362125771458880 



84132 81873817888600001414162024631456000 



04133 01073811000010117404352025761456006 

04134 81873100400010210136162824611456880 

64135 81162188200000861484162825561456000 

04136 81073117000018117416162025431456000 

04137 81863137004306055404550365631416888 

04140 01054100200810304740362025571456000 

04 1 4 1 0107311 700080605540004036557 1 4 1 7000 

04142 01673017000006688260162365531416000 

04143 71063117008006055416162365671416000 
84144 81873817083805855415162364631215880 
04 1 45 7 1 8731 1 788666585548454636547 1 5 1 5880 



04146 01073100408000000136162024621456000 

04147 01053017000000000700362025571456008 



D[IR] RDTI331 fWSKdll COND [ 081)5=0 ] LBJUHPUSYSl] * 
DCIR] R0TE33J flflSKCll] aWD[OBUS=01 LBJUWEJSYSl] * 



.reloc 
[.L!SE!^E!Rr1fiLl 
[ xlist 

list ] ] .pair 

[:. \ 2 + . 

IJSYSl: DCPC-FLflGSl rwSK[L£FT) DESTIQ) JUnPtJSYS2] S ; User JSYS 

.REPEi^T 1 - WAITS [ 

D[PC-FLAGS1 tIflSKILEFT] DESTIQI * ; Exec JSYS 
1;. REPEAT 1 - WAITS 
-REPEAT WAITS I 

;EX JSYS is disabled in WAITS' BBN paser- We simulate the same. 
;User prograoi doing JSYS to EXEC- trap as illeaal instruction 
;Exec doing JSYS is escape to funny WAITS instructions in KL (like the 
checksum 

; instruction. NOTE: Unlike TENEX, WAITS ca-es Jiat AC field is. 
D[IR] nASK[17.1 DEST[QI CONO[t1A<201 JUMPtlTRAPl C550 » 

llllesal if effective address is an AC 
D[PC -FLAGS! ROTISl COM:[OajS<0] JUMPtnUUDl LONG * 

;Skip if not in user mode. Don't use USER condition as 
ue 

;want to do it from EXEC using XCT mapped. 
D[CDNST 201 ALUID-Q) CONDIOBUS=0J JUMPtCHKINSl C550 * 

;JSYS 20 = CHKINS (Checksum instrjict ion) 
JUnPIITRflPl i 
];[ 

;EX JSYS is disabled in WAITS' B8N pager. 
;User program doing JSYS to EXEC, trap as 



:s escape 



funny WAITS 



We simulate the same, 
liegal instruction 
nstructions in KL (li 



;txec doing 
checksum 

; instruction. NOTE: Unlike TENEX. WAITS ca-es iJiat AC field is. 
D[IR1 ftASt<[17.J DESTiQ] COrD[MA<201 JUf1P[ITRAPl C550 $ 

; II legal if effective address is an AC 
DCPC-FLAGS! R0T[51 COND[O8US<01 JUMPtMIUOl LONG $ 

;Ci.j.- jf ^»« :^ <j32;. scde. Den ' t "se "^'^R n^itiTi 

Me 

;uant to do It from EXEC using XCT mapped. 
DtCONST 201 ALUID-Ql COW)[O8US=01 JUTPECHKINSl CS50 t 

:JSYS 20 ■= CHKINS (Checksum instruction) 
JUMPdTRAPl J 
1. REPEAT WAITS 

JSYSA: CLR-HALF DtPCl MASKtlS.l ALUtDORQ] DESTIHOLD ARI t 
;Save old PC where we can store it from. 
DtCONST 11 R0T(361 ALUtDMl CDND[DByS=01 JUHP[. + 21 S 
:If we are in user mode. 
SET-TEMP-EXEC [ DICDNST 001 DESTIMAP-USER-SRI ]$ 

: turn it off temporarily. 

DiLiT leeei desteqi norm * 

;Pointer word is at 1000+nA. 
DiflAl ALUtOORQl DESTtmi * 

;ftlso. setup for map trap 
DFRQ D[ PC-FLAGS! DEST[01 $ 

;Fetch pointer word. 

DtnEM] riASKCia.i dest[pc rwi $ ■ • 

:RH is new PC... place in MA for fetch below. 
;If we take a page trap here, store of PC is aborted. 
.REPEAT UAITSFIX [ 

OIPC-FLAGS) ROTISl CE50 C0N0t0BUS<81 JUnP[JSYSA21 $ 

:If we came from exec mode, then we... 
DICONST 11 R0T(34) ALU[D0RQ1 DEST[Q1 JUnP[JSYSA21 S 

; ...TURN ON FLAG BIT 7 
-ODD 
JSYSA2: DtCONST 1) R0Tt361 ALUt-D&Ol OEST [ PC-FLAGS 1 PUSHJCJSYSA31 * 
; Turn off USER 
; Prepare for map trap 
NORM JUMPtECC-PROCEEDl * 

;Nothing special for ECC trap 
JSYSFX: DtAR! DESTt PC-FLAGS 1 t 

;Fixup code for either User or Exec JSYS 
;Repair flags 
DtAfil MASKtlS.l DESKPCl PUSHJ [ flAP-RET 1 $ 

;And PC 
Jumpt . 1 $ 

:We should never get here! ! ! 
JSYSA3: DFRQ DtMEMl ROTtlS.l MASKtlS.l OESTtMA STRT-URTl JUMPtFIX-SEOI 1 $ 



po inter . 



jFetch target instr. Store old PC via left half of 
;Do fixup if store fails 



; User JSYS 

JSYS2: OFRQ DtPCl MASKtlB. 1 ALUtDCKQ] DESTIHOLD ARI JUHP[JSYS2ftl $ 
;Fetch pointer, prepare to store PC & flags. 
.DDO 
JSYS2A: CLR-HALF DtflEM) riASK[18.] DESTIPC MAI NORM PUSHJt JSYS2B1 $ 
;Jump to (right half) +++ could be AC ! ! 
NORM JUnPtECC-PROCEEDI » 

;Nothing special for ECC trap 
NORM JUMPIJSYSFXl S 

;F(xup is same for User or Exec JSYS 
JSYS2B: DFRQ DtMEMl ROTtlB.l MASKI18.1 OESTtMA STRT-WRTl 
;;; interacts buggily with old BLT Eft<28 LBJUMPtFIX-SEDIl $ 



exit. 
1;I 



Eft<20 LBJUMPISEOI! * ;Works with old BLT. 
;The DFRQ fetches the target instr. Start the write and 



DtPC-FLAGSl ROTISl CS50 CONDtOBUSOl JUnPIJSYSA21 t 

:If we came from exec node, then we... 
DICOfCT 11 R0TI34! ALUIDORQl DESTIQI JUnPIJSYSA21 $ 



. lur^n \jn c L_rw di i f 



04m030S 



.000 



SLDE March 23, 138+ 21:83:2+ file STRING: 



F+INNF 



e+ineaes 

0+110306 

9+m83e6 

8+in030G 

0+Eii03e6 

0+110386 
0+B0306 
0+rn0306 
0+[iie3eS 
0+110386 
0+110306 
0+110306 
0+m0306 
0+III0306 
0+III0306 
0+1110386 
0+IB0386 
0+1.0386 
0+ID038E 
0+ID0306 
0+m0307 
0+m0307 
0+m0307 
0+m0307 
0+m0387 
0+n!0307 
0+1110307 
0+1110307 
0+110307 
0+1110307 
0+1110307 
0+1118307 
0+ 010307 
8+ 030S 
8+ 0306 
e+ 9307 
0+ 0306 
0+ 0309 

0+ 0310 

0+ 0311 
0+ 0312 
0+ 0313 
0+ 031+ 

0+ 031+ 

0+ 0315 
0+ 0316 
0+ 0317 
0+ 0318 
0+ 0319 
0+ 0320 
0+ 0321 
0+ 0321 
0+ 0322 
8+ 0322 
04 0323 
0+ 032+ 
8+ 0325 



8+152 0I073117000022353+161S282S+31+S5000 
0+153 0187311 7000006055+ 1 60+2365+3 !+ 1 7080 

0+15+ 6 1 073 1 1 7000021 237+0+5+6225+3 1 +55080 
9+155 01073117000010333+16152025+31+55080 
0+156 7107311700002Z670+++56+025+713S6000 



0+157 01063137000000801+0+550025631255000 

0+161 7107311700+308801+0+5+6225+71556000 

0+162 01873117000022353+16162025+31+56000 
0+153 01073117000010327+15162025+31+56000 

0+15+ 710731 12000e226e++++5E+125+713S5000 



NORM JLWtECC-PROCEEDl S 

;Nothin9 special for ECZ trap 
JSYSFX: DCfiR] DESTLPC-FLftGSl $ 

■ ftyjjp code for either User or Exec JSYS 
; Repa i r f 1 aas 
DtAR] flASKtlS.l DESTtPCl PUSHJ[ MAP-RET 1 $ 

;flnd PC 
junipC . ] S 

:We should never set here! ! ! 
JSYSflS: DFRQ DtMEM] ROTIie. 1 IIASICCIB.I DEST[t1fl STRT-URT] JUf1P[FIX-S£0I] $ 



po inter. 



;Fetch taraet instr. Store old PC via left half of 
;Do fixup if store fails 



; User JSYS 

JSYS2: DFRO D[PC] WSK[18.] flLUIDORIi] DESTCHOLD i«] JUflPtJSYSZi^l * 
;Fetch pointer, prepare to store PC & flags. 
.ODD 
[:. + 1 - (. \ 2) 

lJSYS2fl: CLR-HflLF DtMEn] l1fSK(18-J DESTtPC rW] NORM PUSHJC JSYS2B] 

S 

sJiimp to (right half) +++ could be fC ! ! 
NORM JUMPIECC -PROCEED] % 

;Nothin9 special for ECC trap 
NORM JUMPtJSYSFXl $ 

;Fixup is same for User or Exec JSYS 
JSYSZB: DFRQ DfMEM] ROKIB.) MI^SK[1B.] DESTIMfl STRI-URTl 
;;;interacts buggily uith old BLT Efl<20 LBJUflPIFIX-SEOI] $ 

Efl<20 LBJUnPISEDI) $ ;Works with old BLT. 
;The DFRQ fetches the target instr. Start the write and 
exit. 

1. REPEAT MAITSFIX 
.REPEAT 1 - miTSFIX [ 

DtPC-FLAGSl RQTI51 C550 C»eiCIBLS<0) JUMPT. + 2) $ 

;If we came from exec mode, then we... 
DtCOMST 1) R0T[3+1 ALUIDORQl DESTtOl $ 

; ...TURN CW FLAG BIT 7 
OtCONST 1) R0Tt3G] ALUt-DiO) OESTI PC -FLAGS) $ 
; Turn off USER 

DFRQ ornen) ROTtie.) maskcib-I DESTrm strt-urti jlupcseoij s 

;Fetch target instr. Store old PC via left half of 
pointer. . * 

; User JSYS 

JSYS2: DFRQ DiPC) ilASKIlB.l ALUIDORQl DEST[HOLD ARl $ 

;Fetch pointer, prepare to store PC £ flags. 
CLR-HALF Dlrtnl mSKdB.l DESTIPC Mfil NORM % 

jJuBip to (right half) +++ could be fC ! ! 
DFRQ DlMEMl ROT! 13.] nASKdS.l DESTIMA STRT-URT] EA<20 
LBJUnPISEOU i 

;The DFRQ fetches the target instr. Start the write and 
ex i t . 
];. REPEAT 1 - KAITSFIX 
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0S 0325 
05 0327 
05 0328 
95 0329 
eS 0329 
05 0330 
05 0331 
05 0331 
95 0332 
95 0333 
05 9334 
95 9335 
95 0336 
05 0337 
95 9338 
05 9333 
95 9340 
95 9341 
05 9342 
05 9343 
05 0344 
05 0345 
05 0345 
05 0347 
05 0348 
05 0349 
05 0350 
05 0351 
95 0352 
05 0353 
05 0354 
95 0355 
05 9356 
95 9357 
95 9358 
05 0359 
05 9360 
05 0361 
05 0362 
05 0363 
05 0363 
05 0364 
05 0365 
05 0366 
05 0367 
05 0368 
05 0363 
05 0370 
05 0371 
95 0372 
05 0373 
95 0373 
85 S374 
05 0375 
95 0376 
05 9377 
05 0378 
05 9373 
05 0388 
05 0381 
95 0382 
05 0383 
05 0384 
05 0385 
05 0386 
05 0386 
95 0387 
95 0388 
05 0389 
05 0330 
85 0331 
05 8332 
05 0333 
05 0394 
05 6^5 
05 0396 
05 0397 
05 0398 
05 0339 
05 0490 

05 0401 

05a0402 
95»0402 
95m0492 
05ne402 
95n9402 
05a94e2 
9508492 
05me4e2 
95ii0482 
05>i04e2 
0580432 
05010482 
05ia04e3 

e5m0483 
85n0484 
95i»84e4 
85<n8404 

y5tTOT0T' 

0500484 
0SO0404 
05010404 
8500484 
05o8484 
0630494 
0500484 



86212 
86213 



01050008400008000454162125761456800 



04166 01850137006080991404562025771456009 



84167 81858137999006955494562365771416899 



84178 

04171 
04172 



01065817080996855404562364737416899 
01063237000086955404562365431416808 
01073102280822711416162825761456800 



.REPEflT 1 - WAITS [ 

;■**■ If you Mart ADJSP^ you'll have to move XffiDME somewhere els 
TvR/JunSZ 

.opcode[1051 
;XMCWE 

junp[xnovEi) » 

JUrtPtXMOVEH * 

DFRQ ALUtfEllflCl DEST[H0LD1 JiWEXMUEMl] % 
OFRQ ftLUtrtriflCl DESTIHOLD) JUnP[XnUE(11] $ 

■reloc 
XnOVEl: UI0TRP[MUU01 $ 

OLUlfiCI DESTlmj PUSHJ[ftrWDR-23BIT-(aSI $ 

CFRO DIIRl mSKIlB.I OESTEMfl] PUSHJIHEmDR-iaBIT] S 

DlrEM! SVC t 

XMVEfll: UIOTRPtnjUO] $ 

f)LU[flC] DESTttlfl) PUSHJtrEHA0R-23BIT-ABSl $ 

DinEM] oesTLMEnsTa] $ 

JUfPIfWINl $ 



];. REPEflT 1 - WAITS 

.REPEAT WAITS t 

;««« what can i do instead of JUfFinHlNj below" TvR/JunB 

■opcodetieSl; AOJSP 
AOJSP: OdRl R0T(22) MfiSKILEFT] ALU[D+AC1 OESTCQJ 

COND[DBUS<0] LBJUflPIADJSPll C550$ 
DIIRl R0TI221 riASKILEFT] ALUID+AC] DESTEO) 

CONO[OBLIS<01 LBJUIPIAOJSPl] C550$ 
;JuHip and skip if left result is negative 
-reioc 



flOJSPl 
right 



idea) 



iAOJSF 
«)JSPZ 



idea) 



AOJSPO: 



-even 
; DtlRl nASK[22) ALUIO+ACl DESTIAR] JUMPIA0JSP2) NIXn % ;Add 
half 

:Left result positive 
DIIR] nASK[22I ALUtD+AC) OESTtM?) NORM $ 

;Left result is negative. Cheak right side. 

;Add right half 
DitVSK ZZI ALUI-MQl DESTIQ] SHORT % 

;Isolate left half 
DIAfi] mSK!221 ALU[DCRQ1 DEST[0-ftC AR] NORM $ 

jHerge halves and store 
DtIR] CONDt-CBUSlS] JUTPtMAIN] CS50 S 

;If E Mas positive, it uasnH an overflow (just a bad 

;Start fetching next instruction 
DIARl COM)[O8US<0) JUnP[f1AIN] CS50 $ 

;If original was negative* we're OK. Start doing next 

; instruct ion if no sign changed in left half 
JUnPCAOJSPOJ NORM $ 

;ADJSP got a PDLOy 
left result positive 
DimSK 22] ALUI-D&Q] DESTIQI SHORT % 

; Isolate left half 
DIftRl MASKtZZl ALUIOQROl DEST[0-flC ARl S 

Jtterge halves and store 
D[IR3 CCWDI0BUS181 JUMPtnAIN) * 

;If E was negative, it wasn't an overflow (just a bad 

;Start fetching next instruction 
DIARl CONO[-OBUS<0) JUMPCMAINl C559 $ 

;If original was positive, we're OK. Start doing next 

; instruct ion if no sign changed in left half 
PUSHJIPOLO) NCRfl $ 

;AOJSP got a POLOV 
JUnPIMAINl % 



. opcode [ 106 J 

DFRQ ALUIMEHACI DEST[H0LD1 COND[-LBER] LBJUtPtXriyEMl] « 
DFRQ ALUireifC] DESTIHOLDI COfOt-USER} LBJUrPIXrWEMl] $ 

.reloc 

.EVEN 

xrwEni: 

];[ 

;«! What can i do instead of JUMPIMAINI below? TUR/Jun82 
.opcode[1051; fxlist 
1 i St i AOJSP 
flOJSP: DIIR] R0TI221 MASKILEFTl ALUtD+ACl DESTIOl 

COND[OBUS<01 LBJLWIAOJSPl] C550» 
DIIRI ROT[221 MASKILEFTl ALUlD+flCl DESTIOl 

COND[OBUS<0] LBJUtlPIAOJSPll C550* 
;Junp and skip if left result is negative 
.reloc 
[.USE [NORMAL] 
[ xlist 
list 1 

.even 
[:. \ 2 + . 

lAOJSPl: 
:fldd right half 

;Left result positive 
DIIR] MASKI22] ALUtD+AC) DESTtAR] NORM t 

;Left result is negative. Check right side. 
;ftdd ri^t half 
DIMASK 221 flLU[-D8Q] DESTIQ) SHORT S 

;Isolatc left half 
DIARl MASKI221 ALUtDORQ] DEST[0-(C («1 NORM $ 

;Merge halves and store 
DIIR) C0ND1-08US1B) JUTPIMfllN] C550 » 

;If E was positive, it wasn't an overflow (just a bad 



] 



DIIR] HftSKi22] flLU[Dt«:] DESTIARl JUMPIADJSPZl MDRM $ 



lA^s1 



;Start fetching next instruction 



ai n-70i n/^^nn^'y'j-31 



Aic-1 c-Mi'ycA'y* A.rcnn^ 



nrrtni mKr\rmiK 
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0S«e404 
e5m0+e4 
0500404 
05m0404 
0Sine404 
05ni0404 
05m0404 
05m0404 
05i»e404 
05III0404 
85m0404 
0Sffl0404 
05m0404 
0Sm0404 
0Sm0404 
05m0404 
05m0404 
05m0404 
05m040S 
051110405 
05n0405 
05»i0405 
05III0405 
05m0405 
05m04e5 
e5m040E 
05m04eG 
05m0407 
05 0402 
05 0403 
05 0404 
05 0405 
05 0405 
05010406 
05ii<0406 
05m0406 
05m04e6 
05 0406 
05 0407 
05 0408 
05 0403 
05 0410 



04175 01065017000006055404552364737416006 

04176 0106323700000G0S54045523E5431416000 

04177 01073102000022711416162025771456000 

04200 01073100600622711416162025421456000 

04201 01073117000000001415162225431456000 

04202 01073117000022711416162825431456000 

06214 01033112600600001416150105431256000 

06215 01033112600000001416150105431256000 



84204 01873112400000001416162225431456000 



04205 71033117000022741415162225431456000 
84285 01873117000006055416156365471516800 
04287 81073117000022711416152825431456000 



;flOJSP left result positive 
ADJSP2: OimSK 22) ftLUI-OaOl DESTtOl SHORT I 
;Isolate left half 
DtftRl mSK[22I «.U[D0RQ1 DESTtO-fC flRI $ 

ii^&rae hialves and store 
DtIR] C0ND[Q8US1B1 JUnPtWlINl * 

;If E Mas ne3ative> it Masn't an overfloM (just a bad 
idea) 

;Start fetching next instruction 
OCftR] COW)[-OBUS<01 JLMPIMAINl C558 i 

;If original was positive* we're OK. Start doing next 
; instruct ion if no sign changed in left half 
AOJSPD: PUSHJtPDLO] NORM t 

;flDJSP got a FW.OV 
JUfPEmiNl * 

.opcode[106] 
[xlist 

list 1 DFRQ ftLU[MEHflCl DESTCHOLDl CONDI -USER) LBJUnPIXnVEHl ) S 

DFRQ flLUinEnflC] DESTIHOLDl C0ND[-USER1 LBJUTPCXnVEni] S 

.reloc 
t.USE[NORrV«.) 
[ xlist 

list 1 ] .EUEN 

[:. \ 2 + . 
IXMVEni: 
). REPEAT IMITS 
-REPEAT wrilTSFIX [ 

CONDtUSERl PUSHJ[CKIOTU) $ 

;Don't allow arbitrary writes unless in lOT-USER modelll 



];I 



CQN0[USER1 PUSHJ[CKIDTU] $ 

;Don't allow arbitrary writes unless in lOT-USER mode! 



). REPEAT WAITSFIX 

(^U[AC1 DEST[mi PUSHJ[nEttftDR-238IT-ABS] S 
DLMEMI DESTtFEnSTOl S 

junPinftiN) t 
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of — FtlNNF 



es e-m 




06 etiz 




e6iii@413 




06 8413 




06 0414 


06286 


06 0415 


06267 


06 0416 




06100417 




eSme417 




05m0417 




06m0418 




06m0418 




06 0413 


04210 


06 0420 


04211 


06 0421 




06 0422 


04212 


06 0422 




06 0423 




06 0423 




06m0424 




06ii>0424 




06 042S 


04214 


06 0426 


04215 


06 0427 




06 0428 


04216 


06 0428 




06 0430 


04217 


06 0431 




05 0432 


04220 


06 0433 




06 0434 




06 043S 


04221 


06 043S 




06 0436 




06 0437 




86 0438 




06III0439 




06m0439 




06 0440 


04222 


06 0441 


04223 


06 0442 




SS 0443 


04224 


06 0443 




06 0444 




06 0444 




06 0445 


04225 


06 0446 




06 0447 


04226 


06 0448 




06 0448 




06 0443 




as 0449 




06 0450 




06 0451 





03073031508000001416152125471356000 
01033031400000001416162105431455000 



01073117000000001416162025431455000 
010731370000060543015S2K543141S00e 



1 1 6 1 1 032000000007551 56 1 25430455000 



54073117000006055415162325425416000 
01064017000006055407552364731416000 

01160017000006054751150365571415000 

01073100000000001404562025461555000 

01161017000005054440362355571416000 

01151131000022564756156125430455000 



01073117000000001416152025431455000 
01073137000006054301552365431416000 

011S13332808184327SS1E288S43047S300 



5407311700000605541616232542S416000 
01073117000010211416162025431456000 



;;; Byte instructions 
.opcoda[1331 tsllst 

list J ;I9P 

DF/UT R-tt-H DCrtfl] DEST[Q flRl CC1ND[AC=0] LBJUnPdBPll $ 
ALUCHEIIACl DEST[Q AR] C0N0[AC=8] LBJUMPtlBPfll 1 $ 

-reloc 
;.USE[NCR(1f!L! 
[ xlist 

1 i St ] 1 . pa 1 r 

[:. \ 2 ■>■ . 

]IBP1: JUMPEftDJBP] S i non-zero AC is an AOJBP 

D[Pifi] R0T[12.1 MASKt6) OESTtflR) S 

:Eet S field 
IFRQ DtARl RQT[30.1 flLU[Q-D] DESTlnEnSTO) CONO1-CRY0] 

LBJLnp;:aP2) t 

;Subtract from P (in place) and store, check ins for 
overflow 

.pair 
[:. \ 2 + . 

]IBP2: EDI S ; No overflow, just store and disp 

IBP3: D[rwSK 30.1 flLU[D&Q] DESTIQl $ 

;ptr will overflow, fix it up 
DECONST 441 ROT[30. 1 «_U[D+Q+1] CESTtQ HOLD] $ 

;New P of 44, add 1 to adr 
DtMEtl] riftSKdB.l C0N0(-EER01 JUHPtlBPSll C550 $ 

;JIJHP IF flOR NOT (DID NOT OVERFLOW) 
DLCONST 1] ROTdB.l ALULQ-D) DEST[Q] NORM $ 

;BXKUP LEFT HALF CALBING WRAP'AROUND TO FROM ,'77777 
:CARRY CAN'T PROPAGATE PAST BIT CAUSE OF 44 IN 80-5 
IBP31: IFR(3 DtARl RaT[30. ] ALU[Q-D1 S?«AC [ IFRQ DESTIMEMSTO ARl 
COND[MA<201 LBJLrP[SEOIl 1$ 
;Store it 

: Seine as above with ptr in an AC 
.pair 
(:. \ 2 + . 

IISPAI: JUnPSAOJBPJ S ; non-zero AC is an AOJBP 

D[AR1 R0TC12.J MASKIB) DESKARl * 

;Get S field 
IFRG D[fy?l RQTI38.] ALUIQ-D] DEST[?^MAC] CC^[-CRY0] JUMPLISPSl S 

;Subtract from P (in place) and store, checking for 
overflow 

EOI S 

AOJBP: JUMPEttUUOl S 

INOeX AC 



; Not implemented yet 

:l*tN IT IS. mTCH OUT FOR CARRY INTO 



;*ILE INCREMENTING OR DECREMENTING ADR. 
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97 0452 

07a8453 

e? 0453 

07 0454 
07 0455 
07in0456 
07m0456 
07in045B 
07 045? 
07n0458 
071110458 
07 0459 
07 0459 
07 04B0 
07 0461 
07 04G2 
07 0463 
07 0464 
07m0465 
07m0465 
07 0466 
07 0466 
07 0467 
07 04G8 
07 0469 
07 0470 
07 0471 
07 0472 
07 0473 
07 0473 
07 0474 
07 0475 
07 0475 
07 047S 
07 0477 
87 0473 
07 0479 
07 0480 
07 0481 
07ni0482 
071110482 
87 8433 
07 0483 
07 0484 
07 0485 
07 04BG 
07 0487 
07 0488 
07 0489 
07 0430 
07 0491 
07 0492 
07 0493 
07 0494 
0? 0495 
07 0496 
07 0497 
07 0498 
07 0499 
07 0500 
07 0501 
07 0502 
07m0503 
07 0503 
07 0504 
07 0585 
07 0506 
07.10507 
07II10507 
071110507 
07 0508 
07 0508 
07 0509 
07 0510 
07 0511 
07100512 
07 0512 
07 0513 
07 0514 
07 0515 
07*0518 
07«e516 
07n0516 
07 0517 
07ii>e51B 
07ii>0S18 
07 0519 
07 0S19 
07 0520 
07 0521 
87 0522 
07 0523 
07 0524 
07>0525 
07i>0525 
07 0526 
07 0527 
07 0528 
07 0529 
07 0530 
07 8531 
07 0532 
07 0532 
07 0533 
07 0533 
07 0534 
07 053G 
07 0536 



06270 63073023780800001416142125471355808 

06271 61033023600000001416142105431456000 



04230 81073117008818454301458025431457000 

04231 01073137000000088381458225431457800 

04232 71073137000000001415152825471556800 

04233 01161117000080000141444225431257000 

04234 01073117000822353416152025431458000 

04235 01073117000080001416162225431456808 
84236 81073117088021237416152225431456000 

04237 540733170S430G055Z121S2325450516000 



84248 71873 



141S15292S43145S000 



04243 
04244 



81873117808818588301453025431457888 
818731 3788088000030 1 450225431 457008 
010731 0000000808044 1 3G222542 1 456080 



04245 
0424S 

04247 



06272 
06273 



1 0730 1 1 2808 1 84674 1 1 1 6282556 1 45S800 
81151117800886054141444365431417000 
01033117080010477415150005431456000 



73073837800880001 4 1 B 1 4282547 1 3S6800 
71033037000000001416142085431456000 



04250 01073117000818518301450025431457000 



06274 
06275 



63073023700000001416142125471356000 
61033023600000801416142105431456060 



04252 
04253 
04254 



01073117000010530301450025431457000 
01073137000000000301450225431457080 
71073137000000001415162025471556000 



04255 01054137000000001412162224731256000 

04256 01073117000022353416162025431456000 

04257 01073117000000001416162225431456000 

04260 01073117000021237416162225431456000 

04261 01073017150006055416162365471516000 

04262 0106501700000605521Z16Z36473141S000 

04263 010631 17O0432266S21615602S430456O00 



.opcade[1341 [xltst 

list ] ;ILD8 

DF/wT R-F1-U DifEKj D£5T[Q AK IR-Z3j COnDi-nfiLF] LSJuMFIILDBl 1 $ 
ALUCnEHflCl CeSTCQ ftR IR-Z3] CCIND[-Hrt.Fl LBJUff [ILDBfll ] % 
-reloc 
t.USEINDRrWL] 
[ xlist 

list J 3: Ptr in m^tmry 

-pair 
[:. \ 2 + . 

IILDBl: D[ftR] R0TI141 MftSKtBl DESTiMflSKRJ JUTlPt. + 2) $ ; HM.F 

Mas set 

OCflR) R0T[14] mSKIG] DESTCflR mSKR) PUSHJEIBPX] $ 

; Get 5 field and call common code 
OlKEnt DESTtflR tlAl NORM JLinP[ILDB4] S 

: Data in memory 
.odd 
[:.■!■ 1 - (. \ 2) 

]ILDB2: DFRQ D[AR] R0T(61 WISK[6i ALU(0-D1 DESTEROTRl 

PUSHJ[IL0B31 S 

:36.-P to ROTR, fetch data^ setup trap processing address. 
NORM JUtlPCECC-PROCEED] $ 

t£CZ trap — nothing special. 
NDRH PUSHJ[ SET-HALF] S 

:>VP tr^. Set the F JrstPartOone flag. 
NORM PUSHJC MAP-RET) $ 
;lJe Hill not return from this PUSHJ. since RE-XCT is set at 



ILDB3. 



ILD83: 
NEOI S 



TRP-CTLI TRAP-FIX RE-XCT] D[l1En] RQTCR] flASKLR] DESTtAC] CLR-HALF 
; Get and store byte. On flAP trap, re-xct entire instr. 



D[ftR] R0T[14] F1ASK[S] DEST[!1ASKR] JL?1P[ILDSAX] $ 



ILDSAX: D[.QR] DEET[t1A] PffSM JLWIILDB4] S 
,-Get riA loaded with addr of data. 

; Ptr in AC 
.pair 
[:. \ 2 + . 

HALF was set 

D[AR] R0Ttl41 riASKEE] DESTEAR MASKRl PUSHJtIBPXA] * 
: Get 5 field and call common code 
ILDB4: DEAR] R0T[18.] MASKtS] C550 CONO t -OBUS-0 ] PUSHJ[BII] % 
; Test for indexing and indirection 
:fall thru 

;jump here from special xct stuff 

;half set and bp indexing and indirection chased, map-usei — sr setup 

:ma/ 3dr of data 

;ar/ bp 

;maskr/ S field 

ILDBS: D[CONST 36.1 DESTCQ] C550 COND[-MA<201 JLnP[ILDB2] $ 

;jump if data not in an AC 
ILtBAZ: DtAR] RQTIE] nftSK[Bl ALUCQ-0] DESTIROTR] $ 

; Data in AC. 36. -P to RQTR 
«.UtfEMACi OESIfHOLD] JUrPIILD831 S ; Get data to useful place 



.opcode[13Sl txlist 
list ] 

DF/WT DLnEM] DESTtO AR flA IR-23] JUnPCLDBl] » 
ALU[«nACl DEST[Q AR tlA IR-231 JUTIPILDBl] $ 

.reloc 
t. USE [NORMAL] 
t xlist 

list ] ILOBl: 

MASKIEl DESTEMASKR] NORM JUnP[ILDe41 S 

.•Just like ILD8 after the incre«ent... 



;LDB 



DtAR] R0T[141 



.opcode[136] [xlist 
list 1 ;IOPB 

DF/WT R-M-W D[rtH] DEST[Q AR IR-23] CQND[-H«.F1 L8JUMP[ IDPeil $ 
ALUEMEMAC] DESTIQ AR IR-23] COMI[-HALFJ LBJUMP[IDPBA1 ] « 

.reloc 
[.USE [NORMAL! 
[ xlist 

list ] ]; Ptr in aenory 

.pair 
[:. \ Z + . 

IIDPBI: DIAR] R0T[14] MASKIS) DEST[MASKR] JUnP[. + 2) » ; HALF 
Mas set 

D[AR] R0T[14] MASK[B1 DESTEAR MASKR] PUSHJ[IBPX1$ 

: (iet S field and call comnon code 
DirEM] DEST[nA AR] NORM JUMP[I0PB41 $ ; Get back ptr 

; Data in memory 
.odd 
[:. •!■ 1 - t. \ 2) 

1IDPB2: DFRQ DIMASKRl ALU[D&AC1 DeST[AR! PUSHJ[IDPB3] « 
;(jet byte 
NORM JUMP[ECC-PR0CEED1 » 
NORM PUSHJ (SET-HALF] S 
NORM PUSHJ [PIAP-RET] t 



IDPeS: RE-XCT R-M-W D[TRAP-FIX fCMl DESTfQ] S 
uord 

DIMASKR] R0T[R1 ALU[-0«l] IXST[0] $ 



jGet detination 
;Clcar dest byte 



IFRQ DIAR] ROTIR] ALU[[XKQ1 DEST[f€HSTO] CLR-HALF JUnP[SEOIl * 
;Do it and store it 



07 0538 



;Get riA loaded uith addr of data. 
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FtlNNF 



97 0543 
97 9544 
97 9545 
97 9546 
9? 9547 
97 8548 
97 0549 
97 0559 
97 955! 
97 9552 
97 9553 
07 0554 
97 0555 
97 9555 
97 9558 
07 0557 
07 0558 
07 9559 
97 0559 
97 9560 
07 9550 
07 9561 
07 0562 
97 9563 
97ni0564 
97 9554 
07 05S5 
07 0566 
07iii9567 
07010557 
97IB0567 
07 0558 
07 0558 
07 0569 
07 9579 



942E7 91973137900090009391459225431457900 
94279 91973190000900000441352225421456000 



94271 01073011290019532141444925421457990 



94272 91954137000006955412162364731415969 

94273 91033917990005955416162345431416900 



04274 01055017900005055212152384731416000 

04275 54053317004306055215152305420436009 



06276 73073037000900001415142925471356000 

06277 71033037900000001415142005431456000 



04276 01073117990010569301450025431457000 



D[flR] RailH) nfiSKiei DEST[flR MfiSKRl PUSHJJISPXfll * 
; Get S field and call connon code 
IDPB4: 0[!W] RQT!13.i rWSK[51 C550 CONO[-DBUS=01 PUSRjrSII] % 



St fnr \r. 



:fall thru 



dexing and indi 



;jump here from special xct stuff 

;half set and bp indexins and indirection chased, map-use! — sr setup 

.:ma/ adr of data 

;ar/ bp 

;masl<r/ 5 field 

IDPB5: 0[(W1 R0T[6) nftSK[6) OESTIQ ROTRl C55a CafCI[-t1fl<20] JUnP[IDPB21 $ 

; Jump if data is in memory. 
; Data in (C 

IDPBA2: D[nfl5KR] flLU[DS.AC] C£ST[f«] $ ;Get byte 
fiUJEMEKAC! DESTIQ] $ 
word 

D[rlflSKR) ROTiR) ALU[-D8.ai DESTCQl % ;Clear dest byte 



;Get deti nation 



D[f»l RQT[R1 flLUIDORQ] DESTtMEMflCl CLR-HALF NEQI S 
;0o it and store it 

.opcode[137] [xlist 
list ) jOPB 

DF/WT DCMEM) OESTfQ (W rw IR-23] JLriP[OPBll % 

flLutnemc) dest[q (w m ir-23] jumpcdpbi] s 

-reloc 
[ . USE [ NORflAL i 
[ xlist 

list ] IDPBl: OtARl RaT[141 

MflSKtE) DESTimSKRl JIJ1PIIDPB4] $ 
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08 3571 
08 0572 
38 0573 
88 0574 
08 0575 
08 0575 
06 0577 
ee 0577 
ee 0578 
08 0573 
08 0580 
08 0581 
06 0582 
08 0583 
08 0584 
06 0585 
08 0588 
08 0587 
06 0588 
08 0588 
oo 9590 
06 0531 
08 0532 
08 0533 
08 0534 
06 0535 
06 0596 
08 0537 
08 0596 
08ni0539 
06n0539 
06III0599 
0em0533 
06 0533 

08 0600 

08 0600 
06 0601 
06 0601 
06 0602 
06 0E03 
06 0604 
ee 0605 
08 0606 
08 0607 
08 0606 
ee 0609 
06 0610 
08 0611 
06 0612 
08 0613 
08 0614 
08 0615 
ee 0616 
06 0617 

ee 0618 

06 0619 
08 0620 

ee 0621 

ee 0622 
08 0623 
08 0823 
08(110624 
0eme624 
06 0625 
06 0625 
0em06Z6 
0en0626 
08 0627 
08 0628 
06 0629 
08 0630 
08 0631 
06 0632 

08 ee33 
ab 6ba4 
08 0634 

08 0636 
08 0637 
08 0638 
08 0633 
ee 0639 
08 0640 
08 0841 
08 0642 
08 0643 
08 0644 
06 0644 
08 0645 



;:; Routines for byte Instructions 
,'ILDe and !DP9 call hers to i: 



t ptr Kith S already in ffi 



04277 011B11030000060S47S615642S421416000 

04308 01^4917000006055407562X4731416000 

04301 01150017000006054751150365571416000 

04302 01073100000000001404562025461556000 

04303 011E10170000060S4440362365S7141BO00 

04304 01 IBl 137000006054756156425431416000 



04305 01073117000006055416150365677416060 

04306 71161323000606054756162405421436000 

04307 01073137000006054301552365671416000 

04310 71073117600006055416152365471516006 

04311 01064017000006055407562364731416000 

04312 01150017000006054751156365571416000 

04313 01073100000000001404552025451556000 

04314 01161017000006054440362365571416000 

04315 71161337000006054756150405431436000 

04316 01073000200000006441162025421456000 

04317 71050117000000001415152011671455000 

04320 01073100600006054336162425421416000 

04321 01033117000000001416150205431256000 

04322 01073117000622353416162625431456600 

04323 010731 170000000014161E22254314560O0 

04324 01073117000021237416152225431456000 

B43Z5 71073017050306855405742365471515000 

04326 01073100200006054441362425461516066 

04327 01073137000006054303162365431416006 

04330 01063030666010634615162025421456066 

04331 01073117000000001416162225431456060 

04332 6107211700002271 141B146O2SB3145E000 



IBPX: D[f«l ROTI30. } ALUIQ-Dl DESTWEHSTO] C550 CONDCCRYOl POPJ $ 
;Subtract fro* P Cin place) and store, check ins for 
overflow 

DEHOSK 30.] PLU'DSQ] DEST[Q! * 

; ptr uill overfloH. fix it up 

□[careT 44] ROTI30. ] alucd+q+i] destiq hold] * 

:heu P of 44. add 1 to adr 
DCHEMl MASKIIB.) COICit-EERO] JUtfllBPXll C550 » 

;JljnP IF ADR NOT (DID NOT OVERFLOW) 
D[CC»IST 11 R0TC18.] ALU[Q-D] DESTIQ) NORM * 

;BACKLP LEFT HflLF CAUSING tRAP AROUM) TO FROn 777777 

.•CARRY CAN'T PRtFAGATE PAST BIT O CAUSE OF 44 IN B0-5 
IBPXl: DIARl ROTI^. ] ALU[Q-D] DEST[MEMSTO AR] POPJ S 

;STQRE IT 

.-MEfl.AR/ INCED BP 

; Same as above when ptr is in an AC 
; Clobbers HOLD nou! ! 

IBPXA: 

•repeat uaitsfix [ 

.•Please tell Be Uyy this could be flushed. TVR/Feb83 

DtMAl DEST[HOLO] SHORT $ 

;Save flA for possible use beloM. 
j;[ 
.•Please tell ee why this could be flushed. TM?/Feb83 

DItIA] DEST[HOLD] SHORT $ 

;Save MA for possible use beloM. 
]. repeat Maitsfix 

DIAR] ROT!30.] ALUCI3-01 DESTIfEMAC AR MA] CSSe CONDICRY01 POPJ « 

;Subtr3ct fro* P (in place) ard store, checking for 
overflow 

D[mi R0T[12.1 HftSKIB] DESTIflR] $ 

; Attempt to be clever failed — 
DirtM] DESTIMA] $ 

t so restore what was smashed 
DCMASK 30.] ALUID&O] DEST[Q] % 

; ptr will overflow, fix it up 
D[CONST 44] ROT[30.] ALU[D+0+l] D£ST[0 HOLD) « 

;Neu P of 44. add 1 to adr 
D[MEM1 MASKda.l CONDt-HERO] JUnPtlBPXAl] C550 $ 

;JUfP IF ADR NOT (DID NOT OVERFLOW) 
D[CONST 1] R0T[18.1 ALU[Q-D] OESTIQl NORM * 

.-BACKLP LEFT HALF CAUSING WRAP AROUND TO FROM 777777 

.•CARRY CAN'T PROPAGATE PAST BIT CAUSE OF 44 IN B0-5 
la'XAl: DEAR] ROTESO. ] ALUEQ-D] DESTEtEMAC AR MA HOLD) POPJ $ 

;STORt IT 

jMEn.AC.AR.m/ INCED BP 

: Handle byte-ptr index ins and indirection 

BII: DEAR] ROTEia.l I1ASKE4] DESTEQ] C550 CONDEOeUS^Ol JUMPEBIIHll $ 

;Test index=0 
DEttA] ALUED+XRj ijESTEfIA] NuRfl J'jnFEBIIHHJ S 

;E)o indexlns (IDX field of ptr was copied to IR earlier) 



.even 
E:. \ 

]BI 
bit 
.odd 
[:. + 

]BI 



2 + 

IHA: 



Dlr*l R0TE13.1 C550 CONDESIGNOFFl POPJ $ ; Leave if no a 



OllM^: 
$ 



1 - (. \ 2) 
IHl: ;EA should still be same as MA 

DFRQ ALUtnEMACl DESTEHOLD] PUSHJEBIIH2] » 

;Fake up AC refs. provide trap fixup address. 
JUnPEECC-PROCEEDl $ ;ECC trap co«es here. 

PUSHJE SET-HALF 1 $ ;t1ap trap comes here. 

PUSHJEflflP-RET] t 

TRF-CTLEkE-XCT TRAF-FIXj DErlEni nH5K[25. ] 0E5TEQ nA iK-23j nu-POF 

;Get indirect word, repair stack. 

demeu] rote 18.1 riASKisi esse co(«iEaBus=0] popj $ 

;If no idx or ind. exit 
DEAR] R0TE12.1 MASKE12.1 DESTEARl NORM $ ;Get orisinal P and S 
DEAR] R0TE24.] ALUEDORQ] DESTEQ AR] C550 COfJDI-INTRPT) JUMPIBIIl 

; Loop if no interrupt is wait ma- 
PUSHJE SET-HALF] NORM » 

;Inlrpt. waitina. Set HALF (BIS) flag in PC. 
DEPC) ALUEO-ll DESTEPCl NORM JUrPIMAIN] $ 

;Back up PC (so instr. will be re-executed) and take 



SLOE narch 23. 138+ 21:83:57 file DSK:FtINST.SLO — of — F41NNF 



33 @GK 

33 es-*? 

eS 8548 
83 8643 
83 8658 
83 8658 
83 8651 
eS 8552 
83 8653 
83 8654 
83 8654 
83 8655 
83 8656 
83 8657 
83 8657 
83 8658 
83 8653 
83 8668 
83ti<8661 
83 8661 
83 8662 
83 8663 
83 8664 
83 8665 
83 8G65 
83 8666 
83 8667 
83 8668 
83 8668 
83 8663 
83 8678 
83 8571 
83 8571 
83 8672 
83 8673 
83>ne674 
83«e674 
e3>ii0674 
83 8675 
83 8675 
g<i ogTc 

83 8677 
83 8678 
83 8673 
83 8688 
83me681 
83 8681 
83 8682 
83 8683 
83 8684 
83 868S 
83 8686 
83 8687 
83 8688 
83 8683 
83 0683 
83 8698 
83 8631 
03 0632 
03 0633 
83 8633 
03 0G34 
83 8635 
83 8636 
83 8637 
83ni8636 
83 8638 
83 8633 

03 0700 

03 0701 
83 0781 
83 8702 
03 0703 
05 0704 
03 0705 
03 0705 
03 070G 
03 0787 
03 0708 
03 8708 
83 0703 
83 8710 
83m8711 
83^8711 
83010711 
831.0712 
83(B0712 
83 8713 
83 8714 
83 8715 
89 871S 
83 8717 
83 8718 
83 8718 
83 8713 
83 87Z0 
83 8720 
83 8721 
89 8722 
03 8722 
03 8723 



86488 55873317888886655416162325459316080 
^481 54043317800886055416162301420416000 



06482 54073317088086855484562325760415088 

05483 540?3317ee0e06eS5404S62325760*160e0 

85484 81833117800022665416156025430456000 
86485 54843317080805055416162305420416088 

06486 03073137188022703416155025470356080 

06487 54043117080006055415815301420415880 



06410 56873317000886854456162325460316080 

06411 81833137080888001416152805431455000 

06412 540733170000860S445416232S760415000 
86413 54073317088085054454162325750415000 
06414 81033137800888801416162025431455880 
85415 81833137000000001416162825431456000 
06416 03073137000822782456156825470356080 
86417 81833137800800001416162805431456000 



84333 54873317880886854456162325420415000 



04334 913731 J7800Q2265445615S82S430456000 

84335 54873317800886854456162385420435000 

84336 81073137000822786456016025430455000 



06428 56171317804406855416162325450315000 
05421 5414231700440605S41E152301420416000 



06422 54171317884406855404562325760416800 
05423 54171317004406055484552325768416000 



85424 8 1 1 32 1 1 78844 226654 1 5 1 S682543045S808 
86425 54142317804406055416162305420416000 

06426 0317113710442270341E15602S4703S5000 

06427 01142137804422707416016801430456000 



06438 03073120480088081415162125471356800 
06431 01033120400080001416152185431456000 



06432 54073317000006055404562325768416000 
05433 5407331 70000060S5404S5232S760416000 

06434 01033100400000001416162125431456000 

06435 01033100400000001416162125431456000 

06436 83873128500000801416162125471355808 
86437 01833120400008881416162105431456800 



84348 54873317000006055416162325420416000 

04341 54171317008006055416152325420416000 

04342 01033117080022655416156025430455000 
94343 01132117004422G654151568254304S5008 

04344 01833137008822707416162025438455800 

04345 01132137004422707416162025430456800 

84346 81073117808022703416156025438455800 
04347 01171137004422703415156025438456000 

84350 54073117008006055416816325428416800 
04351 01171137084422787416015025438456800 



.opcode[280] [xlist 
list 1 

OF/IF DtPEfll QESTraCl NEQI $ 
fCSELim.ACJ PlLU[A] DESTIBJ KEOI t 



sMtWE 



;«WEI 



;myEfi 



:ttWES 



D(IR1 HfiSK[18. ] OESTCfCl (EQI » 
DfIR] (1ftSK[18.! CtSirftC] NEOI $ 

IFRQ flLUtACl DESTIMEMSTQ] NORM JLMPtSEOIl « 

ACSEKIC.Wll PLUIM 0ESTIB1 NEQI * 

DF/IF R-n-H DIMEH] DESKHErETO AR] JLTPtCASEOIl $ 

flCSELIMfl.fiC] eUllM CCHD-ftC-STO KEOI S 



.opcodG[284] [xlist 

list 1 

DF/IF DCrlEMl R0TC18.1 DESTIflCl NEOI » 
flLU[MEMAC) D£ST[f«l NORH JUrPLmySll » 



;novs 



;novsi 



DIIR] mSK[LEFT] RaT[18.1 DEST[flCl NEOI $ 
D[IR1 MASK[LEFT] R0T[18. 1 DESTLAC] NEOI « 

ALUEflC] DEST[ftRi Ncsai junp[novsm] » 

ALU[f»Cl DESTtflfil NORM JLIMP[MCWSI121 S 

DF/IF DCMEH] R0T[18.1 DEST[rEHSTD ftR] JUflPCCflSEOIl 

fiLUCnEMftCl DESTtARl NORM JLWinOVSSll $ 



.reloc 
[.LIS£[NCRrWLl 
[ xlist 

list 1 inOVSl: DIftR) 

RDT[18.1 DESTEfiC] NEOI S 
novsni: IFRQ DtflR! ROTEIB-J OEST t rtnSTO ] NORTI JUnPESEOIl $ 
t10VSH2: DEAR] ROTCIB. 1 DESTlnErWCl NEOI $ 

MOVSSl: IFRO DIftRl ROTCIB. 1 DESTtARl COND-AC-STO NORM JUMPIflACSTOl S 



.opcode[2101 txlist 

list 1 

OF/IF DCfCm ALU[0-D1 DEST[AC] 
ACS£L[m,AC] ALL!t0-Al DEST[B1 



SET-PC-FLAGS NEOI » 
SET-PC -FLAGS NEOI S 



OilR] tlfiSKClB.l ALUre-D] DESTCACJ SET-PC-FLAGS NEOI * 
DIIRl HftSKiiS.J ALIJi0-Di DESTIACJ SET-PC-FLAGS NEOI S 



;nOVNI 



IFRQ ALUt0-AC) DeST(HEnSTO) 



;novNn 



ACSELCAC.Wl) fiLU[0-Al DCSTtB) 



SET-PC -FLAGS 
NORM JU«=[5E0I1 $ 



SET-PC-FLAGS NEOI « 



DF/IF R-fl-W D'MEn] ALU[0-D] CCSTfrEflSTO AR] SET-PC-FLAGS 

JUnPCCASEOIl $ 



;nOVNS 



IFRQ ACSELtHA.ACl fiLU[0-AI DESTCARl SET-PC -FLAGS 

COND-AC-STO NORTI JUTPCMACSTO] $ 



.opccjdeI214] [xlist 
list ] 

DF/WT DlriEtll DEST[AR1 

aluchehaci destcari 



NORn oajs<0 LBJunp[ncwMi] s 

NCRM OBUS<0 LBJUHPCnOWIll $ 



;novtii 



DCIRl nASK[18.) DESTtACl NEOI $ 
DCIRl mSK[18.] DEST[AC1 NEOI S 



ALUrACl 



;nOVf1S 



NORfi oajso LBJUtiPcno'jrini] $ 

ALU[AC) NORM OBL'S<0 LBJLrS'[riCIUnt12) $ 

DF/WT R-n-W OCMEM] [X:ST[AR] NORM OBUS<0 LBJUnPCtlOUMSl 1 S 

ALUtrEHAC) OESTIARl NORM OBUSO L8JUnP[nOVriS2] $ 



-reloc 
[.USE[NORmLI 

[ xlist 

1 r St 1 ] . pa I r 

[:. \ 2 + . 

inCMIl: D[AR1 DESTCACl KEOI t 

D[AR1 ALUI0-D] DEST[AC] NEOI S 



novmi: IFRQ ALU[AC1 

IFRQ ALU[0-AC] 

novnrc: aluiaci 

ALU[e-AC] 

rtWnSl: IFRQ D[AR1 

IFRQ D[ARJ ALU[0-O1 
$ 
nCIVnS2: IFRQ D[AR] 

IFRQ DIAR] flLU[0-D] DESTtAR) COND-AC-STO SET-PC -FLAGS 
JUrPCMflCSTO) S 



DESTCMEMSTOl JlTPESEOIl » 

DESTlreMSTQl SET-PC -FLAGS JLTPrSEDlJ $ 

DESTlAR/junPIPlACSTOl IFRQ S 

DESTtAR] SET-PC -FLAGS JUrP(nACSTO) IFRO S 

DEST(MEnST01 JUrP[CASEOIl $ 

DESTCnEflSTO AR] SET-PC-FLAGS JUMPECASEOIJ 

COfD-AC-STO NEOI $ 



SLDE riarch 23, las'* 21:0t:e6 file DSKiF+INST.SLO 



FMWF 



le 072+ 

18 072S 
10 e?2E 

i8!!ie?z? 

10 0727 

19 0728 
18 0729 
18 0730 
!9!-e731 
10 8731 
18 8732 
18 8733 
18 073+ 
101110735 
18 8735 
18 0736 
18 0737 
18 0738 
ieme733 
18 873S 
10 87+8 
10 87+1 
18 07+2 
1011187+3 

18 07+3 
10 07++ 
10 07+5 
10 07+6 
100107+7 
10 07+7 
le 07+8 
10 07+9 
10 0750 
10m0751 
10 0751 

19 07K 
10 0753 
10 075+ 
191I1075S 
10 0755 
10 8756 
19 075? 
18 8758 
18i«0759 
19.110759 
ieii>e7S9 
10 8760 

18 8768 
10 8761 

19 07S2 
19 0763 
19 976+ 
19 0765 
19 0766 
19 0767 
19 0768 
19 0768 
19 0769 
19 0770 
10 0771 
19 0772 
10 0773 
10 077+ 
19 077+ 
10 0775 
10 0776 
10 0777 
10 0778 
10 0778 
19 0779 



06++0 93073017990090001+16162925+71356000 
06++1 01033017000000001+16162005+31+56000 



06++2 01073017000090001+0+562025771+56000 
06++3 0107301?900000001+e+56Z925771+56e00 



06+++ 03073017000090001+16162925+71356900 
06++S 01033017000000001+16152005+31+56000 



06++6 93073017100000001+1G152025+71356000 
06++7 01033017000000001+16162005+31+56000 



96+50 93073017000000081+16162025+71356000 
06+51 01033017000890001 + 1615200S+31+5G000 



96+52 01073017000000001+0+562025771+56900 
06+53 91073017000000001+0+562025771+56900 



06+5+ 03073017I00000001+161E202S+71356000 
06+55 01033017090090001+16162005+31+56900 



06+56 93073017100000001+16162025+71356000 
06+57 010330l70ee0e000! + !616200S+31+56900 



0+352 9102+237000000001+16162225+31+56000 

9+353 5+023317000006055+16162325+29+16000 

0+35+ 0102+237000000001 + 1B1E2225+31+56000 
0+355 0107331700000S055+16152365+31+1E900 
8+356 01023131000022665+15155125+30+56900 

0+357 0102+237000000001 + 16162225+31+56000 
0+369 01023331900022665+16156125+30+56000 



9+361 0102+237900000001+16162225+31+56009 
8+3S2 5+02331 7000096855+ 15162315+20+1 6000 



0+363 0102+237900000001+16162225+31+56000 
0+36+ 91073231000022665+15156125+30+56000 



0+365 0102+237000000001+16162225+31+56900 
9+366 01023317000096955+16162355+31+16909 
0+367 01033131000022665+16156125+30+56000 



;; Integer Bultiplx 

.opcode(2291 txlist 
list i 

DF/WT DtnEfl] DESTIQl JUrPIirU.ll NORn $ 

ALUtrErwci cesTiQ] jurtPcinuLii $ 



iru. 



[xlist 



.opcode[221 ] 
list ] 

DCIR) MflSKllB.l DEST[Q1 JUMPClrU-l] NORM S 
DEIRl MftSKdS. J CeST[Ql JUTPIIHULIJ NORH C 

.opcode[2221 [xlist 
list ] 

DF/UT DIMEM] DESTEQl JLinPCir»JL21 NCRH $ 
M-UtrErWC] DeST[Q3 JUMPIItWLZl » 

.opcode[2231 [xlist 
list 1 

DF/HT R-n-U 0[rEM] DEST[Q1 JUW>[IfU.31 NORn S 

flLU(rErMC) cesT(Qi jur*>[injL3] $ 

.opcode[22+! [xlist 
list ] 

OF AIT D[nEn] [)EST[Q1 JUrP[nULll (iORn $ 

«.u[nEnACi oesKoi junp[ru_i] » 

.opcode[225] [xlist 
i ist ] 

D[IR) MASKdB.l OESKQl JUriP[nULl] hDRTI i 
DdRl nflSKIlB.] IXSKQl JLnP[riULll NORn S 

.opcode[2261 [xlist 
list 1 

DF/WT R-n-W DEnEHl DEST[Q1 JLrP[nUL21 NORn $ 
ALUEfEMAC) OESTEO] JLII1P[nUL21 i 

.opcode[227] [xlist 
list 1 

CF/w R-n-M D[nEn] oest[qi junp[nuL3i NORn « 
ALU[nEni^i [)esT[Qi jijnp[nuL3] t 



-reloc 
[.USEtNORnflLl 
[ xlist 
list 1 

o-ici Pusaj[iX)inuL] NORn $ 

ALU[Q1 DEST[flCl NEDI S 



jiniLn 



;inULB 



linULl; 
;0 TO ftC.ftC TO AR 



;rtJL8 



flLU[01 OEST[AR 



;9 TO ftC 



lnUL2: ftLU[0) DEST[f« 0-ftC] PUSHJ[IXIinUL] NORn S 
D[fiRl DEST[fiCl tXJRn i 
liUiQl SnAC [ IrRQ CCSTirEHSTO AR] uM)i!Vi<Zd't LBJUfFiSEOIl j$ 

lnUL3: ALU(01 OEST[AR 0-ACl PUSHJ([XlinULl NDRtl S 

ALU[Q1 DEST[AC1 SMAC ( IFRQ [JESTinEMSTO ARl C0ND[nfl<29] 
LBJUnPISEDIl j$ 



riULl: 



ALUiBJ iJtSiifiK u-ALl rUbHJiiJuflnULl NLKfi $ 
i^SELIflC*!] ftLU[Q3 DESTIAC) NEDI S 



nULZ: flLU[0] DeST[AR 0-ACl PUSHJ[D0mjLl NORn s 

D!AR] DEST[0-flCl STIflC [ IFRtJ DEST[nEnSTD ARl CQND[nfi<201 
LBJUnP[SEDIl 1$ 

nlJL3: ALU[01 DeST[AR 0-ACl PUSHJ [ [JOfinUL 1 NORn % 
ACSEL[AC+11 ALU[01 CtSTIACl NORn t 
ALU[AC1 SMAC [ IFRQ DEST[nEnSTD ARl COND[nA<20] LBJUnP(S£OIl 1* 



SLOE March 23, 138t Zl:0'»il3 file DSK:F'HNST.SLO 



of — F+INNF 



1 0786 

1 0781 

1 8782 

1 0783 

1 078* 

1 078S 

1 0786 

1 0787 

1 eTse 

: 0788 
1 0789 
1 0790 
1 0790 
1 0791 
1 079Z 
1 0793 
1 0733 
1 079* 
11I0795 
1II0795 
li»0795 
li>0795 
ln0795 
1III0795 
1 0795 
1 0796 
1 0797 
1 0797 
1 0798 
1 0799 
1 0800 
1 0801 

1 0802 
1 0803 
1 080't 

1 0S04 

1 0805 
1 0806 
1 0806 
1 0807 
1 0808 
1 8803 
1 0809 
1 0810 
1 0811 
1 0811 
1 0812 
ln0813 
lin0813 
lm081+ 
lm0BH 
11110814 
lin0814 
lm0814 
11110814 
lm0814 
ln0814 
lin0814 
lm0814 
1010814 
11110814 
11110814 
11110814 
lm0B14 
1110814 
11110814 
1010814 
la>0ei4 
lin0814 
111.0814 
1100814 
lin0814 
111.0814 
ln.0814 
lin0814 
111.0814 
li»0814 
111.0814 
111.0814 
ln.0814 
1x0814 
ImOBH 
lm0814 
ImOBH 
lm0814 
ln.0814 
1.1.0814 
lm0814 
lin0814 
1>.0814 
la.0814 

ineai4 

li«0814 
ln0814 
lin0814 
lin0814 
lm0814 
ln.0ai4 
ln.0814 
11110814 
l»0ei4 

ii»eai4 

110814 
1b0814 
IneSH 
10.0814 
lo«814 
1010814 

110.0814 



84376 61873117800000081415102225431456808 

04371 01033100200006055415162425421416008 

04372 01037100200006055415162425421416000 



04373 010733170O000605541616236462141E000 

04374 01053117000600001060242025571457000 



04375 01066106000000001416162025421456000 

04376 01066106000000001060362025561456000 



04377 01073117000810767416162225431456000 
04480 01024317006606055416152365437416000 



S4-SS1 313384324eee3888141E7S212S43145S89S 
04402 01030402406600035416762125431456006 

04404 01030402486811815416762125437456000 

04405 01050402400811815416762125437456000 

04486 01030402406611021415762125437456066 
04407 01050402466811021415762125437456666 

04410 01030402408011825416762125437456000 

04411 01850402400011025416752125437456060 

04412 01038482480811031416752125437456000 

04413 01050402400611031416752125437456000 

04414 01030402486811835416762125437456886 

84415 01050402400811835416762125437456880 

84416 01030402400611041416762125437456000 
04417 01050402400611041416762125437455006 

04420 01030402400811045416762125437456000 

04421 01050402400611045416762125437456066 

04422 01038482486811051415762125437456000 

04423 81858482480811051416762125437456060 

84424 81838482400811055415762125437456066 



;;; inteaer ■uitipi)' work routines 

IX!lr«-i PUSHJtDOMUL! fCRfl * 

flLUIflC] C550 C»DtOBUS=ei POPJ t; NO OV IF 6 
ALUCNDTflC] C556 COND{OBUS=01 POPJ t; NO OW IF -1 

.repeat 1 - waitsfix [ 

nSETDV: D[PC-FLftGSl DESTEPC] »: GET FLftG5 

KSTCJl: D[ CONST 13 ROT [43 1 fsLUCKKftC] DEST [ PC-FLftES } SSKM PCPJ S; SET CJ 

];. repeat 1 - uaitsfix 

-repeat uaitsfix [ ;You'll need the JUTP [ SETQVX ] , but is the C550 

correct? 
nSETOV: OCPC-FLfCSl DESTCflCl C550 $ 

;Get flags 
nSTOUl: DCCONST 11 RaT[43] flLUIDCRflC) DESTtPC-FLfGSl NORTI Jltf [SETOyX] $ 

;Go cause trap if enabled. 
];t ;You'll need the JUTPtSETOVX] , but is the CSSO correct? 

nSETOV: DtPC-FLfGS] DESTCftCl C550 * 

;Get flags 
nSTOVl: DtCONST 1) R0TC43) flLUCDORftCl DESTLPC-FLfiGSl NORM JUfPISETOVXl t 

;Go cause trap if enabled. 
]. repeat waitsfix 

DOTMJL: DtPlRl ALUtDsO] C558 COND[-OBUS=0] JLTPIOOflULl $; NO OV IF DIFF 
OPEIJS 

DtCONST 1) R0T[431 flLUIDxQ] C550 COND[-OBUS=0) JUnP[DOHULl S 

;Jump if not -2»*35 
PUSHJttlSETOVl NORM t;SET OV 
«.U[81 DEST[AC1 SHORT t 

.define nULM [] [ ;One bit of a ■ultiply... 

«_U[«:+01 0£ST[D41 ENDCONNCn/01 CnUL CONDtO0-351 LBJUHPC. + 2] $ 

;Herc if Bwltiplicr bit is a 8. Test next nulitplier bit. 
DCflR] flLU[AC+Dl DESTID4] ENDCONNIM/Ol CMUL CDNDIQ0-35] LBJLTIPl. + 



11 t 

1 
DOflUL: 



;Here if oultiplier bit is a 1. Test next nulitplier bit. 
ftLU[ftC+9] D£ST[I>4] E^ECCKKEM^] nors CGM3[Q0-3S] LSJUt1P[DGf1UL91 S 



."Enter the laultiply 'loop*. 
DOnULF: flLU[fC+8) D£ST[D4] ENOCONN[n/0) nor« COND[Q0-3S1 LBJLjnP[D0nUL8 + 
14.1 t 

;f1ultipl>' 'loop* for floating point... 7 fewer iterations. 
.even 
[:. \ 2 + . 

IDOnUte: .REPEAT 35. t fUJLri I 

I MULM I ;One bit of a ohjU iply. . . 

flLU[flC+e) DEST[D4] ErCC0NNtf1/D! CMUL C0ND[IM-35] LBJUMPt. + 21 * 

:Here if multiplier bit is a 8. Test next mulitplier bit. 
D[ftRl «_U[«:i-0] DESTID41 ENDCONNIM/01 CMUL C0NDt08-351 LBJUMPC. + 
11 S 

;Herc if multiplier bit is a 1. Test next nulitplier bit. 
]][ MULM [ ;One bit of a loultiply... 

«_U[ftC+8] DESTID4] ENOCa«[M/Dl CMUL CONDEQ0-35] LBJUTPC. + 21 $ 

;Here if multiplier bit is a 0. Test next mulitplier bit. 
OtflRl flLUCfiCi-Dl 0ESTC041 ENDC0NN[M/01 CMUL CONDtQ0-35] LBJUrt»[. + 

n » 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
Ill MULM [ ;One bit of a multiply... 

ALU[«:+01 DESTtD4] ENDCONN[n/Dl CMUL COND[O0-35] LBJUMPt. + 21 * 

;Herc if multiplier bit is a 8. Test next mulitplier bit. 
DIflRl fiLUIAC+01 DEST[D41 ENDCQNNIM/01 CMUL COKD[Q0-351 LBJUMPt. + 
11 $ 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
]][ MULM [ ;One bit of a multiply... 

flLU[AC+01 D£ST[D41 ENDCONNLM/D] CMUL C0NDtQ8-3Sl LBJUMPt. + 21 $ 

:Here if imj It I pi ier bit is a 8. Test next mulitplier bit. 
DtPiRl PlLUtlC+Dl DESTtCKl ENOCONNtM/01 CMUL CONOtQ0-351 LBJUMPt. + 
11 $ 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
lit reiLM [ ;One bit of a multiply... 

fiLUiAC+81 0£ST[041 ENOCONNIM/Dl CMUL CCNDtia0-3Sl LBJUMPt. + 21 S 

;Here if multiplier bit is a 8- Test next mulitplier bit. 
DtflRl flLUtfC+D] C1ESTID41 ENDCONNIM/Dl fMUL C0NDt08-351 LBJUMPt. + 
11 S 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
lit MULM [ ;One bit of a multiply... 

flLUtflC+81 t3EST[D41 ENDCONNtM/Dl CMUL COND[Q0-351 LBJUMPt. + 21 S 

;Here if multiplier bit is a 8. Test next mulitplier bit. 
DIflRl flLUtflC+Dl D£STtD41 ENDCONNtn/Dl CMUL C0M)[Qe-351 LBJUMPt. + 
11 « 

iHere if aultiplier bit is a 1- Test next aulitplier bit- 
lit MULM [ ;One bit of a multiply... 

flLUtAC+0] DESTtD41 ENDCQNNtM/Dl CMUL CDNDti»-351 LBJUTPt. + 21 * 

;Herc if multiplier bit is a 8. Test next mulitplier bit. 
DIflRl ALUIftC+Dl DESTtD41 ENOCONNtn/Dl CMUL CONDIQe-351 LBJUTPI. ♦ 
11 * 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
lit MU_M t ;One bit of a multiply... 

flLUtfC+81 DESTtD41 ENDCOWIM/Dl CMUL C0M3I08-3S1 LBJUMPt. + 21 t 

:Here if aultiplier bit is a 0. Test next wulitplier bit. 
DtflRl flLUtflC+Dl D£STtD41 ENDCONNtM/Dl CMUL CONDtO0-351 LBJUMPt. + 
11 S 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
lit MULM t ;One bit of a multiply... 

flLUtflC+Ol DESTtD41 ENDCONNtM/Dl CMUL CDNDta0-351 LBJUMPt. + 21 » 

;Here if multiplier bit is a O- Test next mulitplier bit. 



SLCE Harch 23, 198+ Z1:0^:Z3 file STRING: 



FtlNNF 



llm88H 

llmeSH 
llnMH 

Uaaei^ 
Uaesi^ 
iiiieei^ 
ii>>eei4 
uneei* 

lli»S814 

ii«eeH 

11x0814 

nneen 
iinseii 

11-0814 

iineei4 

llne814 

iioesH 
iiBa8i4 
iii>e8i4 

11b8B14 
11x0814 

Uneeu 

111)0814 
llnie814 
llni0B14 

iiixoeu 

11IH0814 
11II10814 
11»0814 

iii>oei4 

lln0814 

iinoeu 

llmOSU 
llii>0814 

Ui»eai4 

UmOBU 
llii>0814 
llm0814 

iimeei4 

11x0814 
llxOeit 
111.0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x8814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
ll»8ai4 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x6614 
11x0814 
11x0614 
11x0814 
11x0614 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0614 
11x0814 
11x0614 
11x0614 
11x0614 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
11x0814 
iim06i4 
11x0614 



94427 010S040240ee!!0Sl«lS7S212S43745B000 

04430 01030402400011065416762125437456000 
64451 61050462406611855416752125437456066 

04432 01030402400011071416762125437456000 

04433 01050402400611O714167E2125437456O00 

04434 0103O4O24000110754157S212S437456000 

04435 01050402400011075416762125437455000 

04436 01030402400011101415762125437456080 

04437 01050402408011101416762125437456000 

04440 01030402400011105416762125437456000 

04441 01050402408011105416762125437456000 

04442 01030402408011111416762125437456800 

04443 01050402400011111416752125437456008 

84444 01030482400011115416762125437456088 

04445 01050402400011115416762125437456880 

04446 01030402480011121415752125437456088 

04447 01850402400011121415762125437456880 

04450 01830402400011125415752125437456880 

04451 01050402408011125415752125437456000 

04452 01030402400011131416752125437456000 

04453 01050402400011131415762125437455088 

04454 01030402400611135415762125437455000 

04455 01050402400011135415762125437455000 

04456 01030402400611141415762125437456000 

04457 01050402400611141415752125437456000 

04450 01030402408011145416752125437456800 
04461 01050402408011145416762125437456008 

04452 01030402408811151416752125437456800 

04453 01050482480011151416762125437455000 

04464 81030402400011155416752125437456008 
04455 01850402480011155416762125437456000 



1! S 



n s 



11 s 

]i[ 



11 » 



1] t 
]][ 



n s 



11 $ 
III 



1] » 



n t 



11 X 
IK 



11 s 



11 s 



n » 



11 t 

nt 



1) » 
]][ 



;Hers It nultiplier bit is a 6- Test next nulitplier bit. 
DtfiRl ftLUtflC+Dl DESTtD4] ENDCONN[n/D) 01UL Ca«l[l»-3S1 LBJUnPl. 

inBr& if xultipiicr bit is a 1. Test next xulitplier bit. 
HULM [ ;One bit of a xultiply... 
ALU[flC+8] CeSTtD41 ENDCONNCM/Dl CMUL CCNDIQ0-351 LBJUnPI. + 21 

;Here if Bultiplier bit is a 0. Test next xulitplier bit. 
OiSRj ALUEAC+Oj DEST[D4; ENCCCKNiri/'Di CTiUL CCfC[30-3SJ LBJUTri- 

;Here if xultiplier bit is a 1. Test next xulitplier bit. 
HULn [ ;One bit of a xultiply... 
flLUEfC+0] DEST[D4] ENDC0NN[I1/D] CMUL aWD[Q0-351 LBJIWI. + 21 

;Herc if xultiplier bit is a 0. Test next xulitplier bit- 
DCflRl flLUIflC+0] DeST[[M] ENDCONNin/Dl CMUL COND[Q0-351 LBJlWt. 

;Here if xultiplier bit is a 1. Test next xulitplier bit. 
nULn [ ;One bit of a xultiply... 
PLUl(C*21 DEST[D41 ENDCONNtM/Dl CMUL CCWDIQO-351 LBJUtPC. + 21 

;Here if nultiplier bit is a 0. Test next xulitplier bit. 
DtARl ALUIflC+Dl 0eST[O4] ENDCOWI[H/D] CfU. CDND[00-35] LBJUnP[. 

;Here if xultiplier bit is a 1. Test next xulitplier bit. 
tVLn I ;Cine bit of a multiply.. . 
ALUtflC+01 DeST[D41 ENDCQNN[n/D] CflUL C0Wi[Qe-3S] LBJUffE. + 2] 

;Here if xultiplier bit is a O- Test next xulitplier bit. 
OtiWl flLU[flC+Dl DEST(D4) ENOCQNNtfl/D) OUL COND[l30-35] LBJLTPC. 

;Here if xultiplier bit is a 1. Test next nulitplier bit. 
HULM [ ;OnG bit of a xultiply... 
flLU[«:+01 C£STtD4} ENDCONNlM/01 CMUL Ct»D[Q8-3Sl LBJUMPt. + 21 

;l-!ere if xultiplier bit is a 8- Test next xulitplier bit. 
DIAR) SLUCftC+O] DESTED41 E^EC0^«IM/D1 CMUL C0ND(Q8-3S1 LBJUfVC. 

;Here if xultiplier bit is a 1. Test next xulitplier bit. 
MULM [ ;Dne bit of a xultiply... 
flLUIi^+01 DeST(D4] ENDCCWNIH/Dl CMUL CONDtQ0-35] LBJUtft. + 2] 

;Here if xultiplier bit is a 8. Test next xulitplier bit. 
DEAR] ALU[AC+DI DESTtCrtl ENDCONN[n/D) CMUL CONDCQO-351 LBJUrPC. 

;Here if xultiplier bit is a 1. Test next xulitplier bit. 
HULM [ ;Dne bit of a xultiply... 
ftLU[AC+03 DeST[D4) ENDCONNtM/D] CMUL COND[Q0-3S] LBJUHPC. + 2) 

;Here if xultiplier bit ts a 0. Test next xulitplier bit. 
DtAR) ALUIAC+Dl 0EST[D41 ENIXONNln/D) CMUL C»I0[Q0-351 L8JUMP[. 

;Here if multiplier bit is a 1- Test next xulitplier bit. 
HULH [ ;One bit of a multiply... 
«-U[AC+0) DeST[D4) ENDCDW1[M/0I CMUL C0tCt06-35) LBJUffl . * 21 

;Here if multiplier bit is a 0. Test next xulitplier bit. 
DtAR) ALUtAC+Dl DEST[D41 ENDCONNln/Dl CMUL CCINDrQ0-3Sl LBJUMPE. 

fHsre if fliultiplier bit is a 1. Test next muiitplier bit. 
HULH [ )One bit of a multiply... 
ALUCAC+01 DESTtCH] E^aXQNN[M/01 CHLL CONDtQ0-3S) LBJUtfl. + 21 

;Herc if xultiplier bit is a 8. Test next xulitplier bit. 
D[AR] ALU[ftC+D) DESTID4] ENDCONNlfl/D) CHUL CCIND[Q0-35] LBJUTPC. 

:Here if multiplier bit is a 1. Test next xulitplier bit. 
HULM I ;Dne bit of a xultiply... 
ALU[AC+el DESTCD41 ENOCONNCM/Dl CMUL CC1ND[Q0-3S] LBJUTPC. ■«• 23 

;Here if xultiplier bit is a 0. Test next xulitplier bit. 
D[AR] ALU[AC+D] DESTED41 ENOC0NN[n/0] CMUL CONDCQ0-35] LBJUMPt . 

;Here if multiplier bit is a 1. Test next xulitplier bit. 
MULM [ :Dne bit of a multiply... 
ftLU[AC+e] OeSTlD4] E^IDCO^W[n/D] CMUL C0ND[Qe-351 LBJUMPt. + 2] 

;Here if multiplier bit is a 0. Test next xulitplier bit. 
DEAR] ALU[AC+D] DEST[D4] ENDC0WI[i1/D] CMUL COND[O0-35] LBJUrlP[. 

:Here if xultiplier bit is a 1. Test next xulitplier bit. 
MULM [ ;One bit of a xultiply. . . 
flLU[AC*al DEST[D4] ENDCCNN[H/D] CMUL ,CgM3IQ0-351 LBJUHP[. + 21 

;Here if multiplier bit is a 0- Test next xulitplier bit. 
DIAR] ALU[AC+D] DEST[D41 ENDCONNIM/D] CMUL CCWD[Q0-351 LBJUTIPl. 

;Here if multiplier bit is a 1. Test next xulitplier bit. 
HULH { ;One bit of a xultiply... 
ALU[AC+0] DEST1D41 ENDCQNNtH/Dl CHUL CtM)[Q0-3Sl LBJUHPC. + 21 

;Here if xuitipiier bit is a 6. Test next xulitplier bit. 
D[AR1 ftLU[AC+D] DEST[D41 ENDCCMNIM/D] CHUL COND[00-351 LBJUTPI. 

;Here if xultiplier bit is a 1. Test next xulitplier bit. 
HULM [ ;One bit of a multiply... 
ALU[AC+01 DESTID4] ENDC0NN[H/D1 CHUL CONDra0-351 LBJUMPC. ♦ 2) 

;Here if multiplier bit is a 0. Test next muiitplier bit. 
DCAR] ALU[«:+D1 DESTID4] ENOCONNIM/Dl CHUL CDNO[00-351 LBJUMPC. 

;Here if xultiplier bit is a 1. Test next xulitplier bit. 
HULH I ;Dnc bit of a xultiply. .. 
ALU[ftC*01 DEST[D4] ENOCONNCH/Dl CMUL CDND[Q0-351 LBJUHPl. + 21 

."Here if multiplier bit is a 0. Test next muiitplier bit. 
DCfiR] ALUIAC+Dl DEST(D4] ENDC[Wlin/Dl CMUL CaND[Q0-3Sl LBJUIPC. 

;Here if xultiplier bit is a i. Test next xuiitpiier bit. 
MULM [ ;Clne bit of a multiply... 



SLOE March 23, 138+ 21:64:32 file STRING: 



llineBH 
llme81+ 

umeeH 

11H0B1* 

liaeSH 
llneSH 

iiaeai^ 

U>«814 

iimeei4 
iiaeeu 
iiBeei4 
iiaeei^ 
iiBeei4 
iineei4 
ii«eei4 
iii»0ei4 
iiaoeM 
iiaeai4 

UneSH 

iinesi^ 
iinasi^ 

111)0814 

iimeeii 

UmeSH 

umeei'i 
iimesu 
umeeH 

UmeSH 
UmdaH 

ii«i08i4 

llmeSH 
11010814 
111110814 
Iln0ei4 
llm0814 

iimeai4 

llina814 

iii>eei4 
iineeu 

111110814 
lln0814 

ll!!!081« 

llneSH 
11110814 
11B0814 
llin0814 
llm0814 
Iln0ei4 
llni0814 
llm0814 
llin0814 
llm0814 
llli>eei4 
lli>0814 
lliB0ai4 
11x0814 
llm0814 
Ilm0ei4 
llin0814 
llm0814 
111110814 
111110614 

iii»eei4 

111110814 

11 0814 

11 0815 

11 0815 

11 0816 

11 0817 

11 0818 

11 0813 

11 0820 

11 0821 

11 0822 

11 0823 

11 0824 
llm0825 
11110825 

11 882E 

11 0827 

11 0828 

11 0829 

11 0830 

11 0831 



84470 010304024000111554167^2125437455000 

04471 01050402400611165415762125437458000 

04472 01030402400611171416762125437456000 

04473 81050402400011171416782125437456000 

04474 01030402400011175415762125437456000 

04475 01050402400011175416762125437456000 

04476 01030482480011201416762125437456000 

04477 010504024000U20141S7B212543745G000 

04500 01030402400011205416762125437456000 

04501 01050402400011205415762125437456000 

04502 01030402400011211416762125437456000 

04503 010504024000112114167621254374SS000 

04504 81030402400011215416762125437456000 

04505 01850482480011215416762125437456000 

04506 01830402480011221416762125437456000 

04507 81850402400011221416762125437456000 

04510 01030402400011225416752125437456000 

045 1 1 81 0504024000 1 1 2254 1 6762 1 25437456806 

04512 81830417800600061415762025431456060 

04513 81850417880085055416762355431416060 

04514 01151717000005055415152365431415000 

04515 01833100400000001415152125431456000 



04515 01043717000005055415152355431416000 
04S1? 81033180400000001416162125431456006 



84528 01864817880605055418762424731416800 
84521 01853817880086055060352425571416000 



;Here if EaultiplJer bit is a 1. Test next amlitplJer bit. 
]][ FULF1 [ ;One bit of a mult ipl/. . . 

ftLU[flC+81 DESTtD41 ENDa»«[H/Dl CflUL CQNDrQ0-351 LBJUHPC. + 23 



;Here if Multiplier bit is a 6. Test next Mjiitplier bit. 
DIflR] flLU[flC+D3 DE3TID4] ENDCONNin/D] OIL COKD[Q0-3S] LBJlWt. 



11 $ 



;Here if Multiplier bit is a 1. Test next aulitplier bit. 
HI lULn ! ;One bit of 3 Mjltiply... 

fiLU[AC+0] DESTID4] DCCOWJCM/Ol CflUL CarC[O0-3S] LBJUfPt. + 21 



11 t 



;Here if Multiplier bit is a 0. Test next Mulitplier bit. 
D[AR1 flLUtflC+Dl DESTCD41 EMXtMIIM/Dl CflUL CONDtQ0-351 LBJUHPt. 



;Here if Multiplier bit is a 1. Test next Mulitplier bit. 
]][ nULM [ ;Clne bit of a Multiply... 

flLU!«;+01 DEST[D4] ENDC£»W[n/Dl CMUL a»C[ia6-3S] LBJUnPt. + 23 ! 

;Here if Multiplier bit is a 0. Test next Mulitplier bit. 
D[(«3 flLUt«:+D3 DEST!D43 E^CC0NNIH/D3 CHUL CDNDCO0-3S1 LBJUTPt. 
13 S 

JHere if Multiplier bit is a 1. Test next Mulitplier bit. 
33[ rtULfl [ ;One bit of a Multiply... 

ftLUC(«+03 OeST(043 EMXONNln/03 CHUL a3ND[Q0-3S3 LBJUMPC. + 23 ! 

;Here if multiplier bit is a 0. Test next mulitplier bit. 
D[(W1 flLUt«:+D3 DEST[D43 ENDCOWifl/Dl CHUL CCIND[Q6-353 L8JUnP[. 
13 $ 

;iHere if Multiplier bit is a 1. Test next Mulitplier bit. 
331 rtULn 1 ;One bit of a Multiply... 

ALLi[flC+03 DESTID43 ENDCONNLM/D! CtlUL CD(«lt06-353 LBJUnPt. + 23 ! 

;Here if Multiplier bit is a 0- Test next Mulitplier bit. 
D[(«3 flLU!AC+D3 DESTtD43 ENDC0NN[n/03 CHUL Ca«[Q6-353 LBJUMPI. 
13 t 

:Here if imjltipller bit is a 1. Test next mulitplier bit. 
33[ nULM [ ;One bit of a multiply... 

ALUtAC+01 DEST[D43 EM0C0NNtM/D3 CMUL CONDIO0-3S3 LBJUMPC. ♦ 23 1 

;Here if Multiplier bit is a 0. Test next Mulitplier bit. 
DtflRl ALU[AC+D3 CeST[043 ENDCCWNIM/OS CHUL COND[O0-353 LBJUMPt. 
13 « 

:Here if Multiplier bit is a 1. Test next Mulitplier bit. 
lit MULM [ ;Clne bit of a multiply... 

fiLUIflC+03 DEST[D43 ENDC0NNLM/D3 CMUL CClND[ia0-351 LBJUnP[. + 23 ) 

jHere if multiplier bit is a 8- Test next mulitplier bit. 
D[flR3 flLUIflC+Dl DEST[D43 ENDCDNNIM/D3 CMUL CCWD[08-353 LBJUnP[. 
13 S 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
331 MULM ( ;One bit of a multiply... 

flLU[ftC+03 D£ST[D43 EN0C0I»)[M/D3 CMUL COND!Qe-3S3 LBJUflPC. + 23 S 

:Here if multiplier bit is a 8. Test next Mulitplier bit. 
D[flRl flLU[flC+03 DEST[D43 ENCICa«l(n/D3 OUL CCIND(Q0-353 LBJLUPC. 
13 S 

;Here if multiplier bit is a 1. Test next mulitplier bit. 
]3[ MULM [ ;One bit of a multiply... 

flLU[flC+03 DESTID43 ENOCONNIM/Dl CMUL COND[Q0-353 LSJUMPL. + 2] 1 

;Here if multiplier bit is a 0. Test next mulitplier bit. 
DCARl ALU[flC+03 DESTCD43 ENDCONNIM/Dl CMUL CONDtlM-353 LBJUMPt. 



11 t 

33 
shift 



:Here if multiplier bit is a 1. Test next mulitplier bit. 

flLUtM:f01 DESTID43 ENDC0NN[(1/D3 JUMPCDCWULll $ ;Last add and 

D[fW3 flLU[fC+D3 DESTIB41 ENDCa*IIM/03 t 

D[f«3 ftLUtfC-D) C€ST[D7] $ ;Multiplier was negative, subtract 
ALU[AC3 COM3[QBUS<03 LBJUnP[DCinUL43 $ 



;Multiplier was positive 

DOnULl: «_U[SH-PiC] OEST[D73 NORM $ ;OEST flC SH LFT 
ftLU(HC) CONO!OBUS<01 LBJUMP(ClCnUL4] $ 

.pair 
[:. \ 2 * . 

lD0nUL4: D[MflSK 35.1 flLU[D&Q] DESTIQl POPJ NORM $ 

;Positive- Turn off 08, which was copied into fC3S. 

DtCONST 11 RDT[3S.l ftLU[DOR01 DESTtOl POPJ NaSn S 

;Ne3ative- Set Q0 so the number is negative (Q0 was 
; cop led into AC35). , , 



SLOE March 23. 138+ Zl:e+:39 file DSK:F4INST.SL0 



of 



F'*1NNF 



12 9832 
12 0833 

12 east 

12 0834 
12 083S 
12 083S 
12 0837 
12 0838 
12 08^ 
12 0833 
12.108+0 
12 08+0 
12 68+1 
12 08+2 
12 08+3 
12B08++ 
12 08++ 
12 08+5 
12 08+6 
12 08+7 
12in08+8 
12 08+8 
12 08+3 
12 0850 
12 0851 
12r>0852 
12 0852 
12 0853 
12 085+ 
12 0855 
12 0858 
12m0857 
12 0857 
12 0858 
12 0853 

12 eese 
i2i>eeei 
12 esGi 

12 0BE2 
12 08S3 
12 0BS+ 

12 0865 
12 0866 
12 0867 
12 0868 
12118863 
12 0863 
12 0870 
12 0871 
12 0872 
121110873 
12«e873 
12ine873 
12 087+ 
12 0875 
12 0875 
12 0876 
12 0877 
12 0878 
12 0873 
12 0880 
12 0881 
12 0882 
12 0883 
12 088+ 
12 0885 
12 0886 
12 0887 

12 ease 

12 0883 
12 0890 
12 0831 
12 0832 
12 0833 
12 089+ 
12 0835 
12 0636 
12 0897 
12 0838 
12nae99 
12m0899 
121110300 
12i<ie300 
12*0300 
12n0300 
12in03ae 
12i«e300 

i2ii<03e0 

121110901 
121110301 
1290901 
12III0301 
12i>0901 
12ii«9ei 
12 0302 
12 0303 
12 090+ 
12110905 
12x0305 
121110906 
12i!>a906 
12ii«906 
12110906 
12m03e6 
12II0906 
12m090e 
12B0907 
12£09@7 
12010907 045+3 01073237000006055416152365431415000 



Inteaer Divide 



06460 03073117Mee00eei41G162025431ZS600e 

06461 01033117000000001+16150005+31456000 



06462 010731 17M0000001+0455002S771456000 
06453 01073117000000001+04550025771456000 



06464 03073117100000001+16162025+31356000 

06465 01033117^0000001416150005431456000 



06466 030731 1710000000141616202S4313SS000 

06467 01033117000000001+1615000543145G000 



06470 0307311700000000141616202S4312S6000 

06471 01033117000000001416150005431456000 



06472 01073117000000001404550025771456000 

06473 01073117000000001+04550025771456000 



06+7+ 03073117100000001+16162025431356000 
66475 01033117000000001418150005431456000 



06476 03073117100000001416162025431356000 
08477 01033117000000001+16150005431456000 



00000037600077776000 1 7574000 1 0+0000 



04522 01033020600000001415162125421456000 



04524 01072317000011255400152025571456000 

04525 01024317000006055416162365431416000 

04526 01056137000006055416152365471516000 

04527 610731170000060S402034436S43141B000 
04530 01023137000000001416162225431456000 



04531 01823237000006055415152365431415000 

04532 54073337000006055416152315429416000 

04533 01033131900022665416156125430456000 



0453+ 01033020500000001+15162125+21+56000 



0+536 0107231700001 130140016Z02S571456000 
04537 01024317000006055415152365431416000 
04540 01956137090006055416152365471516000 
94541 619731170000060540203+4365431416000 
04542 01923137000000001416162225431456000 



.opcode[23e] Cxlist 
list 1 :IDiy 

DF/WT JLTPCIDIVSl » 

ALUcrtrwc] desteholdi JUfPCioivs] norm s 

.opcode:231] [xlist 

list 1 ;IDIVI 

OtIR) MflSKCia.l DEST[HOLD] JUMP[IDIV9] NORH $ iVm 

DIIR] tIflSKtie.l DESTtHQLDl JUfPtIDIV93 NCRM S ;imD 

.opcocte[2321 txlist 

list 1 ;IOIUn 

DF/WT R-tm JUHPCIDIUml $ 
dJilrEiVCI DESTtHOLD] JUTPIIDIVflfi] tORM $ 

o0pcode[233] kxlfst 

list 1 :IOIVB 

ly/WT R-fl-W JLWdDIUBA] $ 
ALUtfErVCl DESTIHOLD] JUTIPIIDiyBAl NCRH « 



.opcodet234] [xlist 

list 1 

DF/HT JLTPtDiyai $ 

ALUIftriAC] DE5TtHCLDI JUrP[DIV91 NDRtI S 



;Diy 



■opcode[235] [xlist 

list 1 ;DIVI 

DIIR) HflSKIlB. 1 DESTIHOLDl JUnPIDIV31 $ :IMnO 

DIIR3 HflSKUS. 1 OeSTIHOJ)] JljnPIDIV91 t litre 



list 1 jDIWI 

DF/WT R-n-ii jufiPioivnft] t 

ftLUIMEMM:] DESTIHOLD] JLTPIDIWlfl] NORM $ 

.opcodeI2371 [xlist 

list 1 ;DIue 

DF/WT R-fl-W JLWIDiyBAl « 
flLUIHEMflC] DESTIHOLD] JLTPIOIVBA] NORM » 

.rcloc 

[.USEINORDftLl 
[ xlist 

list 1 1 

MEMSTl = Smc [ IFRQ DeST[nEnSTO «?] COM5[m<20] LBJUHPISEOIl ]t 
;5tore to raetnory. ([lause (nacro expansion nou. rather 
f'than in macro call*) 



.DEFINE DflACFN [flA A2 Dl D2 OPll 

[ flLUIflfll DIfiRl DEST[0-AC ARl NORM $ 

fiCSEL[flC+l] Dietfl flLUtfi21 DESTIDl 02] OPl « 

flLUIftCl SIKC S 
1 

.DEFINE Df1M:2 (I 

[ D[rEn] ALUIDnflCl DESTIflRl PUSHJ[DODOiyi NORM $ 

I 

.DEFINE DmCl 11 

t flLU[-lI DEST[flCl JUMP[. + 21 NORM » 

ALU[9) DEST[flC] NORM * 

D[MEH1 flLUIDtiflC] DEST[flRl NORtl « 

DIARj ROTiij hASK'Ii] [)E5TilK-fiORi wORfl i 

ALUtQl DeST[flR] PUSHJIDODIU] NORM $ 
] 

IDIV3: ALUIflCI DESTtO flR] CONOt-(BUS<01 LBJUnP[IDIVll CYLEN[C5001 t 
:L0 PflRT TO Q, OECK SIGN 
.pair 
[:. \ 2 ♦ . 

IIDIVl: DtlMri 

f flLU[-lJ DESTtflCl JLrP[. + 21 NORM « 

ALU[0] DEST[flCi NORM $ 
DtHEM) ALU[DttM:i DESTtflRl NORM $ 
DIfiR] ROTd] MASK[1] DEST[IR-AOR] NORM S 
W_U[Q1 DESTIflR] PUSHJIDODIV] NORM » 
] DnflCFNIQ D AC AR NEQI] 

t fiLUCQ! QltSl OESTSO-ftC (SI NORM $ 

ACSEL[AC*1] DIARl flLUED] DEST[«: flfil NEDI $ 

ALUIAC] SMAC [ IFRQ DESTIMEMSTO ARl (2WD[m<20I LBJIWISEOII ]$ 



IDIVMfl! fILUiflCi DESTlQ AR] C0ND[-06U5<91 LBJUnPtIDIU2] CYLEN[C50e) $ 
;L0 PART TO Q. SAVE AC. CHECK SIGN 
.pair 
[:. \ 2 + . 

1IDIV2: DflACl 

[ ALU[-1] OESTIACl JUMP!. + 2] NORM S 

«-ui9) DESTiAC] nam % 

DltlEMl ALU!0»AC) DESTIAR! NORM « 
DIARl ROTIll MASK[n DEST[IR-ADR1 NORM t 
ftLU[QJ DEST[AR1 PUSHJIDOOIVl NORM * 
1 DflACFNID Q fEMSTO AR MEMSTl] 

[ ALU[DI DCARl DEST[0-AC AR] NORM * 



SLOE March 23, 138+ 21:0-*:Se file STRING: — of 



F+INNF 



12n.a318 

izmeaie 

121118311 

IZmaSll 

12ii*911 04550 01072317000011325406152025571456006 

12i»0911 04551 01024317000006055416152365431416060 

121110911 04552 01056137000006055416152365471516060 

12010911 64553 51073117800006054020344365431416660 

S2»eSJl 04554 81823137880880081415152225431455000 

12ni0912 

12110912 

12B0912 04555 01023237000006055415162365431416600 

12ni0912 64556 01073337666006055415162355431416660 

12m6912 04557 01033131000622665415156125436456666 

12iii8912 

12 6913 

12 0914 04560 61033017066606055416162355431416066 

iznesis 

lZm6915 

1Z1K6915 64561 01656137666600061416162225471556000 

121II091S 

12ii>0916 

121110915 04562 81023237000006055415152365431416006 

12010915 04563 54073337066006655416152315420415800 

12ne916 64564 01033131066022665416156125430456666 

12m091S 

12 6917 

12 0918 04565 81033017600006055415152355431415006 

1ZB0919 

12110919 

12III0S19 04566 01856137066660661416152225471556660 

12II109Z8 

12010328 

12m692e 64567 81873237666686655416152365431416000 

12(110328 04570 81023131006622555415155115436456600 

lZni83Z0 84571 81833131698822555415155125436455668 

12i»6926 

12 0921 

12 0922 04572 81033017666666655416162355431416060 

1Z«09Z3 

12a0923 

12Rt6S23 04573 91@S513?83@668^14151E222S47155£366 

12»0924 "■''*■' 

12B0924 

12m0924 04574 81823237866606055415152365431416066 

12«0324 04575 01073337000006055415152355431416666 

12016324 04576 81633131600622665415156125430456606 

1Z>10324 

12 0925 

12 8925 04577 61073117666606654626344365437416000 

12 0927 04506 01043537606666655406362365431416000 

12 0928 04661 81873180266011487468362825421456000 

12 6929 04S62 01063617006660061060362825571456000 

12 8930 84603 01064017066660661418762624731456606 

12 0931 

12 8932 

12 8932 

12 6933 

12 0934 

12 8935 

12 0336 

12 8337 

12 8338 

12 6939 

12 6946 

12 0941 

12 8942 

12 8943 

12 0944 

12 8345 

12 0345 

12 8346 84604 01873106686600001416162825451556866 

12 8947 

12 8948 84605 81171117000066655416156365477516666 

12 8343 

12 0358 04666 81833168686666681415162825411456806 

12 6351 

12 0351 

12 0952 04507 01122000200006001416162625421456660 

12 0353 

12 8954 84610 81037317808666881416162825431456666 

12 8355 

12 0356 04611 01132317666006855415152365431416800 

12 0957 

12 8958 84512 01073117061066654611000365571417666 

12 0359 

12 0960 

12 6961 

12 0962 

12 0963 

12 0964 

12 8365 04513 81151188400096801415162325461556888 

12 6368 

12 6367 04614 01073317666886655415152354637416860 

12 6968 

12 0969 8451S 81853317000610770558362225571456668 

12 8378 

12 0971 84516 81873317600006055415152425431416800 

12 0972 

12 0373 

12 8974 04517 01073117668668681416162225431456886 

12 8375 64S28 8197318860681 1445415152825421456808 

12 0376 84621 61132317668666655416152365437416866 

12 6977 84622 81073100286886855406362425751415866 

12 8977 

12 8978 64523 81122817666666655415152425431415666 

12 6379 

12 6386 

12 0981 

12 8362 



.pair 
I:. \ 2 + . 

jiDiys: avcx 

[ fiLUt-11 DESTEACl JUtlPt. + 2] NORM % 

flLUCei DESTtACl NORM $ 
DCMEnl (^AHOafC^i DESTtfWI NORM $ 
DIflR] RDTtl! MASKIll DESTIIR-flOR] MORII % 
ALuiO; CtSTiflRl PuSKJiDCOIVj NORfl S 
1 DnfiCFN[Q D ftC (« NORM! 

t ALUIQl D[(W] DESTCO-flC flR] NORM S 

flCSELCAC+U DIflR] flLUIDl DESTIAC AR] NORM S 

ftLUCflCl Srwc [ IFRQ DESTIttrSTO fiR] CDND[m<20] LBJUnP[SEOIl 1* 



DIV9: ftCSELCAC+l] ALUCftC] DESTtQ] NORfl % ;L0 PART 
DmC2 

[ DCMEnl ALUtDiiACl DEST[flRl PUSHJCDCBOiy] NORfl t 

1 Df1fCFN[Q D flC fiR NEOI] 

t flLUIQ] DtflR] DESTIO-flC flR] NORfl S 

flCSEL[«:+l] D[(«) flLUID] DESTIflC AR] NEOI S 

ALUtACl SflAC t IFRO OESTIMEHSTO fiR] COND[Mft<20] LBJUr*>[SEOIl ]* 



OIUtIA: 



DIWBA: 



ALUCACl ACSEL[fiC+ll DESTtQ] NORM t 
DnAC2 

DtMEMJ flLUCDttftC] DESTEARl PUSRKDCBOIV] NORM » 
DMACFNtD Q MEMSTO flR MEfBTl] 

ALU[D] DCARl DEST[0-AC fiR] NORM $ 

ACSELCRC+l] DlfiR] fiLU[Ql DEST[HEMSTO fiR] MEMSTl S 

SLUtftCi SMAC ! IFRO DESTLMEMSTQ fiR] C0NDinA<261 LBJUrPiSEDIJ !S 



ALUIAC] ACSELIAC+1] DESTCO] NORM $ 
DMAC2 



DtlACFNIO D AC flR NORM] 



PuorWii^jt.A^iv J rauRFi • 



ALUIQl DEAR] DEST[0-AC flR] NORM $ 

ACSELIAC+1] DCAR] ALUtD] DESTIAC m\ NORM « 

ALUtAC] awe I IFRQ DESTIftMSTO flRl C0fCIHfi<26J LBJLWtSEOI] ]$ 



1 



DOOOiy: DIAR] RQTtl] MftSKIl] DESTIIR-ADR] SHORT t 
fiLUISH-AC] DESTIfiR DSJ MftSKIl] NORM * 
DtfiR] MflSKdl C0ND[0BUS=6] JUTPI. + 2] C558 S 
DCCONST 1] R0T[43] flLU[DORQ] DESTtQ] JLTPtDODIW] NORM * 
DtMASK 43] flLUID&Q] tXSTtQl NORM JUMPtlXlOIU) $ 



; Sinsl 


2 Precision Divide (and cont 


nuation of double precision! 


: (Remi 


nder: Quotient, Remainder 


= Oiv 


dend / Div 


sor) 


;Uhere mc get 


here: 












; MEM 


36 b 


t signed divisor 










i AC 


High 


order dividend (8 


or 


-1 


for single 


precision) 


: Q 


Low order dividend 










; IR<3S> 


Sisn 


of dividend XOR s 


gn 


of 


divisor 




; AR 


Sign 


of dividend and or 


iginal contents of AC 



OCDIV: DtHEM] CONDt-OBUSO] JUMPtDOOIVl] C55e » 

;Ju«p if divide by positive nunber 
DIMEM] ALUt8-D] DESTtHOLD] SHORT $ 
Make absolute value 
IXKIVl: ALUIflCl CONOt-OeuS<0] JUrPttXDIU2] CYLENtC456] $ 

;Check sign of high order word. If positive, weVe ready 
to go 

ALUt0-Q] DESTtQ] C0MDt0eLE=8] JUMPIDCDIU3] CYLENtC58e] » 

;l>}uble precision negate, low order uord 
ALUINOTAC] DESTIAC] JUMPID0DIU2] NORM S 
;High order word, no carry 
0ODIV3: flLUt8-AC) DESTtflC] NORM S 

;High order word, with carry 
D00IV2: DtCONST 44] ROTtLLOflO-ROT] LLOfiO NORM $ 
.-LOOP 37 TIMES 



Now have: 
MEM 
AC 
Q 



Absolute value of divisor 
Absolute value of high order dividend 
Absolute value of low order dividend 
Repeat count for division 

DtrEM! ALLitac-D] CijnDtcajso] jinPtixEr-v] esse % 

;Junp if not no divide case 
DtPC-FLAGS] DESTIflC] SHORT $ 

;Get ready to set flags 
DtCONST 1] R0TI23. ] ALUtDORftC] DESTtACI PUSHJtMSTOyi] NORM t 

;Set no divide 
Dtflfi] DESTtflC] POPJ NORM t 

;Fix clobbered AC 

D0DIV7: NORM PUSHJIDODIVM] t 

DtAR] C0N0t-£)BUS<8] JLffPi. •*■ 21 C559 S; J IF DIVIDEND wftS + 

flLUt0-AC] DESTtAC] SHORT S 

DtlRl MASKIll CONDt08US=8] POPJ CSS8 % ;LEflVE IF RESULT SHOLLD 8E 

+ 

flLUt0-Ql DESTIOl PtPJ NORM $ 
On complet ion: 

MEM Absolute value of divisor 



Ouot ient 



SLOE Harch Z3, 1384 21:^:58 file DSK:F+INST.SLO 

IZ 9388 

12 338S 

12 8389 0+G2S 010731179006006+5+16152825+31+55006 

12 9330 

12 9331 

12 9992 

12II0333 

12r>0333 

12 933+ 

12 9395 

12 9395 

12 9335 

12 9396 

12ni0337 

12m0397 

12m0337 0+626 01151600+00011+61+15762125+71556060 

12in0337 

12»0337 0+627 019S0600+0eeil+61+1676212S+7155S060 

12m9397 

12100337 

12IB0397 0+630 91 151690+0001 1+55+1576212S+7155G000 

12x9397 

12i»0937 0+631 01950690+00011+65+16762125+71556060 

12i>0337 

12i»9397 

i2iti9997 0+532 91151606+06611+71+15752125+71555906 

12i»9397 

12B0397 0+633 01050606+09011+71+16762125+71556906 

1ZK0997 

12i»0337 

12B0997 0+63+ 01151600+09611+75+16762125+71556606 

12B0337 

12010997 0+635 01050500+06611+75+15762125+71556666 

12in0997 

12m9997 

i2m0937 e+636 01151500+06011591+15762125+71556906 

12m0997 

12m9397 0+537 91950696+90011591+16762125+71556006 

12»>0997 

121110937 

121110937 0+6+0 91151500+90611505+16762125+71556906 

i2ii09S7 

121T.0397 0+6+1 91059696+90011595+16762125+71556000 

12»i0337 

121.9337 

12m0937 0+6+2 91151690+9001 151 1+157S212S+71556908 

12in9937 

12m0937 9+6+3 01050600+09011511+16762125+71556069 

12in0937 

12II10937 

12ni9997 0+6++ 91151506+90611515+16762125+71556060 

1211.0997 

12.10937 0+6+5 01050600+00611515+16762125+71556660 

12.10937 

12B0937 

12in0997 0+6+6 01151500+00011521+16762125+71556066 

121.9337 

lZi«a997 9+6+7 91050606+00011521+16762125+71556660 

12m0337 

12.10937 

12.10337 9+559 01151500+90611525+16762125+71556060 

12in0997 

12m0937 9+B51 01950600+06611525+15762125+71556666 

12.10337 

12.19337 

12.10337 9+652 91151600+00011531+15762125+71556600 

12.19337 

12.10337 0+553 01050600+00611531+15762125+71556000 

12in0397 

12m0337 

12m0397 0+55+ 01151500+00011535+15762125+71556900 

121.9337 

12in9397 0+655 91950696+99611535+15762125+71556006 

12m0397 

1 211.0997 

12m0997 0+656 01151606+966115+1+15762125+71556666 

12ro9997 

12..9997 0+657 91059699+900115+1+16762125+71556066 

12in0937 

12m0997 

121.0997 0+560 91151606+060115+5+16762125+71556060 

12in0937 

121.0997 0+661 01050606+066115+5+15762125+71556066 

121.0937 

12m0997 

12.10937 0+662 01151500+00611551+16762125+71556006 

12.10937 

12.10997 0+663 01050600+99611551+16762125+71556000 

12.10337 

12m0997 

12»0937 0+66+ 91151600+90011555+16762125+71556066 

121.0397 

121.9337 9+655 91059600+00011555+16762125+71556000 

12iii9337 

121.9337 

121.9937 0+666 91151500+90611551 + 16762125+71556666 

12.10337 

12.10997 0+667 91959699+90611561+16762125+71556996 

12.19937 

12.10997 

12.10397 0+670 01151500+96611565+16762125+71556660 

12.10397 

12m0337 0+571 01050600+96611555+15762125+71555066 

12m0397 

12.19337 

121.9997 9+572 91151590+00011571+16762125+71556000 

121.9997 

12II10997 9+673 91050690+00011571+15762125+71556006 

i2in6337 

121116997 



of — F+lWf 

;For ordinary float ins divide* do B fewer steps than fi 
po int . 

NCRH JUf=[OODiy+ •*■ 18.J f 

;For floating divide long* do 3 fewer steps than fixed 



DCIDIU+: 
.even 
[:. \ 2 + . 

DEtEHl flLUIi^-Dl D£5T[D6] nAac[731 COK3IOBUS<0] LBJIW 
T380 » 

DtrEM] f>LU[flC-K)] DeSTCDGl nASK[73] CCWD[DBUS<01 LBJUflP 
T300 « 



] 



[ 



Dtrtn] flLU[«;-D] DEST[D6] riASK[73] CONDtQBUS<0] LBJUnP 

oimn] fiLucflc-i-Di dest[D6) msK[73i aN3(Qais<0] lbjutp 



T306 » 



DCttni flLUtflC-D] CeSTIDG] rMSKC73] COND[aBUS<0] LBJUnP 
DCfEM] ALUIiC+Dl DESTICei nfl5K[73) COK)[OBUS<01 LBJUTPi 



T306 $ 

K 



DtnEHl flLU[AC-D) DESTCDGj mSK[73j CC3ND[OBUS<81 LBJUTPI 
Otttnl flLUCAC+Dl DEST(D6] MfiSK[73) CQND[0BUS<81 LBJUTPI 



T306 $ 

][ 



DtttEM] ALU[AC-D] DESKDGl mSK[731 C0ND[aeUS<8) LBJUTP 
DtMEMl ftLUCftC+D] DeST[D61 mSK[73I C[N)[OaJS<01 LBJUtP 



T300 t 
][ 



T399 » 



DCrtfll flLUiftC-Ol DeST[uSj mSK[731 CONDCCaB<0j LBJUTP 
DtHEH] eLU[PC*0} DESTCCB] mSK[73] C0ND[DBUS<91 LBJUTP 



1306 $ 
]t 



DtMElll ALUtftC-D] DeST[D61 nftSK[731 CONDtO8US<0) LBJUfP 
DIMEM] flLU[AC+Dl DESTEID6) rWSK[731 COND[OBU5<0] LBJUTP 



T300 S 



DtREMl flLU[PC-DI DE5T[D6] riftSK[73] CCWD[CI81IS<0] LBJUTP 
D[MEm flLU[l^+D] OESTtOei nftSK[731 CCKD[OajS<0] LBJUTP 



T300 S 
It 



1306 * 



Dcrtm fiLU[«:-Di DesKDei riASK[73] caND[cajs<e? lbjutp 

Dirtni flLUCflC+D) KST[D61 nflSK[73) COND[OBUS<01 LBJUfP 



T306 $ 

it 



T300 S 



D[MEM] ftLUtAC-D] C£ST[D6] nASKt73I CaNDtOBUS<01 LBJUTP 
D[nEn] ftLUtaC+DJ DESTIOei nASK[731 CCWD[DBUS<0) LBJUTP 



T306 S 
J! 



T366 $ 



D[TEH) fILUEftC-D) DESTIDGl Mfta<[73) C»D[OBUS<0] LBJUTP 
DCMen) ftLUtAC*D] C€ST[D61 mSK[73] CCIND[C8US<0] LBJUTP 



T366 % 



DtnETI] flLUEAC-D] MiSTECiB] rWSK[731 CCIND(CBUS<9) LBJUTP 
DCTEnl ALUtAC+Dl D£ST[[)6) mSK[731 COND[OBUS<01 LBJUTP 



T300 $ 
][ 



D[TEn) «_UCfC-0] DeST[D6) nftSK[73] CONO[CeuS<01 LBJUTP 
DtriEM] ftLUtflC+Dl DESKCS) TWSKE731 COTe[tBUS<01 LBJUTP 



T300 S 
It 



T300 $ 



DtTEM] ALUtAC-D] DESTtD6] TWSKt731 CCINDICIBUS<0] LBJUTP 
DlnETll ftLUtftC+D] I3ESTtD61 nflSKt731 CONDIC1BUS<0] LBJUTP 



T306 « 
It 



T306 $ 



DCTEni ALUtAC-Dl DESTttK] TlflSKt73] CCWDIOajS<0] LBJUTP 
DtnEni ALUtftC+Dl DESTttK) HASK[73] CONDtOeUS<0] LBJUTP 



1306 $ 



T306 $ 



DtHEM] ALUtflC-Dl DESTID6] mSK[73] CCiNDICajS<ei LBJUTP 
DtMEMl ALUtAC+Dl CeSTIt)61 TIflSKtTS) C0NDI0BUS<91 LBJUTP 



T300 S 

It 



DtTEM] I^UtfC-D] oeSTtDG] TWSt;[73] CC)NDrClBUS<0] LBJUTP 
tJtnEMl ALUtfC+Dl tJESTtlX] TBSKt731 CCM3t[HJS<0] LBJUTP 



T300 » 

It 



DtMEn] ALUtAC-DI DESTttKl TIASKt731 CONDtOBUS<0] LBJUTP 
DtTETI] SLUtftC+D] DESTItX) nASKI73) COTDtC)BUS<0] LBJUTP 



T300 t 
It 



T366 $ 



DITEM) fiLUtfC-D] DESTItXI HftSKI73] CCWDt0ajS<91 LBJUTP 
Dtrtm ALUtAC+t31 DESTttK] nftSKt73) C0NDtC»US<9) LBJUMP 



T380 t 
It 



1366 » 



DtnEni flLUtfC-DJ CSSTttKl nftSKt73] CDNDtCIBUS<01 LBJUnP 
DinEH] f)LUIfC+D) DESTIDGl nftSKt731 CDNDiaBUS<91 LBJUTP 



* z: 

* 1] 

+ 2] 

♦ 1] 

+ 21 
+ 1] 

•*■ 21 
+ 11 

♦ 2] 

+ 11 



+ 21 

+ 11 

t 21 
+ 11 

+ 21 
+ 11 

+ 21 

+ 11 

+ 2] 

+ 11 

+ 2] 

+ 11 

+ 2] 
* 1] 

+ 21 
+ 11 

+ 21 
■>• 11 

+ 21 
+ 1) 

+ 2) 
+ 11 

+ 21 
+ 1) 

+ 21 
+ 1] 

+ 21 
+ 1] 



H 



SLOE rlarch 23, 198+ 21:05:08 file STRING: — of — F41Wf 



12»3937 8467E 81151500+00011Sei't!E7E212S't7155Ea00 

12-0937 

12E09S7 84S77 0105063040001 169H1E76212S+7155E080 

12iii89S7 

1211.0997 

121110937 04700 01151600400011505416762125471556000 

121110997 

12108997 04701 01050600400011605416762125471556008 

12O0997 

12>i0997 

121110997 04 702 01151600400011611416762125471556000 

lZn0937 

121D0937 04703 01050600400011611415762125471556008 

12»0937 

12in0997 

12B0997 04704 01151600400011615416762125471556088 

121110937 

12D10337 04705 01050600408011615416762125471556008 

12110937 

12n!0997 

12B0997 04706 01151600408011621416762125471556000 

12n0997 

12»0337 04707 01050608400011621416762125471556880 

12-0337 

12»0337 

12»0997 04710 01151600400011625416762125471556000 

12bi0997 

12100997 04711 01050608400011625416762125471556000 

121110937 

121110997 

12ni0337 04712 01151600488811631416762125471556800 

121110337 

121110337 04713 01050600480011631416752125471556008 

12in0937 

121110337 

12m0337 04714 01151500400011635416752125471556008 

12010337 

12010337 04715 01050600488011635416762125471556000 

12010337 

12010337 

12010337 04716 81151600408811641416762125471556808 

12s!0397 

12010397 04717 01050600400011641416762125471556000 

12010337 

12010337 

12010397 04720 8115168840001 164541676Z12S471S56008 

12010337 

12010337 04721 01050600408011645416762125471556000 

12010337 

12010397 

12010397 04722 01151688400011551416762125471556088 

12in8397 

12010337 04723 01050600400811551415762125471556008 

12010397 

12010337 

12oi8397 84724 81151688400011655415762125471556008 

1ZO10337 

12010337 04725 0105060040001 165541S76212S471556000 

12010337 

12B0337 

12B0397 04726 01151500408811661416762125471556088 

12018337 

12010937 04727 01050600400011661416762125471556008 

12m0997 

12010397 

12010937 04730 01151508408011665416762125471556088 

12010337 

12m0337 04731 81050600480011665416762125471556000 

12010337 

12010337 

12010337 04732 81151E00400011671416762125471556000 

12010337 

12010337 04733 81858688400011671416762125471556080 

12010337 

12010397 

12010397 04734 01151508400011675415762125471556088 

12010397 

12010337 04735 01050600400011675416762125471556000 

12010997 

12 0397 04736 0115151700001170141B76202S471556000 

12 0938 04737 0105061700000605541S7623S5471516000 

12 0333 

12 1000 04740 01043517000886855480162365431416000 

12 1001 04741 01056300600006055060362425561416000 

12 1001 

12 1002 

12 1003 84742 01050317008806055416162425471516808 

12 1004 

12 1005 

12 1006 

12 1807 

12 1008 

12 1003 

12 1010 

12 1010 

12 1011 

12 1011 

12 1012 

12 1812 

12 1013 

12 1014 

12 1815 

12 1015 

12 1016 

12 1017 

12 1018 

12 1013 

12 1020 



7300 « 



T300 * 
U 



T300 » 



1300 * 



T300 * 



T300 * 



T300 $ 
][ 

T30e $ 

T300 $ 
][ 

T300 S 

T300 $ 

]l 

T300 $ 

T300 $ 

][ 

T300 $ 

T308 * 
][ 

T300 i 

T300 $ 
][ 

T300 % 

T308 » 

][ 

T300 » 

T300 $ 
][ 

T380 $ 

T300 $ 



T300 $ 

1300 $ 
II 

T300 $ 

T300 $ 
)l 

T300 S 

T308 $ 
J [ 

T300 $ 

T308 $ 
J 



Dtr£I1] ffl-UtfC-Dl DESTID6) fWSK£73] CaND[O8US<0] LBJUTP 

Ofrtni ftLU[«:+Di DESTIDe) HflSK[73l COND[OBUS<0! LBJUrP! 

D[MEM) ALU[AC-D] DESTID6) m5K[73] a]M)[OBUS<01 LBJUMP; 

OCfEM] flLUtftC-KJ] DeST[D6) riASK[73) a)fC[QaiS<01 LSJUTP 

OCMEn] ALU[fC-D] De5T[D61 mSKI73] COND[DBUS<01 LBJUtf 

DIftMJ flLU[flC+D) DEST[D6] mSKt73I COND[DBUS<0I LBJUtlP 

Dtrtm flLU[AC-0] DE5T[DG1 mSK[73] COND[DeUS<01 LBJUnP 

DlfEM] flLUIAC+Ol DEST[D61 l1ASKt731 CaND[OBUS<0] LBJUTP 

D[nEHl flLUtflC-D) DEST!D6] nftSKt731 a»CtOBUS<0) LBJUTP 

DEfEM] flLUtftC+Dl DESTCDG] f1ASK[731 COND[QBUS<01 LBJUTP 

DEHEtl] fILUtflC-Dl DeSTtD6] HftSK[73] aMD[[BUS<01 LBJUTP 

DCfEM] flLUCfC+D] DESTCDG) nflSK[731 aWD[CajS<0] LBJUTP 

Dtftn] «.U[ftC-Dl DeST[D61 nASK[73] CaM)[OBUS<0] LBJUTP 

DtriEn) flLU[f)C+Dl DESTEDG] MASK[73] COM)[OBUS<0] LBJUTP 

DtnEMl ftLU[flC-D) DeST[D6) f1ASK[73] CarC[O8US<0) LBJUTP 

Dtneni aluiac+d] desiidgi fiftSK[73i CDND[oajs<0) lbjutp 

DlrEn] flLU[«:-D] DeST[D6) nftSK(733 CCHD[OaS<0) LBJUTP 

DIMEM] «.U[flC*D] D£ST[D6] (1ASKt731 CCWD[CIBUS<81 LBJUTP 

DITEfl] flLUIflC-D] DESTCDG] T1ASl!:[731 CaND[0BU5<8) LBJUTP; 

DIMEMl ALUIAC+D] DESTCDG] nASKC731 CONDCCeJS<0] LBJUTP 

DCtCn] flLUCAC-D] DESTCDG] rtASKC73] COfeCO8U5<0] LBJUTP 

DiMErl] fiLUCnC+Ol OESTCDGi nflSKC73i COHDiOBUS<01 LBJUTP 

DCnEM] flLUCAC-D) DESTCDG] nfSKC73] CC»CICOBU5<0) LBJUTP 

DCMEM] flLUCftC+D] DESTCDG) nASKC73] Ct»DCCBUS<0] LBJUTP 

DCMEn) flLUCflC-D) DESTCDG] IKSKC73] CQNDCOBUS<01 LBJUTP 

OCTEn) flLUCflC+D) DESTCDG) f1ftSKC73) [XM)COSUS<01 LBJUTP 

DCTEM] flLUCAC-D) DESTCDG] mSKC73] CONDCDBUS<0) LBJUTP 

DCMEM] flLUCACi-0) DESTCD6] MflSKC73) CONOCOBUS<0) LBJUTP 

DCMEMl ALUCAC-D) DESTCD6] MASKC73] CONDCO8US<0] LBJUTP 

DCMEM] «_UCftC+D] DESTCD6] HflSKC73] CONDCDBUS<0] LBJUTP 

DCMEM] ALUCftC-D] DESTCDG] nASKC731 CONDCO8US<0] LBJUMP 

DCMEM) ALUCAC+D) DESTCDG] MASKC731 COTCICOBUS<0] LBJUTP 

DCMEM] ALUCAC-D) DESTCDG) nASKC73) JUTPC . + 2) NORTI $ 

DCMEMl ALUCAC+D) DESTCDG) MfiSKC73) NORM S 



I. + 


Z) 


I. * 


1! 


I. * 


2] 


t. ♦ 


13 


c. ♦ 


2) 


[. + 


n 


c. + 


2) 


c. * 


1) 


[. + 


2) 


[. ♦ 


11 


[. + 


21 


[. + 


11 


[. + 


21 


c. + 


1) 


[. ■<■ 


2) 


c. + 


1) 


c. + 


2) 


c. + 


1) 


c. + 


2) 


c. + 


1) 


c. + 


2) 


t. + 


IJ 


c. + 


21 


c. ■«■ 


1) 


c. + 


2) 


c. + 


1) 


c. + 


2) 


c. + 


1) 


c. + 


2) 


c. + 


11 


c. + 


21 


c. * 


1) 



ALUCSH-AC) DESTC051 MASKCai NORM t 
DODIUG: DCCONST 1) R0TC43) ALUCDaAC) DESTCACl COM)C-OGUS<0) C:550 PCPJ * 

;AOJUST REM SIGN. CHECK IT 
DCTEM) ALUCD+ACl DESTCAC) NORTI POPJ S ' 
; ADJUST REM. 



C0MT1ENT i 

.QUAD 
D00iy4: DCMEM) ALUCDIUAC-D) DESTCDG] MA5KC3) COTCI!OBUS<0] SL00PCDGDIU4] 
C600 $ 

ALUCSH-AC) DESTCDS) fMSKC0) JUTPCD0DIU6) NORM $ ; RE-SHIFT 
REMAINDER 

DCTEM] ALUCDIVAC+D) DESTCDG) MASKC3) CONDCOBUS<0] SL0OPCDODiy4] 

csee * 

ALUCSH-AC) DESTCDS) TWSKC0) NORM * 
:end-of-.QUflO 
DGDIV6: DCCOfKT 1) R0TC43) ALUCDbAC) OESTCftC) Ci3ND[-08US<8] CS58 POPJ » 

;AOJUST REM SIGN, CHECK IT 
DIMEFIl ALUCD+AC) DESTCAC) NORM POPJ $ 
; ADJUST REM. 



SLOE Harch 23. 1984 21:05=16 file DSK:F4INST.SLD 



F41NNF 



13 1622 
13 1823 
13=102+ 
13 102+ 
13 182S 
13 1026 
13 1027 
13al028 

lacieze 

13«102B 
13 1029 
13011030 
13nl030 
13 1B31 
13 1331 
13 1832 
13 1033 
13 103+ 
13 1035 
13 1036 
13 1037 
13 1838 
13 1839 
13 18+0 
13 18+1 
13 10+2 
13 18+3 
13 18++ 
13al0+5 
1 3a 10+5 
13 10+5 
13 10+5 
13 10+7 
13 10+B 
13 10+9 
13 1050 
13 1051 
13 1052 
13 1053 
13 105+ 
13 1055 
13 1056 
13 1057 
13 1058 
13 1059 
13 1060 
13 1061 
13 1062 
13 1063 
13 106+ 
13 1865 
13 1065 
13 1067 
13 1068 
13 1069 

13 1070 

13r«1871 
13 1071 
13 1072 
13 1073 
13 187+ 
13niie7S 
13nil87S 
13iiil87S 
13ml876 
13iiil876 
13 1077 
13 1078 
13 1079 
13 1080 
13 1861 
13 1882 
13 1883 
13 188+ 
13 18S5 
13 1088 
13ml887 
13 1887 
13 1088 
13 1889 
13 1890 
13nl891 
13nil891 
13nl891 
131111892 
13m 1892 
13 1093 
13 109+ 
13 1095 
13 1096 
13 1097 
13 1998 
13 1093 
13 1100 
13 1101 
13 1102 
13 1183 
13 110+ 
13 1105 
13 1106 
13 1107 



06500 01073002200800001+16152125771+56000 

06501 01073017000ea0e01+160++825771+57000 



8+7++ 0186301700000000028+56282+731+55000 

8+7+5 0107301700e006055+820++365771+17000 
0+7+5 01161102080000001+11152025551+56080 
8+7+7 01 161817000000001+1 10++025571+57000 

8+750 01868002200000001+110++02S571+57000 
0+751 01073117000080001+16162825+31+5S800 

8+7S2 01833108208022711+16162825+31+56000 
0+753 0185+317000006055060352365571+16080 
0+75+ 01873817000006055+1615236+631+16000 



8+>^5 010531170000000010502+22^3551+57000 



0+756 5+073117080006055+16162325+20+16000 

8+757 81833128500000001+16162025+31+56000 
0+760 01152117000006055+11050^5571+17000 
8+751 0107301700000505521215235+731+15000 
8+762 5+863317080006055216162325+28+15000 

0+763 81023117000006055+15050365+31+17000 
0+76+ 5+073317000006855212152325+20+16000 

0+7SS 01162117000006055+10650365571+17000 
0+766 61023117000005055+151++365+31+1600e 
0+767 0105+817000006055060362365571+16000 
0+770 8105+137000006055+1215236+731+16000 
0+771 01063237000006055215162365+31+16000 
0+772 01170117000006055+15050365771+17000 
0+773 01073017000006055216162365+31+15000 
0+77+ 0106+00020002271107216202+731+55000 
0+775 0106610020002271107216202+731+56000 
0+776 81873817800011733+1616282+531+56000 

0+777 01033100600000001+15162025+31+56000 
05000 5+072317000005055+00162325560+16000 



05502 0i07300Z20000000i4i51521<:377i+560ow 

05503 01873117000000801+1504+025771+57000 



05002 0106301700000000028256202+731+56000 

05003 0187301700000G055+020++36S771+17000 
0500+ 01161102000000001 + 11152025571+56000 

05005 01I51017000012011+110++025571+57000 

05006 01050082000012015+110++025571+57000 

05007 01033137000006055+16162365+31+16800 
05018 5+075517000006055215152325+20+15000 



0550+ 01873802200000001+15152125771+56000 
06505 01073017000000001 + 160++025771+57000 



05012 0106301700000000020256202+731+56000 

85813 ei07301700000B0S5+020++3eS771+17000 
0501+ 01 ISl 101200000001+1 11B2025571+56000 
05015 01162117000006055+11950365571+17000 
85816 ei8S+13?00000B8SS+lZ16236+731+lB000 
05017 5+073317000006055216162325+20+16000 

85020 5+82+317000006055+15152325+20+16000 

05821 010600820008120+1+1 ;3++e25571+S7000 

05822 81023117080005055+15050365+31+17000 
85023 81033137800006055+16162365+31+16000 
0502+ 5+073317880006055212162325+20+16000 



;;; Shift/rotste group 
.opcodet2+0] txlist 
list i ii^SH 

DtiR] cract-isjsiai cesTioi LBJunpCfSHij $ 

OtIRl DESTIQ ROTRI JUnPIftSHDQP) $ ;count is •arail positive 

.rcloc 
[.USE[NCIRnflL5 
[ xliEt 

list ] 1 

■ pair 
[:. \ 2 + . 

lASHl: DCrVISK 221 RaT[10] ALU[D0RQ1 DEST[I3] JUnP[ASHNEG] % ; neg 

arg 

DtlRl MfiSI<:(10] DESTtQ ROTRI S ;Pos. count, aask 
DCCONST ++1 ftLU[Q-Dl CSS0 CONDCOBUSIBI JLMPIPlSHDOPl t 
DCCONST ++1 ftLU[Q-Dl DEST[0 ROTR] JUnPEBIGflSH] $ 

ftSMCG: DtCONST ++1 flLU[D+Q] DEST[0 ROTR] CONDt-OBUSlB] JlWEflSHDOI » 
JUMPIBIGASZ] » 

BiGflSH: (t-UifC) coNO[aBus=0i jurftfifiiNi s 

D[C0NST 1] R0T[+3] flLU[D8.«:] DE5TCAC] S 
D[PC -FLAGS] DEST[Q] $ 
SETOVl: DtCONST 1] ROTI+31 flLU[DORQ] DEST [ PC-FLAGS ] 
.repeat Maitsfix [ 

C558 PUSHJ[SETOVX] » 
];[ 

C55o PuSnJ I SETOV'X J S 
]. repeat Maitsfix 

;Set PC flag bit 8. and go cause trap if enabled. 
NEOI $ 

ASHDO: ALUtAC] DEST[Afil CONDt-€euS<0] JUflPtASHOOll S 
DICONST ++) ALU(0-Q1 DESTIMASKRI t 
DiMASKR] ROTtRl DtSTiQl $ 
DCAR] ROT[R] ALUtDORQ] DEST[AC] NEOI $ 



ASHDOl: 



ftSrtXP: 



BIGAS2: 



ALU[0] DESTCmSKR] $ 

D[aR] mSK[R] ROTIRl DESTIACl NEOI * 

DtCONST +3] ALU[D-0] DESTlriASKR] $ 

ALUtQl DESTdR-ADR] S: SAVE SH AMT 

D[CDNST 1] R0T[+3] ALU[D«,AC] DESTCO] S ;GET SIGN BIT 

DCriASKR] ALUID&ACl I3EST[ARJ $ 

OtARl R0T[R] ALUtDORQ] DEST[0-AC ARl $ 

D[IRI ALUtD^ll OESTtMASKR] » 

OIAR] R0T[R1 DESTIQl $ 

D[mSKRl R0T[+3] ALUID4Q] IXST[(31 COND[O8US=0] JUMPCMfilN] * 

DinASKR] R0T[+3] ALU(D»Q] COND[DBUS=0] JUTPtriAIN] t 

DIPC-FLAGS] CESTIQ] JUTIPISETOVl] NORM $ 

ALUtAC] CDN0[-0BUS<8] JLrP[LSH01 S 
ALU[-1] DESTtAC] NEOI $ 



.opcode[2+l] Ixlist 
list 1 ;ROT 

ULiR] lGNDl-u8u51Sj DESTlQ] LBJuTitlkuTI ] 3 
D!IR] DESTCROTR] JLWCROTOO] « ;count is small positi^/e 

-reloc 
[.USEINORmLl 
[ xlist 

1 i St ] ] . pa i r 

[:. \ 2 + . 

]ROTl! OIMASK 12) ROT[10] ALUtDORQ] DESTtQ) JUWtROTfEGl » 
;Ne9ative count, extend sign 
DIIRl MftSKIia] DESTtQ ROTRI S ;Pos. count. Bask 
DtCONST ++] ALUtQ-Dl CONDtOBUSlS) JUMPtROTDO) $ ;Mod 36. 
DtCONST ++] ALUtQ-D] DESTtQ ROTR) JUtPI. - 1) » 



ROTNEG: 
ROTDO: 



DtCONST ++] ALU[Q+D] DESTtQ ROTR] CONDtOaiSlB) JUHPt.] $ 
ALUtAC) DESTtAR] $ 



ULHKi KUILKJ L>{13 1 L 



AC 



J ncui 9 



txlist 



.opcodet2+2) 

list ) ;L 

DtIR] CONDt-OeuSlB) DESTtQ] LBJUMPtLSHl) $ 
DtIR] DESTtQ ROTR] JUMPtLSHDO) t ;count is small positive 

•reloc 
t. USE t NORMAL) 
t xlist 



1 isx J 

t:. \ 2 

)LSH1: 



.pair 



DtflflSK 12] ROTtl0] ALUtDORQ] DESTtQ) JUTlPtLSHNEG) $ 
;^ie9^tive count, extend sign 
DtIR] hASKtiei DESTtQ ROTRI $ ;Pos. count. masl< 
LSHX: DtCONST ++] ALUtQ-D) CONDtOBUS>0) JUriPtLSH0) $ ;ASH joins here 
LSHDO: DtCONST ++] ALUtD-Q] DESTtflASKRl S 
DtnASKR] ALUIDSAC] t3£STtAR] $ 
DtAfil ROTtR) DESTtACl NEOI $ 



LSH0: ALUte) DESTtAC) NEOI » 

LSHJEG: DtCONST ++) ALUtD+Q) DESTtQ ROTR] CONDtOauSlS] 
ALUtQ) DESTtMASKR] S ' ' 

ALUtAC] DESTtAR) $ 
OtAR) ROTtR) MASKIR) DESTtAC] NEOI % 



JUrPtLSHS) 



SLOE March 23. 138+ 21:0S:2S file DSKjF+IICT.SLD 



F+lWiF 



96506 eie33i2ee0ee099ei*isiE2i2s*3i*ss0ee 
86507 eie33izeeeeeeeeeHi8i62i2543ifS6eee 



05826 5+e2t317e0e00Ge5541B162315t28tl6800 

05827 0102'*3170e0e06055'tl61623S543H16000 
05830 01073ie000ee0000eHlS62025431+5G000 

05031 01073137000006054156162365431416000 

05032 01050317080012061401562015571456800 

05033 01073100400000001416152025431456000 

05034 01130317000006055416162355431415800 

05035 01873120600012070036162025431456800 

05036 55073117000027755415162325421215000 



@i>bl0 0ieb4i3i'eeBe0ee014iB752ei4i'3i4560B6 
06511 01854137000000001410762014731456000 



05037 01073017000006054036162365431416006 
05040 01854117000006055060350365571416000 

05841 01073102000080001404562025771456880 

05042 01073180200822711402162025771456000 

05043 01024317000006055416162355431416000 

05044 01072137000006055402162365771416800 

05045 01073117001006054015880365431417080 

05046 01043617000006055400352365431416000 

05047 01856108400000001416162025471558000 
05050 01073107000012115416152025431456000 



05051 01073117000000001416162025431456068 

05052 01873317000012121060362015571456000 

05053 01073017800006055416162365477516066 

05054 61863317909806855076752355431416080 

05855 01054317000086055410752364737416060 

05856 54003317000086055416152325420416000 
05057 61171117060006055416144365771416000 



05050 81072137806006^5482152355771415000 

05061 81073117001085054015000365431417000 

05062 01043407800012145416362025431456066 
05863 81023137000012127416152025431456066 



06512 01073102200000001416152125771456000 

06513 01033017000000001415152815431455060 



05064 51171117000606061415144025771456060 



66 05065 

67 85066 
66 

66 

58 85067 

68 85070 
58 05071 
63 05072 
70 

71 05073 
72 

72 

72 05074 
72 05075 

72 05075 

73 85077 
74 

75 
75 

76 06514 

77 06515 
78 

73 
73 
73 
86 
86 

81 05106 

82 05101 

83 05102 
84 

84 

84 05103 



01033017000006055416162355431415000 
01073100200022711402152025771456806 



01072137000006855402152365771415880 
01073117001006054815080365431417006 
01043607060612163416162025431456006 
54823317000006055415152315420415000 

0103301700000605541S1S2355431416000 



01872137800006055402162365771416066 
01073117001006054015000365431417066 
01043407000012175415152025431456006 
54023317006006055416162315420415000 



0107310220000660141S1S212S771456000 
01033017066006601415162015431455660 



51171117000606061404544025771456660 
01033017088005055416162355431415000 
01073100200022711402152025771455800 



01072137000006055402162365771416060 



.opcodet243] [xlist 
list 1 

OLUraC] DESTtARl COND[-OaJS=0] LBJIUPUFFOI] $ 
flLUtfCi DESTIARJ CDW)[-OBUS=ej LBJUMPE JFFOli « 



JJFFQ 



.reloc 
I.USEINORmLl 
[ xlist 

list ] ] .pair 

[:. \ 2 + . 

IJFFOl: ftCS£L[AC+ll «.U(0] OESTCAC] NEOI * 

ACSEL[(C+11 ALUC01 DESTtftCl $ 
DIftRl R0TI61 mSK[6] CONDC-OBUS^ei JUHP[JFFD31 $ 
D[flR) R0TC61 OeSTCARl NORtl S 

DrCONST 6] ACSELCAC+l] flLU[i«+0] DESTtAC] jm'[JFFD2) NORM » 
DCARl COND[OaJS<0] JUnPtJFF041 S 
flCSELtftC+n fILUCfiC+l] DESTCflCl NORM * 
DIARl ROTtll DESTtflR] COND[-OajS<01 JUtfCJFFOSl % 
JDSP » 



JFF02: 



JFF03: 
JFF05: 



JFFD4: 

.DEFINE SHLOOP tSHTYP DIRJ 

[ DtlRl MftSKO. I flLU[D-ll OESTCfiR] t 
DIARI ROTILLOfO-ROT] DESTILLOflO] $ 
PLUISH-flC] DESTCDIR] ENDCONNISHTYPI NORM LODPt . 



1 * 



1 



.opcodE[244] [xlist 
list 1 

fHCScLiAC-^l J u[f¥oK 43] MLuLU&nCj DcSTihRj JUFFtfiSHCn S 
AC5EL[«:+11 D[HASK 431 ALU[D4M:1 DESTIftR] JUTPtflSHClI S 



lASHC 



•reloc 
[.USEINORMflLl 
[ xlist 

list ] lft5HCl: DCflR] ROTCll 

DESTiQj $ 

D[CONST 1) R0TI431 I^UCD&flC] OESTtHOLD] NORM % 

: Save s i 9n bit 
OtIR) MftSKdS.] C0ND[[BUS18] JUnP[flSHC2] $ 
DtIR) nASK[103 CaNOtO8US=01 JUWCMfllNl $ 
ALUC01 ACSELIfC+11 OESTtftCI S 
DtlRl Hf)SK[103 flLUCD-1] D£ST[f)R] $ 
DtflRI ROTILLOftO-ROTl DESTtLLOflOl S 
flSHCa: ftLUCSH-ACl DEST[D61 MftSKCl] NORM $ 

DIMEH] ALUIDhACI Ct3NDtC«JS<0] JUnP[flSHC3] » 
flSHCS: LOOPIftSHCB] NORM » 
;;; D[PCI flCSELCfC+ll flLUtDCRAC] DESTICRYDV] JLrP[flSHC71 NORM $ 

JUnPtflSHC7) t ; ♦++ have to set PC-FLftGS soaehoH 

ASHC9: D(CONST 11 R0Tt431 fiCSELCflC+11 DESTCfC] JUTPCftSHCSl NORM S 



1 S 



flSHC4: DtMEMI DESTCQl SHORT t 

CCARi ROT[43: riflSK[431 fiLUtCORS} fiCSEi.!ftC->-ll 

DEMASK 431 ALUID&ACl DESTtACl SHORT % 

ftLUtlMRflCl DESTIACl kEDI * 
ASHC2: DCIRl flLU[0-Dl DESTIIR-AOfil NORM % 

SHLOOP t ASH D4 J 

! C!IR1 rtftSKJS.l ALUtD-ll DESTIfKl i 
DIPK] ROT[LLOAO-ROT1 C€ST[LL0A01 $ 
ALUtSH-ACl DeST[D41 EN0C0NN[ASH1 NORM LOOPi . 

1ASHC7: ALUtQl DESTCARl JLIHP[ASHC41 NORM $ 

.opcode[2451 Ixlist 
list 1 

D[IR1 COND[-0eUS181 LBJUHPCROTCl] * 
ACSELIAC+11 ALUEACl DEST[Q] JUnPCRDTCAll S 



.reloc 
[. USE [ NORMAL 1 
t xlist 

list 1 
t!. \ 2 + . 

IROTCl: DtlRl ALUI0-D1 DESTCIR-flORl JLrf'[R0TC21 t 



OeSTERC] NORM 



:ROTC 



1 



.pair 



neg shift 



ROTCAl 



ACSELIAC+11 ALUCACl C€ST[01 NORM % 
DCIRl MASKC101 CO(C1OBUS=01 JUrP[HAINl * 
SKLOOPC ROT D6 1 

D[IR1 MASKia.] ALUtD-11 DEST[AR1 S 

D[AR1 ROT[LLOAD-ROT1 DESTCLLOAOl $ 

ALU[SH-ACI DESTID61 ENDCONNIROTl NORM LOOPC.l $ 

ALUtai DESTtACl ACSELIftC+11 fCOI S 



R0TC2i 



ACSEL[AC+11 ALUtACl 
SHLOOP[ ROT D4 1 



0EST[Q1 NORM » 



14iiill84 05105 01043607000012213415562025431456000 



[ 0[IR] mSKCS.l ALU[D-11 DEST[AR1 % 

DIAR] RQT[LL0A0-RQT1 DEST[LLOrt)l t 

ALU[SH-AC] DESTID41 ENDCONNIROTl NORM LOOPC.l $ 

1 ALUIQl DESTIACl ACSELIAC+11 NEOI $ 

.opc(3de[2461 Ixlist 
list 1 ;LSH 

DtIR) CONDt-OSUSlBl LBJUMPILSHCll * 
ACSELIAC+11 ALUIACl DESTIOl JUMPILSHCAll t 

-reloc 
t. USE! NORMAL 1 
[ xlist 

1 i st 1 1 . pa i r 

C:. \ 2 + . 

ILSHCl: DIIRl MASKtlB.l ALUI0-O1 DESTtlR-ADR] JUMPtLSHC21 $ 
ACS£LIAC+il ALUtftCl DESTIQl S 
LSHCAl; DIIRl MASKtiei CONOICBUS^01 JlWIMAINl « 
SHLOOP I LSH D6 1 

! DIIRl MASKia.l ALUtD-11 DESTIARl $ 
DIAR! PQTILLOAO-RQT! DESTCLLOAO! * 
ALUISH-flCl DESTID6] ENDCDNNILSHl NORM LOOPI. 1 S 



SLOE March 23. 138+ 21:05:39 file STRING: — of — F+INNF 

l+ollBB 05118 0107213700ae0S0S5't021E23BS77HlG0e0 [ D[IR1 WSKE9. 1 flLU[D-l! DESTtflR) S 

Hmliae 05111 01073117001906054015880365+31417008 B[ftR] RCT [ LLQAO-RCT 1 DESTILLQADl % 

l+BlieS 05112 01943487000012225415562025431456000 flLU[SH-flCl 0EST!D4! EfdCOWJILSH] NORM LOOP!.] * 

14 1183 0S113 54823317980086055416152315429416880 ! flLUEQl E5EST[f!C] fCSEL'.PC*!} ftDI $ 

14 1130 



SLOE March Z3, 1384 ZliBSi+e file DSK:F4INST.SL0 — of — FtlNNF 



15 1191 
ISallSZ 
IS 1192 
15 1193 0ES20 

IS 1194 eeszi 

15 119S 
lSii>119S 
lSmll96 

ismiiae 

15 1137 eSlH 

15 1137 

15 1138 05115 

15 1139 0511B 

15 izee 

15 1201 



01033117000009001418150025431255000 
81043617000080001418162025431456000 



01073317100022665418164025470558000 



01043317000006055416162341431416000 
540233 1 70000060S54 1 61 62305420436000 



.opcode[250] [xlist 
list 1 

CfRO ftLUtflC] DESTfHOLDl JLTPtExCHl! S 
ALUifl] DESTiuJ JUHPttXCHA] $ 

-reloc 
[.USEINORtlALl 
E xlist 

list ] lEXCHl: 

R-M-u DcrEni cesTCflCi jumpcseoi] $ 

EXCW: fCS£LtMfl,ftCl fILUtfll DESTIBl t 
flLU(Q] DESTEMEMACJ NEOI $ 



;EXCH 



IFRQ STRT-HRT 



SLffi March 23. las'* 21:85:^1 file OSK:F+INST.SLO — of — F-HNNF 



IG 1282 
IB 12S3 

IB iza+ 
IS izes 
IB izes 

IS 1287 
IB 1287 
IS 1288 
IB 1286 
IS 1289 
15 1218 
IS 1211 
IS 1212 
IB 1213 
IB 12H 
IE 1215 
IS 1216 
IS 1217 
IS 1218 
IB 1219 
IB 1228 
IS 1228 
IB 1Z21 
IS 1222 
IB 1222 
IS 1223 
IS 122+ 
IB 1225 
IE 122E 
IB 1227 
IB 1228 

15 1229 

16 1Z38 
16 1Z31 
16 1231 
!6 1232 
16 1233 
16 1234 
16 1235 
16 1236 
16 1237 
16 1238 
16 1239 
16 12+8 
15 12+1 

15 1242 

16 1243 
15 1244 
15 1245 
IS 1245 
15 1247 
IE 124S 
15 1249 
15 1258 
IS 12S1 
IE 1252 

15 1252 
IB 12S3 

16 1253 

15 1ZS4 

16 1255 
16 1Z56 

15 1256 

16 1257 
16 1258 
16 1259 
15 1268 
15 1Z51 
IS 1252 
15 1263 
IS 1264 
IS 12E5 
15 1265 
IS 126S 

15 1257 

16 IZES 



.REPEfiT DLBBLT ! 

;;; 'Tasteful BLT' 

;+++ f1ea-to-«eE loop can be cut to ti« cycles* probably 

.opcode[Z51] 
;BLT 

DinfiSK 14.1 R0TC4I flLUCMflC) a»Dt-CajS=81 LBJUnP[BLT8] $ 

DtnftSK 14.1 R0TI4] ALUED&flCl a]ND[-DajS=e] LBJUMPtBLTei $ 
; Test for dest<29 

•reloc 
.pair 
BLTB: JUrflBLTAll $ ;dest<2e 

D[mSK 14.1 ROTtie. + 41 flLUnXflC] a»0[DBUS=e] JUnPtBLTfCl s 
; Jump if src<28 

DtPC] DEST[Q-flC flR] $ ;«: to flR, PC to (C 
DlflR] nflSKIlS.I DESTEO PCI » ;ctest to and PC 
;+++ D[(*] ROTEia.] rtftSKIia. ] fiLUIQ-D-11 COM)[OBUS=ei JUMPCBLTHl » 

D[IR] mSKtia.] ALUID-Ql DESTIQ HOLD! COND[0aJS<81 JUMP[BLTB] $ 
D[^EM1 ROT[LLOflO-RDT] DESTrLLOflOl * ;Loop counter is shifted 



BLT7: D[ftR] MASKE18. 1 ROTdB. 1 DESTCQ tifl flR] $ ; Fetch first word 
BLT5: DFRQ DtPCl flLUID-ll DESTIPCl JUnPlBLT2] $ 

-^Bac!.; up dsst. atjc^s ^^d enter loop. 
; Main loop 
BLT3: OFRO $ 

;Fetch next Mord. 
BLT2! PC+1 fM-FROM-PC DtMEM] DESTEMEMSTOl CONDI INTRPTl JLTPtBLTSl t 

;Inc. the dest. addr. start the store, check for intrpts. 

«.UfQ+n DESTiQ AR MA] LCDPCaLTSi * 
:Kick source ptr.loop 
BLT9! DIPCl MASKIia.l DESTtO-AC PC HA] $ 

;Loop count exhausted. Prepare to exit. 
DIIRl HftSKIia.l ALUIACH31 Ct»D[-CBUS<81 JljnP[BLT98] t 

; Jump if done 
fiLU[AC+li DESTIflCl $ 

;Not done. Prepare to xfer some aore uords. 
DCIR] ALU[D-AC1 DEST[AR] $ ; Get count 

D[AR1 ROKLLOAD-ROTl OESTELLDAOl $ 
D[PC] DESirO-AC PCI % 
ALUIQ] DeSTIMA] JUMPtaLTSl $ 
BLT98: MA-NEOI S 
; Interrupt occured 
BLIS: ALU[Q+1] DESTiO AR] L00P[BLT81 » 

JmP[BLT3] $ 
8LTB: ALU[AC-1J KSTEAC! SPEC[PC*11 NORM » 

OtPC] MASKIia.] DESTtO-AC PC MA] SHORT % 

MA-NEOI DIAR] ROTIia. ] MftSKCLEFTl ALUtOCRACl DEST[AC] » 



.REPEAT 1 - WAITS [ 
enabl ing 



;You*d better put in aap fault code before 
:this for WAITS. uhrcH nijst have RE-XCT on pas^ 



;Loop counter is shifted 
;Re3d 1st uord 



traps. 

: .°tr has fora X,.X+1 

BLTZ: DIIRl MASKIIB.] ALUIDH3] OESTtHOLD] $ 
DIMEMl ROTtLUDAD-RQTJ DE5T[LLOA01 $ 
over 

DtAR] RQTIia.] MASKEIB. ] DESTIMA] t 

DFRQ S 

DCMEM) DESTIQ] S 

Mfi*HA+l ALUIQ] DESTIMEMSTO] LOOPI . ] $ 

JUMPIBLTS] $ 

]:R£PEAT 1 - WAITS 



; BassacH<wards BLT 

BLTB: ALUI0] ROT I LLOAO-ROT ] OESTILLOAO) JUnPIBLT7] * ;End-precedes 
dest 

];. REPEAT OLDa.T 



SLOE riarch 23. 1334 21:85:43 file DSK:F4INST.SL0 -- of 



F41NNF 



17 


12E9 


17 


12S9 


17 


1Z70 


17 


1271 


17 


1272 


17 


1273 


17 


1274 


17 


1275 


17 


1276 


17 


1277 


17 


1279 


17 


1278 


17 


1279 


17 


1280 


17 


IZBl 


17 


1281 


17 


1282 


17 


1283 


17 


1283 


17 


1284 


17 


1284 


17 


1285 


17 


128E 


17 


1287 


17 


1288 


17 


1289 


17 


1290 


17 


1291 


17 


1292 


17 


1293 


17 


1294 


17 


1295 


17 


1296 


17 


1297 


17 


1298 


1? 


1299 


17 


1300 


17 


1300 


17 


1301 


17 


1302 


17 


1303 


17 


1304 


17 


1305 


17 


1306 


17 


1306 


17 


1307 


17 


1308 


17 


1309 


17 


1310 


17 


1311 


17 


1312 


17 


1313 


17 


1314 


17 


1315 


17 


1315 


17 


1317 


17 


1318 


17 


1319 


17 


1320 


17 


1321 


17 


1322 


17 


1323 


17 


1324 


17 


1325 


17 


1326 


17 


1327 


17 


1328 


17 


1329 


17 


1330 


17 


1331 


17 


1332 


17 


1333 


17 


1334 


17 


1335 


17 


1336 


17 


1337 


17 


1338 


17 


1339 


17 


1340 


17 


1341 


17 


1342 


17 


1343 


17 


1344 


17 


1345 


17 


1346 


17 


134E 


17 


1347 


17 


1348 


17 


1349 


17 


1350 


17 


1351 


17 


1351 


17 


1352 


17 


1353 


17 


1353 


17 


1354 


17 


1354 


17 


1355 


17 


1358 


17 


1357 


17 


1358 


17 


1359 


17 


1360 


17 


1361 


17 


1362 


17 


1363 


17 


1364 


17 


1365 



;BLT0 BLT0« BLTl BLTIA BLTIB BLTIC 8LT1LP 8LT10C BLT1C2 8LT1IN BLT1I2 
a.T12 SLTZLP BLTZ IVI 



.REPEftT 1 - XEHLT 
-DEFINE +++[] [1 



;For SRCCOn 



17 1367 



-*-++;Revi5ed BLT* still 3 cycles but doesn't use PC and doesn't require 

-*^-*-; special map trap code (for BeBory-to~Beaory cases)- 

+++; 

*■** :nsm-to-mem loop could prohdbly be cut to two cycles, but this coda 

Mas 
++-*-;k«' i tten to be niiniaize buss rather that execute tine. 

+++; 

-*"*"^;01d ^ codes is unchansed. and still has special Bap code. 
TVR/Sep82 

.opcode[2513 
:BLT 
BLTe: DIMflSK 14.1 R0T[4] fiLUEDiflCJ aWD[-a8US=03 LBJUtPCSLTaA] $ 

DtrWSK 14.] RaTt4] I*.U[D8,M:3 COND[-{BUS=0] LBJUnP[BLT0f|] $ 
; Test for dest<20 

•reloc 
.pair 
8LT0A: JUrPCBLTflll » ;dest<28 

DtnftSK 14.1 R0T[1B. ♦ 4] flLU[0&AC] DWDIOajS=0) JUnPtBLTfi21 * 
: Jmb^i if src<28 
; \ / 

+++;RBvisEd BLT code - TUR/Sep82 

+-^+;nany comaents as this is a place k^ierc Many bugs could lurk! 
BLTl: ALUIAC) OESTIAR] SHORT t 

;Copy BLT point to Mhcrc we can use aasker /shifter 
DtlRl MfiSKdB.l CESTIQl NORM S 

;i^kjdress of terioination of H_T 
DIM?] rWSKtlB.] I^UID-Q-1] DESTEQ HOLD] aM)CaeUS<0] JUTPtBLTlB] 

s 

;Calculate number of uords to transfer 
;Check for Mraparound 
***;■,■. DtflR] DeST[Ql NGRtI $ 

+++;;; ;Destination of BLT wiii pass into hCs. 

flLU[-ll DESTIQ HOLD] SHORT t 

;'If AC(R) >= E. the BLT Boves one word to location 
ARCD'tsic] 
; \ / 

+++;flR: source.. dest 
+++;(3.nEn: -size of BLT 

BLTIB: D[MfSK IB.] ftLU[D+(3] COND[-CeuS<0] JUMPIBLTIC] * 
;Check size of BLT aaainst loop resister 
DtfWSK 16. 1 «_U[NOTD) DESTtQ HOLD] NORM $ 

;F1axinuiB loop count 
\ / 
BLTIC: D[flR] R0T[18.] nftSKIlB. ] DESTCiai NORM * 
;Setup source pointer 
D[MEH] HASK[1B.1 flLU[Q-D-l] CDND[DaJS<0] JUtVIBLTlDl NORM % 

;JuB¥3 if source pointer Mon't run into AGs 
DtflR] ROTIia. ] OESTCQ] NORM t 

;5ource pointer runs into fCs. 
**-; \ / 

+++;BLT will pass thru ACs on fetch store. contains address 
+++;of half of transfer which will do this. Me use -1,.N 
+++;as a negative word count so that we will transfer 777777-N+l words. 
D[mSK 18.1 ROTCIB.I ALUtDORQ] DESTfO HOLD! JUMP[BLT1C] NORM $ 

jSign extended 

;Go back and setup again. 
+++; 

+++;(*: source.. dest 
+++;re:ri: -size of BLT 
+++;Q: source 
BLTID: 

;+++ DtAR] fWSKIlB.l ALUCD-Q-ll CONDIO8US=0] JUMPC8LT12] * 
;Check for core-zeroing behavior. 

DIMEM] ROTrLLDftO-ROT] «.U[NOTD] DEST[LLDflD] $ 
;Load loop counter. 

ALU[Q] D£ST[AR Mft] NORM S 
*** ;Setup for first fetch 

*+* ;Perhaps this instruction could 90 away we can avoid 

+++ ; DF-FROM-fiR at .*Z 

: \ I 

++*;AC: source.. dest 
+++;f)R,Q: source 
+++;Loop counter: Size of BLT. 
+++;Ue duplicate the first iteration of the loop rather than subtracting 

+++:l..l fro» AC before entering it. 
DFRQ ALUCAC] DEST[AC MA] $ 

:Do first fetch and setup destination 
.•Added RE-XCT when DF-FROM-XX conversion was Bade. TyR/Apr83 

DtDF-FROn-AR MEM] RE-XCT OeSTIMEMSTO] CONDI INTRPT] JUMPIBLTIIN) 
NORM $ 
+++ ;Finish fetch, start store. 

-*-++ ;tle could leave out the interrupt test and guarantee that 

+++ : at least would be moved between interrupts. However. 

this 
+++ ; would increase interrupt latency. 

TRP-CTL I RE-XCT) flLU[i3+l] DESTtQ Mfl ARl LOOPIBLTILP] $ 
:Advance Vat>,. Setup AR to be used as MA. 
;l4e normally expect to jump 
JUMPCBLTICK] NORM $ 

jGee, a one word BLT! 



+++;This is the main loop of the main BLT 
+++;l^: source-1 . .dest inat ion-1 
+++;Q,AR: source 

■»"^-i-iLoop counter: number of words io move. 
BLTILP: DFRQ D[l,.ll ALUIAC+D] DESTIAC tifi] $ 
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17 1372 
17 1372 
17 1373 
17 1373 
17 1374 
17 137S 
17 137S 
17 1377 
17 1378 
17 1378 
17 1380 
17 1381 
17 1382 
17 1383 
17 1384 
17 1385 
17 1386 
17 1387 
17 1388 
17 1388 
17 1390 
17 1391 
17 1392 
17 1383 
17 1394 
17 1395 
17 1396 
17 1337 
17 1398 
17 1399 
17 1400 
17 1401 
17 1402 
17 1403 
17 1404 
17 1485 
17 1406 
17 1407 
17 140G 
17 1409 
17 1410 
17 1411 
17 1412 
17 1413 
17 1414 
17 1415 
17 1416 
17 1417 
17 1418 
17 1419 
17 1420 
17 1421 
17 1422 
17 1423 
17 1424 
17 1425 
17 1426 
17 1427 
17 1427 
17 1428 
17 1429 
17 1430 
17 1431 
17 1432 
17 1433 
17«1434 
17ml434 
17»1434 
17i»1434 
171.1434 
17m 1434 
17(»1434 
17ml434 
17nil434 
17r.l434 
17nil434 
17ml434 
17ml434 
17iiil434 
17i«1434 
17iiil434 
171.1434 
17«1434 
17011434 
17.1434 
17iiil434 
171.1434 
17inl434 
17iiil434 
171.1434 
17lnl435 
17»ii435 
171.1436 
17i«143G 
171.1436 
17ial436 
171.1436 
17>1438 
17i»143G 
17id1436 
17ml436 
17ml436 
17ml436 
17ml436 
17ml436 
17inl436 
171.1436 
17ml43S 

171.1436 



+++ ;i<OTE: The only other instruction that uses DF-FRMI-flR 

is 
+++ ; the PCF instruction (unless there's one in F4J5YS 

+++ ; or F4fl)G). TyR/Sep82 

TRP-CTL[RE-XCT] fLU[Q+l] DESTIQ W) AR] LOOPIBLTILP] * 

;Fldvance MCWI. Setup AR to be used as m. 
J \ / 

5LTIC.K: DiMfiSK iS. J ctUiC&flCj DESTEQi cafiiOr-oaB=6} JU«=[BLTiC2J S 

;NoMf check for ternination* Matching for overflow 
DtCOeT 11 R0T[18. ] ALUIAC-O] DESTIAC) NORM S 

;Fixup after BLT pointer overflow 
J \ / 

BLT1C2! DlIRl rwSKtlB.l fILUtO-D] Ct3rCI[OeiIS<0] JUnP[BLT0] $ 

;'If ACCR) >- E*. we're done 
J \ / 

junplnainl % ;for now... 

+++;;; m-NEOI * 

;BLT finished 



+++;This BLT 9ot interrupted. 

BLTIIN: TRP-CTL[RE-XCT] OCMASK 18.1 ALUID&flC] DESTIQ) 

CONDt-fW<20] JUriPtBLTlI2I NORM S 
;NoM. check for teraination. watching for otherflow 
DICCWST 11 R0TI18.1 flLU[fiC-Dl DESTIACl »ORt1 S 
;Fixup after BLT pointer overflow 
; \ / 

BLT1I2: DtIR) HflSKtlB. ] ALUEDnC] COND [ CIBLS=0 ) JUTPItlfllNl $ 

;If we natched. the BLT finished at the sa^e ti«e 
;as we got an interrupt! 
DtFtl ftLUID-n DESTCPC] JUfPCnfilN] « 
;Backup PC and try again. 

;Ue get to duplicate some stuff when zeroing 
SLT12: DtIR! MftSKIlS.J DESTIftRJ NORn S 

;Save IR in ftR for end-check 
DtMEm ROTELLOAO-ROT] DESTEUOADl « 

;Load loop counter. 
DFRQ ALUtl^l DESTtAC (Ifil $ 

;Fetch the first word> that's all we'll ever use! 

iRP~U iLEk£-Xi, i j L/LIICMJ t,K.OlKVtt • 

:I wonder if this is really necessary. 
; \ / 

-*-'^+;This loop could be reduced to one instruction, but then we'll need 
+++;fixup code. Let's make this work first! 
BLT2LP: ALUtQ] C€STtrEttSTD] CONDI INTRPTJ JUnP[BLTlINl NORM $ 

:Finish fetch, start store. 
TRP-CTL[RE-XCT] DE1..11 flLU[D+ACJ DEST[flC Mfl] L00P[BLTZLP1 $ 

;Advance BLT pointer, and check for count exhausted 
JLMPtBLTlCKl NORM $ 

}Honf check for terBination. watching for otherflow 

.REi'EAT [ ;You'd better put in map fault code before enabling 

:this for WAITS, which must have RE-XCT on page traps. 
; Ptr has form X..X+1 

BLTH: DfIR] nftSK[18.] ALUtD-Q) DESTCHOLDl » 
DtMEM] ROT[LLOAO-ROT1 DESTILLOAO] t 



;Loop counter is shifted 
:Read 1st word 



DEAR] ROTtlS.} MASKEiS.) DtSTCfiAl £ 

DFRQ $ 

DIMEn] DESTCQ] S 

nA.RA-vl ALUtQl DEST[MEHST01 LOCPI.] * 

JUnP[BLT91 » 

I; REPEAT 
];r 

.DEFIKE +++[] [] ;For SRCCOH 

+++: tlReviscd BLT. still 3 cycles but doesn't use PC and doesn't require 

+++; [Ispecial nap trap code (for Bemory-to-memory cases). 

+++; [1 

+++; [ iricm-to-mem loop could probably be cut to two cycles, but this code 

was 

++-*■; [Iwritten to be minimize bugs rather that execute time. 

+++; n 

+++; [ )31d AC codes is unchanged, and still has special 

TUR/SepB2 



code. 



0S522 
06523 



01054108008600000103562124731456000 
01054100000000008103562124731456000 



05120 
05121 



05122 
05123 
05124 



01073117000000081416162025431456000 
1 054 1 0020000000054356202473 1 45S000 



010331370006060SS4161B236543741S000 
1 0730 1 700000605540455236577 1 4 1 6000 
01862000400600081484550825431456000 



.opcodet251J [xlist 
list 1 ;BLT 

BLT0: DIMASK 14.1 R0TC41 ALU[D&AC1 C0NDHBUS=81 L8JUriP[BLT8Al $ 

DtnASK 14.1 R0T[4] ALUtD&ACl COND [ -aBUS=8 1 L8JlJnP[BLT0A] $ 
; Test for dest<20 

.reloc 
[.USE [NORMAL] 
[ xlist 

list] ] . pa i r 

t ; . \ 2 ■*■ . 

1BLT0A: JLlrP[BLTAll $ ;dest<20 

D[MASK 14.1 ROT[ia. + 4] ALU[DSAC] COND[OBUS=0! JUI1P[8LTA2] * 

; Jump if src<20 
\ / 
*++; [IRevised BLT code - TUR/Sep82 

*++i [ IHany comments as this is a place where many bugs could lurk! 
BLTl: ALU[AC1 D£ST[AR1 SHORT S 

:Copy BLT point to where we can use masker /shi fter 
D[IR) nASKtlS.l DEST[Q) NORtI S 

;fkidress of termination of BLT 
D[AR) MflSKdS.l ALUtD-0-11 DESTIQ HOLOl CDND[OBUS<01 JUf1P[BLTlBl 
$ 

;Calculate number of words to transfer 
iCheck for wraparound 

+++; [1;; D[AR1 CESTIQl NORMS 

+++: [];; ;Oestination of BLT will pass into ACs. 

;'If ACiR) >= E. the BLT moves one word to location 



SLOE March 23. 1384 21:86:07 file STRING: 
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17I11H3S 

17r.U3G 05127 010770170ae00GeS54041503S473141B000 

17=1436 

17ial436 

17i«1436 05130 01073017000006054444562365431416000 

17ffll436 

17«1436 95131 01061100400006001404562025471556000 

17B1436 

17=1436 0S132 9i073ei?0seee6es44seis23S543i4iE0ee 

17r«143e 

17»1436 

17iiil436 

17>1436 

17«1436 

17BI1436 

17b143B 05133 01063017000012268444550624731456008 

17.1436 

17«143G 

17*1436 

17>1436 

17al436 

17..1436 

17b1436 

17.1436 

17r»1436 

17»1436 

17i«1436 05134 01077117801006054016080365471517000 

17ml436 

17«1436 8S135 71823137000006055416162365431416900 

17mi436 

17r»1436 

17r.l436 

17b1436 

17.1436 

17.1436 

17.1436 

17.1435 

17.143S 

17.14^ 

17.1436 05136 71033317000806055416162365431216000 

17.1436 

17.1436 

17.1436 0S137 01073110470000001416156025471556000 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 05140 71120027040600001415162025431556000 

17.1436 

17.1435 

17.1436 05141 01873117900600001416152025431456900 

17.1436 

17.1436 

17.1436 

17.1436 

ii'ml435 

17.1436 

17.1435 

17.1436 05142 71850317883706855480362365571216888 

17.1436 

17.1436 

17.1436 05143 01873110470800081416156025471556090 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 

17.1435 

17.1436 

17.1436 05144 7112002704081230S41615202S431556000 

17.1436 

17.1436 

17.1436 05145 01854000080088001484562024731456000 

17.1436 

17.1436 85145 01151317800006854440362355571415800 

17.1436 

17.1436 

17.1436 05147 01161180400015245404562025771455008 

17.1436 

17.1436 

17.1436 05150 81073117800022711416152025431455800 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 

17.1436 05151 01054011240000081404562024731556000 

17.1436 

17.1436 05152 81151317808096854440362365571416880 

17.1436 

17.1436 

17.1436 85153 01066100200822711404552025771456000 

17.1436 

17.1436 

17.1436 05154 51072117000622711415145025631456000 

17.1436 

17.1436 

17.1436 

17.1436 05155 01073137000606055404562365771416908 

17.1436 

17.1436 05156 01873117931605854815088365471517080 

17.1436 

17.1436 05157 71833317000605055415152365431215000 

17.1436 



;Check size of SLT asainst loop resister 
DiriflSK 15.] ftLUENOTOl DESTIQ HOLD) NORM $ 

;naxiEaus Idop count 
\ / 
BLTIC: DIflRl ROTtia. ] mSKCia. ] DESTIQ] NORtl » 
;Setup source pointer 

D[nEni haskcis.) alucq-o-i] cond[obus<0] junptsLTiDi norm s 

;Ju.p if source pointer won*t run into PCs 
S'.fSl RCTIie.! OeSTCQl tSRf. s 

;Source pointer runs into PCs, 



+++; [] 
+++; [) 
+++; [] 

+++; [las a nesative word count so that Me Mill transfer 777777-N+l 
Mords. 



[] \ / 

CIBLT Mill pass thru ftCs on fetch store. 

[ lof half of transfer which Mill do this. 



Q contains address 
Ue use -l.,N 



+++; [ 



DldflSK 18.) I?0T[18. 1 flLUttXFQl DESTIO HaHl JUMPtBLTlCl NORM S 
;Si9n extended 
;Go back and setup Q asain. 
] 



+++; [IflR: source.. dest 
+++; nrtfl: -size of BLT 
♦++; tlQ: source 
BLTID: 

;+++ D[(«] WSKCie.l ALU[D-Q-11 a]NDtQBUS=0] JUW[BLT12] S 
;Check for core-zero ins behavior. 
DtnEMl l?QTtLLCI«l-l?OTl flLUINOTO] OESTCLLOflOl t 

;Load loop counter. 
fiLU[Ql DEST[(« HA] NORH $ 
■»■♦■»■ ij ;5etup for first fetch 

+++ [] ;Perhaps this instruction could 90 away Me can avoid 

+++ [1 ; DF-FROn-flR at . +2 

' \ / 

++*! [IflC: source.. dest 
+++; [IflR.Q: source 
+++; [3Loop counter: Size of BLT. 
+■*"»■; LJi^ duplicate the first iteration of the loop rather than 

subtract ing 
+++; []l,.l from ftC before enter ins 't. 
OFRQ ALU[(C] DESTCflC ml % 

;Do first fetch and setup destination 
jAdded RE-XCT when DF-FROM-XX conversion Has -ade- TV<?/%»-B3 

D[DF-FR0f1-l* rtnl RE-XCT DEST [ ftMSTO 1 CWOtlNTRPT] JUMPCSLTIINI 
NORM S 
*** t] ;Finish fetch, start store. 

+■•■+ n ;We could leave out the interrupt test and suarantee that 



+++ 

thi 

+++ 



n 



at least Mould be .oved betMeen interrupts. HoMevcr. 



[] : would increase interrupt latency. 

TRP-CTL[ RE-XCT] «_U[Q+11 DEST[Q m ftRl L00P[BLT1LPI * 
:Pldvance UCF1A. Setup AR to be used as MA. 
;We normal ly expect to juffip 
JUnPCBLTlCK] NORM $ 

;Gee. a one Mord 9LT ! 
+++; (] — 

[jThis is the .ain loop of the .ain BLT 
[]AC: source-l . .dest inat ion-1 
[JQ.ftR: source 

[ ]Loop counter: Number of Mords to move. 
BLTILP: DfRQ D[l..ll ALUIAC+D) OESTCAC MA) $ 
+++ M .'Advance both source and destination 
;Added RE-XCT when DF-FROM-XX conversion was .ade. TVR/f»)rB3 

DtDF-FROn-fiR MEM) RE-XCT DESTIMEMSTO) CONDCINTRPT) JUnPIBLTlIN) 
NORM i 

;Finish fetch, start store and check for interrupt. 
+++ !1 ;NDTE: The on)y other instruction that uses DF-FRQM-AR 



+++ 



[) 



the POP instruction (unless there's one in F4JSYS 



+++ [) ; or F4AUG). TyR/Sep82 

TRP-CTL[RE-XCT] ALU[Q+11 DESTCQ MA Afi) LOOPIBLTILP) S 

.-Advance ICflA. Setup AR to be used as MA. 
: \ / 
BLTICK: DCMASK 18.) ALUID&AC] CESTIQ] COtiD [ -OBUS=0 ] JUnPtaLTlC2) S 

:Now. check for ter.ination. Matching for overflow 
DECDNST 1) ROTtlS.) ALUEAC-D) DESTIAC] NORM t 

;Fixup after BLT pointer overfloM 
; \ / 
BLTICZ: DIIRl MASKtlB.l ALUIQ-D) COND[OBIIS<0] JUMPIBLT0] $ 

;"If AC(R) >= £'. Me're done 
; \ / 

jumpfmain) t ;for now... 
++*; I);; MA-NEOI $ 

;BLT finished 



+++; OThis BLT sot interrupted. 

BLTIIN: TRP-CTL[ RE-XCT 1 OEMASK IB.) ALU[D8,AC) DESTtQ) 

CONO[-MA<20) JLnP[aLTlI2) NORM S 
;Now. check for termination, watching for otiTerfioM 
DCCONST 11 R0TI18.) ALU[AC-0) D£ST[AC) NORM S 
;Fixup after BLT pointer overflow 



BLT1I2: 



;we get 
BLTIZ: 



^7^1A^c acico, 



1 a'J^a^ ~7nA/:ir<amcrr a i ci r.?-3criTi 



17mM36 



\ / 

DtIR] mSK[lS.3 ALU[D«Q] C0ND[D8US=e] JUTPrriAIN] S 

;If we matched^ the BLT finished at the same tioie 

;as we got an interrupt! 
DIPC] ftLU[D-l] DEST[PC] JUfPtmiN] S 

^Backup PC aid tr>' again. 

to duplicate sonte stuff when zeroing 

DtlR) rASK[lB.] DESTtAR} NORH S 

;Save IR m AR for end-check 
DiriElfl] RDT[LLOAD-R0Tj DESTlLLOAD] S 

;Load loop counter. 
DTRQ ALUtAC] DEST[PtC m] $ 

;Fetch the first word, that's all we'll ever use! 

;I wonder if this is rcall>' necKSsar>'. 
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17b!436 

17.1436 0S1B2 710S03070437123'»3'tee3G2e2SS71SSSa08 

!7iil43E 

l?oH36 9E1E3 eie7311?e00812313'tlE!S2e25+31+5Eaee 

17al43G 

17b1436 

17b143G 

171.1436 

!?nl436 

17=1436 

17b1436 

17«1436 

17ii1436 

17b1436 

17.1435 

17(il436 

17al436 

17»1436 

17 1434 

17 143S 



;Finish fetch- start store. 
TRP-CTLtRE-XCTl DC1..1J flLLi[0+fiCl D£ST[«; Mfl] LOOPtBLTZLPl t 

;A=K'afice BLT pcintar^ and check fer count exhausted 
JUW'BLTICK! NORM S 

;Now, check for teraination. Matching for otherfloM 

.REPEAT e [ ;You'd better put in map fault code before enablina 

;this for WAITS, t^ich Bust have RE-XCT on page traps. 
; Ptr has for= X,,X+1 

BLTZ: DIIR] MflSKIlB.] flLU[D-Q] DESTtHOLD] « 
DCMEMl ROT[LL[»0-ROT1 DESTILLOflO] * 



DtAR] R0TI18.] mSKtia.] DESTCtlfl] t 

DFRQ $ 

DtrtM] DEST[(31 $ 

MA<-m+l ALUCQl DESTCHEtlSTOl LOQPl.l t 

jmP[BLT3] S 

1: REPEAT a 
I. REPEAT 1 - OLDBLT 



;Loop counter is shifted 
.-Read 1st uord 
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IB 
IB 
IB 
IB 
IB 
IB 
IS 



13 H3S 
18 143G 
IS 1437 
18 1438 
18 1433 
18 1440 
18 1441 
IB 1442 
IB 1443 
IB 1444 
IB 1445 
IB 144B 
18 1447 
IB 1447 
18 1448 
18 1443 
18 1449 
18 1458 
IB 1451 
IB 1452 
IB 1453 
IB 1454 
IB 1455 
IB 1456 
18 145S 
18al457 
18H14S7 
1 Bui 457 
18nil457 
IB 1457 
lBal458 
lBi>1458 

18 1453 

19 14B0 
IB 14E1 
18 14B2 
18 1483 
18 1464 
18 1455 
18 14GE 
18 1467 
IS 1488 
IB 1469 
18 1470 
18 1471 
IB 1472 

1472 
1473 
1474 
1475 
1475 
1476 
1477 
18 1478 
18 1479 
18 1480 
18 1480 
18 1481 
IB 1482 
IS 1483 
18 1484 
18 1484 
IB 1485 
18 14B6 
IB 1487 
IB 1488 
18 1489 
1B«1490 
18ii>1430 
18>1430 
18ail430 
18«1430 
iei>1430 
lBiiil430 
ieiil490 
18nl490 
18ml490 
18i»1490 
18ml490 
lBnl490 
18i»1490 
lBnil490 
lBml430 
18i>1490 
lBml430 
lBml490 
lBml490 
18ml490 
lBnil490 
lBml490 
lBnl490 
lBr>i43e 
18i«1498 
18 1498 
18 1431 
18 1492 
18 1493 
18 1434 
18 1495 
18 1496 
18 1497 
18 1498 
18 1499 
18 1500 
IB 1500 
IB 1501 
IB 1502 
IB 1503 

18 1505 



051E4 010S4180200000800543S5Z024731456000 

05166 01833137000006055416162365431416000 
051B7 01873117000006054016812365431417000 

05170 01873017080006055404562365777416000 

05171 01161000400000001404550225431455000 

05172 010731 1700100G054016000365471517000 



05173 71073017000000000444562825431455000 



85175 11873117000000001416152225431256000 

85176 71872117000022353416162025671456000 



05177 71072117000006055416152365671416000 
05200 011B213700000000141616202S671456880 



05201 01050317000006054454152365431416000 

05202 01050237800006055404562365431416000 

05203 01151137000606855414162365431416800 

05204 81151137800821237414162225431456000 

05285 81073117800012413416162025431455000 

85206 11073307050712415416162031471355000 

85207 54873117000086055416162325420415000 

85210 7103U3700080585541616Z365431416088 

85211 81873137800806054456162365431415000 

05212 01073117808006054016812365431417880 

05213 01873817000006055404562365771416008 

05214 81861828480000001484562225671456000 



;BLTfll BLTflL3 a-TFX2 BLTfiL2 SLTXIT BLTftZ BLTAZfl BLTA2a BLTLl BLTfl4 BLTfll0 
BLTL2 BLTL2fl SLTS3 BLTCHK 

, repeat 0[1 ;Help SRCCOTI not natch too soon, 

; ftC cases 
: Dest is flC 

BLTfll: DinASK 151 R0TC25] ALUED&ACl CCBffitO8US=0] JUnP[BLTfll0] S 
; Jump if src is fiC 
DCIR3 ROTI40] ri(«K[16] CCKD[-C1BUS=0] JUMP[BLTA101 t 

jjump if final dest is not AC 
flLU[ftC] DEST[flRl % ; Get dest 

DCftRl RDTCATEfl-P-ROTl DESTtATEM-Pl $ 
DdRl MASKIIB.] DESTCQ] SHORT * 
DEAR] Mr:iSK[18.] r^U[Q-01 DC5T[Q HOLD! anOEOBUSO] PUSHJ[BLTA41 « 

: Ad just if cnt nes- 
DtfEMl ROTtLLOflO-ROT] DESTtLLOAOl $ ;Loop counter is shifted 

over 
.repeat oldblt [ 

DCflR] ROTtlB.l rWSKClB.l DESTEm] ^nRt1 JUn'[BLTflL3] $ 
;Get src 
]:. repeat oldblt 
.repeat 1 - oldblt t ;GRUNT avoidance 

D[AR1 ROTCIB. ] nftSKllB.l DESTCm Q] NORM JlJnP[BLTflL31 S 
;Get src. load MA for fetching and Q for reneaberins in case of 
traps. 
];[ ;6RUNT avoidance 

DtftR] R0TI18. ] mSKIlB.] DESTiriA Q] MKM JUnP[BLTAL3] * 
;Get src. load MA for fetching and Q for renenberins in case of 
traps. 

3. repeat i - oldblt 
.odd 
[:. ♦ 1 - {. \ 2) 

1BLTAL3: DFRQ HA-m+1 PUSHJ t BLTAL2 1 $ 

Oimi ALUtD-11 CeSTCMAl NORM JLTP t ECC-PROCEED 1 « 
;ECC Trap- Restore failing MA. 
.repeat oldblt [ 

DiMAl ALUiD-U DESTtMAj FORM F\iSHJ i MAP-iSET j S 
NORM JUnP[BLTAL3] « 
BLTAL2: DFRQ TRP-CTLETRAP-FIXl ACSEL [ D . fiMEM-P i OirEHl DEST[B3 

AMEH-P-INCR nA-.-MA+l L0CPtBLTAL2J NORM » 
];. repeat oldblt 
-repeat 1 - oldblt I 

DIMA) ALU[IJ-1] OCSTtMAl S 

;Map Trap. Restore failing MA for aap code. 
DtMAl ALU[D-Q] DESTCflfi] JUnP[BLTFX2] $ 

:Subtract initial MA value (preserved in 0) froB failing 
value. . . 

; this gives number of Mords moved. Note: LH is garbage. 
; \ / 

iUpdate BLT point in AC by offset in fIR. then finish map trap. Note: MA 

.should already be valid when we get here. 

BLTFX2: d;ar; rot: 13.1 maskeleft; aluid+ac] cestlaci s 

;Advance source. 
Dirt?] MASKCIB. 1 ALUtO+ACl DeST[0-AC ARl $ 

;Advance destination. IJatch out for overflow to left 
half 

DtARl MASKILEFT) ALU(AC-D1 DESTIAR) $ 

;Ln=l if overflow happened. 
DtARl MASKILEFT] ALUIAC-Dl DEST[AR1 PUSHJ [ MW-RET 1 S 

jFinaily. fixup overflow. Sigh... the price of honesty. 

jump! . 1 $ 

.-Shouldn't get here if RE-XCT is set! 

BLTAL2: DFRQ TRP-CTL[TRAP-FIX RE-XCTl ACSEL[D.AnEn-Pl DlttMl OESTCB) 

AMEM-P-INCR MA^MA+l LCDPCBLTAL21 NORM $ 
1;I 

D[MA1 ALUED-ll DESTIMAl $ 

jMap Trap. Restore failing MA for map code. 
DIMAl ALU[D-Q1 DEST[AR) JLnP[8LTFX21 t 

;Subtract initial MA value (preserved in 0) from failing 
value. . ■ 

; this gives number of words moved. Note: LH is garbage. 

i \ / 

.-Update BLT point in AC by offset in AR, then finish map trap. Note: MA 

;should already be valid when we get here. 
BLTFX2: D[AR] ROTdB.l MASKILEFT] ALUID+ACl DESTIACl $ 
^Advance sourcc- 
DIARl MASK(18.1 ALUID+AC] DESTIO-AC AR] * 

;Adv3nce destination. Watch out for overflow to left 
half 

DtARl MASKILEFT) ALUIAC-Dl DESTIAR] t 

;LH=1 if overflow happened. 
DIARl MASKILEFT) ALUtAC-D] DESTIAR) PUSHJ t MAP-RET) $ 

;Finally. fixup overflow. Sigh... the price of honesty. 

jumpt . ) $ 

.-SlTouldn't get here if RE-XCT is set! 

S TAL2: DFRQ TRP-CTL I TRAP-FIX RE-XCT) ACSEL I D > AMEM-P 1 DIMEMl DEST 1 9) 

AMEM-P-INCR MA^rn+l L0aPI8LTAL2) NORM $ 
1. repeat 1 - oldblt 
BLTXIT: NEOI * 

; Src is AC. dest is mem 
BLTA2: ALUIAC-ll DESTIAR MA) $ 

;Get DEST-1 in MA, SRC in AR00:17 
DIARl R0TI18.1 DESTIARl » 
DIARl R0T(AMEM-P-R0T1 DESTIAMEM-Pl $ 

.-Get SRC adr into AHEM POL for use in fetchins ACs. 
DIIRl MASKI18.1 DESTIOl S 
DIMAl MASKI18.1 ALUIQ-D-1] DESTIQ AR] CONDIC8US<01 PUSHJIBLTA4) % 

.■Compute length of transfer, jump if neg 
•repeat oldblt t 

DIARl RDTtLLOAO-ROTl DESTtLLOAOl t 

.-Loop cOLjnter is shifted over 
DIAR] RQTtie.) MASKtlB.) ALUID+Q) DESTIQ) i 
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18 1511 
18 15iZ 
IS 1513 
18 ISH 
18 1515 
18 151G 
18 1517 
18 1518 

15 151S 
IB 15Ze 
18 1521 
18 1522 
18 1523 
18 1524 
18 1525 
18 1526 
18 1527 
18 15Z8 
18nl529 
18i>15Z9 
18ib15Z9 
18al52a 
18«15Z3 
1801538 
IBolSSe 
18al53e 
18b1538 
18al53e 
IBalSSe 

iBnisse 
iBoisse 
isnisse 
ien>i53e 
iBaisae 

lB«153e 

ie«i530 
isnisae 

18 1523 
18 1530 
18 1531 
18 153Z 
IB 1533 
18 1534 
18 1535 
18 153G 
18 1537 
18 1538 
18 1533 
18 1540 
IB 1541 
IB 1542 
IB 1543 

16 1544 
IB 1545 
18 1546 
IB 1547 
18 1548 
IB 1549 
IB lb43 
IB 1559 
IB 1551 
IB 1552 
IB 1553 
18 1554 
18 1555 
18 1555 
18 1556 
18 1557 
18 155B 
18 1559 
18 1560 
18 1561 
18 1562 
IB 1563 
13 1563 
IB 1564 
18 15G5 
18 1566 
18 1567 
18 1568 
lBiiil563 
lBfnl569 
lBi>15e9 
18i>1569 
lBinl569 
lBml563 
lBnl569 
iaiBl57e 
18m!570 
lBnil570 
lBiiilS70 
lSalS7e 
lBi«1570 
lBi»1570 
1B«1570 
lBi>1570 
lBal57e 
lBnl570 
lBiiil570 
18B1S70 
18 1569 
18 1570 
18 1571 
18 1572 
18 1573 
IB 1574 
IB 1575 
18 1576 

IB 1578 



05215 01073117001000000016000025431457000 
05217 01060017000000000444562225431456000 
05220 01073117000012441416162025431456000 

aszzi 0ii52i37a0aei24034i6ib2e2SS7i45seee 

05222 01064100000000000106162024731456000 

05223 11033187050712447416156031431556006 

05224 0187311700001241741G1S202S431456000 

05ZZS 01024017001006054016000425431417000 



05226 01033137000006055416162365431416000 

05227 71073117000006054444552365431416000 
05230 01033117000606055416150345431216000 



05231 01073017040006055416150365471516000 

05232 71073112200000001404554125421456000 



05234 81023317000606055416162345431436060 

05235 1 8730 1 704060605540455236543 1 5 1 6800 



8S2S 8116!100S00e000ei4045E282S7714SS000 
05237 01050330603712457400362025571456000 



05240 61072117000022711416146025631455000 

05241 54073117000806055416162325420416800 



];. repeat oldblt 
•repeat 1 - oldblt i 

DCfiRl ROTtLLOACt-RQT] KSTILLGflO] JUWtaLTf^ftl t 

;Loop counter is shifted over 
.CElO 
BLTfi2fi: DtflR] R0TI18.1 nflSK[lB.l ftLUID-Kll DESTIQ] PUSHJ[BLTfi2Bl S 
;Calc. final source addrs. 
;Setup stack for nap tr^ 

Jur!P[.! s 

;Shouldn*t set ECC traps on urites! 
DCmi flLU[D-AC] DESTCflR] JUnPIBLTFX21 S 

;Calculate nunber of Mords Boved. Note: LH is sarbase 
;HoM. proceed with regular AC flavor of BLT. 

BLTft28: DtmSK 385 H0TI4] flLUtC8.al CaNDI-DBLS=01 JUHPIBLTftiei t 

;Jufip if src leaves RCs and flush Map trap address 
BLTLl: flCSEL[D.fiftfl-P] TRP-CTL[T1WP-F:X RE-XCTl fiLUIBl OeSTtMEMSTC] 

ftTEfl-P-INCR Hrvm+l LOOPlBLTLll S 
l;t 

Dirt?] ROT[LLOADH?OT] DESTILLOfO) JUnPtBLTAZft] $ 

;Loop counter is shifted over 
.000 
1 - (. \ 2) 



t:. 

)BLTA2A! OtfiR] ROTtlB. ] tWSKtlB.l ALU[D+Q] DESTCOl PUSHJtBLTAZB] t 

:Calc- final source addrs. 

;5etup stack for map trap 
JUMPt-l $ 

;Shouldn*t get ECC traps on urites! 
DiiTHj hLU[D-hC] D£ST[HKJ JLJfEBLTrXZi i 

;Calculate nunber of Hords soved. Note: LH is sarbasc 

;Now. proceed with regular AC flavor of BLT. 

BLTflZB: D[rMSK 30] R0T[4] ALUCO&O] CC»C)[-QBUS=81 JUrPtBLTA10] $ 

;Junp if src leaves ACs and flush aap trap address 
BLTLl: ACSEL[D,ArEn-Pl TI?P-CTLtTi?AP-FIX RE-XCT] ALUCBl DESTCMEMSTOl 

AMEM-P-INCR (HVHA+l LOOPlBLTLll « 
]. repeat 1 - oldblt 

KO?f1 JUrPcBLIXITi % 

; called on attenpted back-BLT to or froo ACs 
BLTA4: ALUC01 ROT[LLDflO-ROTJ DESTtO LLOfiOl POPJ * 

; Ueird cases: both src and dest in ACs» or either crosses boundary 
;+■•■ No attempt has been made to make this efficient 
BLTA10: ALU[AC] DESTIARl * 

BLTL2: DtARl ROTllB.) MASKilB.) DESTtflAl $ ;Read from AC or mem 

DFRQ ALUEHEriACl DESIIHOLDl « 

:Load nEn from either AC or real mem. 
.repeat oldblt [ 

DtdEM] DESTtHOLD Q] S 
DCARl flASKClB. I DESTIHA) STRT-WRT $ 
CONDi-f1A<20i JlWi. + 2J S 
ALU[0] DEST[nEttAC] $ 
0[fiRl MASKLlS.l 0EST[Q1 S 

0[IR1 flASKtlB.] ALU[Q-D] COND[-OeuS<01 JUtf[BLT991 * 
D[l,-1] DESKQ] $ 

D[ftRJ ALUIO+Q) CtSTtflRl JirP[BLTL21 NORM $;»»« TEST FDR INTERRUPT 
HERE" 
H.T93: ^EDI » 
]:. repeat oldblt 
-repeat 1 - oldblt I 

TRP-CTL[ RE-XCTl D[(1Eni DEST I HOLD 01 $ 

;Re-start inst. if Me page fault here. 
D[AR1 mSKIlB.] DESTEtlft] STRT-WRT C500 CONDt-EA<20] 
LBJUrP(BLTL2A] $ 
.even 
8LTL2A: ALUCQl OESTCnEMACl * 

jHere if storing an AC Cno trap is possible). 
TRP-CTLI RE-XCTl D[flR] flAStCIlB.] DESTIQ] $ 

;Rc-start inst. if we page fault here. 
D[IR1 MASKC18. 1 ALU[Q-D1 COND[-OeuS<0] JUnPtBLT99] $ 
Dtl.,1] ALU[D+AC1 DESTIAC AR] CONOt-INTRPTl JUnP[BLTL2) NORM $ 
*+* ;If no interrupt, move more words. Ue should be glad if 

+++ :wc get an interrupt, as when we re-execute the BLT. ue 

+++ Jwill probably continue execution in a faster loop. 

DIPCl ALUCD-11 DEST[PC1 JUTEMAIN] $ 

BLT99: NEQI $ 
];[ 

TRP-CTL[RE-XCT1 DfNEn] DEST[HOLD 01 S 

;Re-start inst. if we page fault here. 
DCAR] mSKtlB. ] DESTIfIA] STRT-WRT CS00 COND[-EA<20] 
LBJUtlPiBLTLZA] S 
.even 
[:. \ 2 + . 

1BLTL2A: ALU[Q1 DESTLMEnACl $ 

;Here if storing an AC (no trap is possible). 
TRP-CTLI RE-XCT) D[AR1 mSKtlS.l DEST[Q1 S 

:Re-start inst. if we page fault here. 
Q!IR] flASKCia. ] ftLLi!Q-D] COCJDf-OBUS<0] JLirprBLT99] S 
D[l.,ll ALUCD+AC) DESTIAC AR] CONDI-INTRPT] JUt«>[BLTL2] NORtl S 
+++ I) ;If no interrupt, move more words. I4e should be glad if 

+++ I] :we get an interrupt, as when we re-execute the BLT. we 

+++ [] ;will probably continue execution in a faster loop. 

DIPC) ALUID-1] DESTIPC) JUnPIMAINl $ 

BLT99: NEOI S 

]. repeat 1 - oldblt 

. repeat I 

:Look for BLTST bug detected 
BLTCHK: DIMASK IB.) ALUIDSACl DESTIQ] NORfl % 
;Extract destination 
DCIRl ALUID-Q] DESTIO] fORM i 

;Calculate number of words to move 
™ lilf^l nF^Tf™! ftifU?M £ 

;nove BLT pointer so we can get left half 
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13 15S4 

19 1585 

IB 15BS 
13al587 

13 1587 

13 158S 

13 1589 

19 1530 
lSal5Sl 

19 1531 

19 1532 

19 1593 

19 1534 

19 1595 

19 1595 

19 1596 

IS 1596 

19 1597 

19 1598 

IS 1599 

13 isee 

13 1G01 
13 1602 
13 1683 
13 1604 
13 1605 
13al606 
13 1606 
19 1607 
13 1608 
13 1603 
13i>16ie 
13nl610 
13iiil610 
19nl611 
ISnlSi: 
19 1512 
19 1613 
19 1614 
13 1614 
19iBiei5 

19 161G 
19 1S17 
IS 1618 
19 1619 
IS 1620 
13 1621 
19 1622 
19 1623 
19 1SZ4 
IS 1G25 
IS 16Z6 
IS 1627 
19 16Ze 
IS 1GZ3 
13 1630 
19 1631 
IS 1B3Z 
13 1633 
IS 1633 
IS 1634 
IS 1635 
.13 1636 
13 1637 
IS 1638 
13 1633 
IS 1640 
13 1641 
IS 1642 
13 1643 
13 1644 
lSiil645 
13 1645 
19 1646 
13 1647 
IS 1648 
1 Sin 1643 
130.1643 
13al643 
13011650 
13ml650 
13 1651 
13 1652 
IS 1653 
IS 1654 
IS 1655 
13 1656 
13 1657 
IS 1658 
13 1659 
13 !S60 



06524 
06525 



06526 
06527 



558503M5037277554003623Z555121G000 
01073117000022433416162025431456000 



S505030040372775540036232S551216000 
0107311700002243341G1G20254314S6000 



06530 

06531 



05242 
05243 



01073111600000001416162125431456000 
0107311700002243341616202543145G000 



55073117000027755416162325421216000 
01073100200000000260562125761456000 



05244 51073112400010211416146025671456000 



05245 01073100400000000276162025761456000 

05246 01073180400000006316162025761456000 

05247 01073100400000000256162025761456000 

05250 01073100400020406236162025761456000 

05251 55073117600027755416162325421215900 



05252 0107301700430G05S416162364637416000 

05253 01064017000006054740362365577416000 

05254 01073100000000000441162025771456000 

05255 01063017000066055416162365671416000 
0525S 01065117000012514540242025571457000 



05257 01003017000012535416162011431456000 



05260 
05261 



01073017000006055416162364631416000 
01063117000012516740242025571457000 



05262 01073137000022423402362025571456000 



06532 0ie?3i3iBeee0006032ii62i2S/<-i4ase«e 

06533 01073131600000000321162125771456000 



05264 54073117000006055416162325420416000 

05265 01073017000006055416162364631416000 

05266 01064180280012551016162025431456000 

05267 01065117000006055016042365431417000 

05270 55073117000027755416162325421216000 

05271 54073117000006055416162325420416000 

05272 01073117000022433416162025431456000 



;;; Note: fiOBJP and SCSJN behave Kfi-style CRH overflow adds to LH) 

.opcod£[2S2! txlist 
list ) ;AOBJP 

D[l,,ll flLU[D+fiCJ DESKAC] COND[-OBUS<0] JDSP C600 $ 
JLTP tJMPftC] » 

.=FCc:de[2S3! UliEt 

list 1 ;(CBJH 

D[l,,ll ftLUCB+flCI DESTCAC] CONO[DBUS<01 JDSP C600 $ 
JUMP [JMPflC] $ 
-repeat [ 
.opcode [2541 
;JRST 

DtlRJ DESTIiai CONO-flBORT CONDIfiC=01 fleORT-(W?-12 
JDSP-SPECIflL-fiBQRT $ 

;If AC not ^. abort (and co»e to JRST8). 
JLWCJMPftCl t 

-rcloc 
JRST0: D[«?3 DESTtrWl SHORT $ 

;Here fro* trap location 12 if JRST had non-zero AC field. 
DCIR] RDTCU.) MASK[2) ONJCZERO] LBJUnP[JRSTll CS50 t 
;Separate according to the BITS 9 fiffi 10 of the AC field. 



1 



.opcode[2541 [xlist 
list 1 

nM)[-AC=0] LBJUMP[JRST0) % 
JUMPtJMPftC] * 



;JRST 



1 . pa i r 



.reloc 
I.USEIMORMAL) 
I xlist 

list ] 
!:. \ 2 * . 

1JRST0: TRUE JDSP « ;JRST 0, 

DCIRl ROTIll.l MASK[21 CONDCHEROl LBJUnP tJRSTl] CS50 $ 

;Scparate according to the BITS 9 AND 10 of the AC field. 

.pair 
!:. \ 2 + . 

JJRSTl: DtrWI DESTCPC] COND[USER] JUHPCMUUO] NORM $ 

;HERE FOR PI PI OlSfllS OR HALT 

;LQAD PC WITH EFFADR 

OtIR] R0T[11.] CONDCSIGNONl JUfP{JRST2] C550 » ;Bit 11. 

JRST4: DIIR) R0TI12.1 CONDCSIGNONl JUMPLJRSTSl CS50 « ;Bit 12. 

JRST5: DtlRl ROT(10.] CQNDtSIGNCW) JUTPURSTS] C550 % ;Bit 10. 

DtlRl ROKS.l CONDCSIGNON] JUnPIPI-OISMISS) CSS0 » ;Bit 9. 
JDSP $ 

; Bit 11. — Flag restore 

JRST2: CLR-HALF DiPC -FLAGS] DtSTiQj SHORT * 

DLCQNST n R0Tt361 «.U[D&Q1 OESTCQl SHORT $ 

;Don't let USER be cleared. 
DCIR] R0TL18.1 nASK[41 COND[-OBUS=0] JUrPtJRST211 % 

; Indexed? 
D[r«l ALUIOORQI DESTtOl NORM t 

;No. Put in the neu bits Cbut UK in the old LCitKJ 
DtCONST 1] R0TI3S. - 3.1 RLUI-DSQl DEST[ PC-FLAGS 3 JUMP[JRST4] 

;Don't let bit S be set (it is a sort of trap flag for POL OJ) 



JRST22: 
NORM S 



; Indexing used on restore flags. (jCt thctt in uierd Manner. 
JRST21: ACSELIIDX] ALUIAOROl DEST[Q1 JUrt'[JRST221 « 

; Bit 12. — Enter user Bode 
JRST3: D[ PC-FLAGS] DEST[Q] S 

DCCONST 11 R0TI3G] ALU[DORQ] BEST [PC -FLAGS] JUrP[JRST5] NORH $ 
; Bit 10. — Halt processor 
JRST9: D[CONST 11) DEST[AR] JUrP[HLTLX] $ ;rHOFF 

.opcode[255] Ixlist 
list ] _ ;JFa 

D[IRj ROTlISj nH5Ki4j EjtSTiARj Cuwi-AC=0i LBJuPFEJFCLij $ 

D[IR] R0T[151 t1ASK[4J DE5T(AR] CONO[-AC=0] LBJUrf(JFaZ] » 

.reloc 
[.US£[N0Rt1flLl 
[ xlist 

list ] ] .pair 

[:. \ 2 + . 

IJFCLl: NEOI S ;AC=0. a NOP 

D[PC -FLAGS] DEST[(3] % ;AC is nonzero 
D[AR] ROT[401 ALU[DeQl COMD[OBUS=0] JU1P[JFCL1] « 

;TEST SELECTED FLAGS 
D[flRl ROT[40] flLU[-D&Ql DEST [ PC-FLAGS ) $ ;CLEflR FLAGS 
JDSP $ 
JFaZ: HEDl S 

JUnP[JMPAC] » 
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28 IGBl 
20ml6EZ 
Z0 1552 
28 1653 
20 156+ 
28 1665 
28 1666 
2e»lE67 
2e«ilS57 
28al667 
28 1568 
28 1663 
28ml678 
28«)1578 
28iiil671 
28011671 
28 1672 
28 1573 
28 1674 
28 1575 
28 1675 
28 1676 
28 1577 
28 1578 
28 1573 
28 1688 
28 1688 
28 1681 
28 1582 
28 1683 
28 1584 
28 1585 
28 1686 
28 1687 
28 1588 
28 1S3S 
28 1538 
28 1631 
28 1532 
28 1633 
28 1634 
28 1535 
28 1636 
28 1537 
28 1638 
28 1533 
28 1708 
20 1701 
28 1702 
28 1703 
20 1704 
20 1705 
20 1706 
20 1707 
20 1708 
20 1703 
20 1710 
20 1711 
20 1712 
20 1713 
20 1714 
20 1714 
20 1715 
20 1716 
20 1717 
20 1718 
20 1713 
20 1720 
20 1721 
28 1722 
20 1723 
20 1724 
20 1725 
20 1726 
20 1727 
20 1728 
20 1723 
28 1730 
28 1731 
28 1732 
20 1733 
20 1734 
20 1735 
20 173G 
20 1737 
20 1738 
20 1733 
20 1748 
20 1741 
20 1742 
20 1743 
20 174+ 
20 1745 
20 1745 
20 1747 
20 1748 
20 1743 
20 1750 
20 1751 
20 1752 
20 1753 
20 1754 
20 1755 
28 1756 
20 1757 
20 1758 
20 1753 
20 17G0 
28 1751 
20 1762 



ist 



36534 81873111480680881416152125431255080 
06535 01033111400000081416150105431456000 



/ 



11362 01073117800000001416162025475555000 

11363 54073117000006047416162325465515000 



11364 01073112408022747415152025435455000 
11355 01073017000000008321152025775456000 



11366 71073137000006855415140355475515000 

11367 01073100200000000441352025451556000 

11370 01073100200008000441152025761456000 

11371 71858137800006855484544351771415000 

11372 01873100500000000335162025761455000 
U373 91064180080e8e0ei40215222S5ei455000 

11374 01033117000086055415150345435215000 



11375 71073137000086855415142365475516000 

11376 01873117880006055400048365575417800 

11377 01073100000022750441362025451556000 
11400 BiB23ii7»Be0a60554ibi443S54354ibeee 

11481 81873017000006054161752365775416000 

11482 8186610020000008141315Z02S5E1456000 

11403 01865100200800001405762025581456000 

11404 01066100200800081412552025561456000 

11405 01073017000006055401162365775416000 

11406 81864180280000001401362025561456000 

11407 01073111000008001416162025435456000 
11418 81873180400000000175152024621456080 

11411 81054180200000001408362825561456000 

11412 01064100200000001401152025561456000 

11413 01073117008000001403640025575457000 

11414 01073117800000001483440825575457000 

11415 01073117000000001400240025575457800 



11415 71073117000000001416144025675456000 



.opcode[2S5j 
1 i St 3 

DFRQ CCND[fC=33 LBJUMPtXCTl 1 t 

flLUErEMfC) DESTtHO-O) CONOIAC^O] LBJUTPtXCTl] 



.reloc 
[.USEtKFHfa.] 
[ xlist 
list 1 



) 



.usetHlLX] 
[ xlist 

1 i St ] . pa i r 
[:. \ 2 + . 

3XCT1: DEHEM3 TMSfl JLIflP[XCTP3 $ 

XCTll: DtfEn3 XCT-IOISP S 

;The D[MEH1 causes us to trap here for nap or ECC. This is 
; necessary because the PC doesn't point to the instr ue are 
xct ' ing- 

;Dispatch without incrementing the PC. 

HERE WHEN fC NQT= 8 

HEM/ CONTENTS PTED TO BY XCT INSTRUCTION (INSTR TO XCT) 

INSTR NOT YET TRi:iPPED FDR INCEXING OR INDIRECTION SO CAN 00 EFF ADR CPILC 

;IN fiPPROPRIflTE SPflCE 
,-PC/ XCT INSTR + 1 

XCTP: C0NDEUSER3 JUflPtXCTlll TNRfl * 

;LIKE fl NORMAL XCT (AC=0) IF USER MODE 
DCIR3 R0TI13. 3 MASK[43 DEST[a3 JUMPtXCTMRG] TNRtl $ 
: SAVE XCT AC FLO AND MERGE 



;MERGE POINT FDR UHOVEX AND SPECIAL XCT 



.REPEAT 1 - WAITS [ 
VSTAAOR = 775000 



.-VIRTUAL ADR OF STATE/AC PAGE 

;THIS PAGE IS KNOWN TO BE LKKED IN CORE! 



1 ; . RI^P^AT 



t«I 



r€RGE POINT FOR UMOVEX. 

MEM/ INSTR TO XCT (MIGHT BE UMOVX CONVERTED TO MOVX) 

EFF ADR CALC NOT YET TRAPPED UP FDR INSTR TO XCT 
0/ AC BITS OF XCT INSTR (MIGHT BE BITS FAKED BY UMOVE GROUP) 
PC/ UnOVE INSTR + 1 OR XCT INSTR + 1 

XCTMRG: D[HEM3 DESTEAR IR-ALL MA] TMW $ 
;Load AR.IR.MA from MEM. 
D(MEM3 ROT[ia.] MftSK[S3 CONDtZEROl JUTPEXCTEFFl CSSe » 
;Juflip if no indexing or indirection necessar/. 
XCTNDX: DCIR3 R0TC18. 3 MAS(C[43 C0ND(HER03 JUHP[XCTI^D3 C550 » 
;Junp if no index fid. 
D[IR3 MASK! IB. 3 ALU[0+XR] DESTEMA IR-AOR ARl « 
;Do index (load AR.IR.MA) 
XCTINO: D[IR3 RQTtl3. 3 C0ND[SIG^CFF3 JUnP[XCTEFF3 C550 S 
;Juaip if no indr 
DECaiET 183 fS-UEDaO] C0ND[-2ERO3 PUSHJIXFIXMA! C558 $ 

;Pushj if addr calc user, fixup MA and adr space select. 

DFRQ ALUEMEMACl DESTEH0LD3 TM?H $ 

;Load MEM BUS uith either contents of AC (if MA<2e) or 

; MEM via fetch (hdw hack nakes right thing happen). 

;A11 Me uant here is xct access but Map ucode 

;3llows xct or read if either on in nap ptr 

;so can take normal read trap and win. 
DEMEM] DESTIAR IR-23 MA) TNRM $ 

;LOAD AR.MA, IR BUT DON'T CLOBBER OPCODE OR AC 
SET-TEMP-EXEC t DE CONST 003 DEST E HAP-USER-SR ] 3 TNRM % 

;BACK TO EXEC MODE INCASE XFIXMA SELECTED USER SPACE 
DEMEM] R0TE1B.3 MASKI53 C0NDE-ZER03 JUMPEXCTNDX3 C550 * 

;JUnP IF I^JDEXING OR INDIRECTION NECESSARY 



XLitrr: HLUiijJ DESTilR-ADRJ Tf«<fi » 

■,S»X. XCT AC FLO IN IR RH NOW 
DEIR] ROTE73 MflSKE71 DESTEQ] TNRM $ 

;GET VD 7 BITS OF OPCODE 
DECONST 543 ALU[D»Q3 C0NDE2ERO3 JUnPEXCTSTK3 CSSO « 

;JUMP IF STACK GROUP 
DECO^ET 273 ALU[DbQ3 C0NDE2ERO3 JUrPEXCTBYT3 C550 » 

;JUHP IF BYTE GROUP 
DECDNST 523 ALU[D«Q3 C0NDEZER03 JUrPEXCTBLG3 C558 « 

.-JUMP IF GROUP WITH BLT IN IT 
XCTEZE: DEIR3 MASKE43 DESTEQ] TNRM * 

;GET XCT AC FLD 
DECONST S3 fiLU[DaQ3 CONDE2ER03 JUHPEXCTEE3 CSSO « 

.-JUMP IF NEITHER RELEVANT BIT 
CONDEMA<203 JUMPEXCTAC3 TNRM S 

;JUf1P IF EF AOR IS AC 
DEPC -FLAGS) R0TE7. 3 C0NDESIGJON3 JUIPEXCTEE] C550 $ 

:JUMP IF CfiLL FM fm 
DECONST 11 ALUED8.Q1 CONDEZEROl JUMPEXCTEU3 CSSO $ 

;JUMP IF BIT OFF 
DECONST 43 ALUED&Q3 CONDEZEROl JUnPEXCTUE3 CSSO « 

.-JUMP IF OTHER BIT OFF 
XCTUU: DECONST 171 DEST E MAP-USER-SR 1 JUMPEXDISPl TNRM $ 

;SET SRC i DEST TO USER 



XCTUE: 



XCTEU: 



XCTEE: 
XDISP: 






DECONST 153 DEST ( MAP-USER-SR 1 JUMPEXDI5P3 TNRM $ 
;SET DEST TO USER, SRC TO EXEC 



DECONST 013 DEST (MAP-USER-SR 3 JUrPEXDISP3 TNRM S 
;SET SRC TO USER. DEST TO EXEC 



DEMAl DESTEMA IR-A0R3 JUWEXCTEOIl TNRM $ 

:FTWT<34 f t» TMCTP MrmTFTroTTfTW 
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20 1758 
28 1769 

28 1778 

29 1772 1H21 91873817008886055416162365775416800 
29 1773 11422 61865117880886854441348364735416886 
29 1774 

20 1774 

29 177S 11423 81873117888096855415159365775416909 

29 1776 

28 1777 11424 44073117000006047416152325425416008 

28 1778 

28 1773 
20 1780 
20 1781 
20 1782 

29 1783 
20 1784 



;DISWTCH TO EXECUTE IMSTRUCTIDN 

XCTEDI: DdRl DESTIQl TNRPl $ 

D(rWSK 5) R0T[1B.) flLUI-D&Ql DESTi IR-ftLl TNRM t 

jRemove the XR and IND fields... eff. addr. already 
calculated- 
DC !R! DESTiHOLDl TWPK $ 

;FM(E INSTR FETCH 
PXCT-IDISP S 

:DISPfiTCH WITHOUT INSTR FETCH ■» 

;PC DOES NOT GET IICRErlENTED 

.-rifl DOES NOT GET CHflNGED 

;mP-USER-SR DOES NOT GET CHANGED 
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21 178S 
21 17SS 
21 1787 
21 17B8 
21 1789 
21 1790 
21 1730 
21 1791 
21 1792 
21 1793 
21 !79t 
21 1795 
21 1798 
21 1797 
21 1798 
21 1799 
21 1B00 
21 1801 
21 1802 
21 1803 
21 1801 
21 1905 
21 1806 
21 1807 
21 1808 
21 1809 
21 1810 
21 1811 
21 1812 
21 1813 
21 1814 
21 1815 
21 181E 
21 1817 
21 1818 
2S 1819 
21 1820 
21 1821 
21 1822 
21 1823 
21 1824 
21 1825 
21 1826 
21 1826 
21 1827 
21 1828 
21 1829 
21 1830 
21 1831 
21«1832 
21iril832 
21nl832 
21>il832 
21i«ia32 
21mlS32 
21inl832 
21nil832 
2linia3Z 
21iiilB3Z 
Zliiil832 
21iil832 
211.1832 
21ml832 
21inlB32 
21ml832 
21i>183Z 
21nil832 
21inl832 
Zlml83Z 
21 1832 
21 1833 
21 1834 



11425 01073111000000001400040025575457000 



11426 ai07310040000S8S417SlS2424S1141S000 



11427 01073117000006055403640365575417000 
11430 010731 1700000605S41616242543541S000 



11431 01073117000005055400040365575417000 



11432 01073180020006054200362424621416000 

11433 0107305700000G0S541S1E2365671416000 

11434 71063157000000176000162365535416000 

11435 01073017000000042225762367031415000 



11436 010631170000060S46006543655S1417000 

11437 010721170000060554000564255S1-417000 



ttiake ackjress in m refer to previous context (including stored AG's). 
:nUST NOT CLOaSER Q or HO-D ! ! ! 

XFIXMA: SET-TEMP-EXEC t DtCONST 80] DEST[rWP-USEH-SRl ia»D[nA<Z0] 
JUMPCXFIXflCll TNRn t 

;Select EXEC to start, jump if addrs is X. 
DiPC-FLftGSl RQT17. 1 LONG CQICKSIGNQNJ POPJ S 

; Leave if CALL FH fOJ 
SET-TEMP-USER C DtCONST 171 DESTtMAP-USER-SR] ]TM?f1 t 
POPJ TNRM $ 

;2 INSTR SO rWP SETTLES INCfiSE DFRQ ON NEXT INSTR 



;Load rVI uith adr of user saved (C. ItSl NOT CLOBBER 0! ! ! 

XFIXftC: SET-TEW-EXEC [ DtCONST 00] DESTtnflP-USER-SRl ITMOT S 

; Insure EXEC space selected. 
XFIXfCl: 

.repeat 1 - iOfllTS [ 

DEMAl DESTCALUl Q] TNRtI » 

;Get AC addrs. 
DtWIEn-ftBS fWP-(ffiE/AC81 tWSK[9. ) I^UIflLUl D+Ql OESTtQl TNRM % 

;Add in ftC BASE REG. 
DILIT VSTAADRl ALUIALUl DORQl DESTtfWl TNRM POPJ « 

; Include virtual page » of STATE/AC BLOCK in adr. 
1;. repeat 1 - WAITS 

.repeat WAITS [ 

DtPC -FLAGS] ROTta.] MASKtll CONDt-HEROl POPJ CS50 nAPFI2] » 

:LEAVE IF CALL FM HON 
DIHAl DESTtALUl 0] » 

;t3et address of AC. we need to nuns it 
;»«» 770006 ought to be defined symbol icly 

DILIT 770000] ALU[«_U1 IXRO) DESTCHA] THRU * 

;Add page number of uindou 

;Use 779xxx for window into user ACs 
DCAHEM-ABS MAP-AGE/ACB] R0TC9.] MASKI36. - 13.] DESTIiJ] $ 

;Get phys. page no. of user page 0. 

;If for soJBe perverse reason. tr-iere is no user pa9e 0. 

;we will reference exec AC's shadow, which is presumably 

;harmless 
DtCONST 3] (?0TtZ4.] ALUtDCRQ] DESTIMAP-MA] LONG % 

.'Include access permission bits and load into Map Ram. 
ALUI-l] DESTtmP-TAGl LONG POPJ * 

;Set MAP-TAG to be always valid (no compare !) 
];[ 

DIPC-FLAGSl R0TI8.1 MASKCl] CONDI-ZERO] POPJ C550 MAPFI2] * 

: LEAVE IF CALL FM tBN 
DIMAl DESTIALUl Q] $ 

;Get address of AC. we need to mung it 
;»«« 770000 ought to be defined symbolicly 

DILIT 770000] ALUIALUl DORQ] DESTtMA] TNRM * 

:Add page number of window 

."Use 770XXX for window into user ACs 
DIAMEM-ABS MAP-AGE/ACB] R0T!3. ] HflSKt36. - 13.] OESTtQ] S 

;Get phys. page no. of user page 0. 

:If for some perverse reason, there is no user page 0. 

;we will reference exec AG's shadow, which is presumably 

; harm less 
DtCONST 3) RQTt24.] ALUtDORQ] DESTtHflP-Hfl] LONG S 

.■Include access permission bits and load into Map Ram. 
ALUI-1] DESTIMAP-TAG) LONG POPJ $ 

;Set MAP-TAG to be always valid (no compare !) 
]. repeat WAITS 
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22 1B3S 
22 1B3S 
22 1B37 
22 1838 
22 1839 
22 18+0 
22 1841 
22 1842 
22 1S13 
22 1844 
22 1845 
22 1845 
22 1847 
22 1848 
22 1849 
22 1850 
22 1B51 
22 1852 
22 1853 
22 1854 
22 1855 
22 185G 
22 1857 
22 1858 
22 1853 
22 18G0 
22 1861 
22 1862 
22 1863 
22 1864 
22 1865 
22 1866 
22 1867 
22 1868 
22 1963 
22 ia7« 
22 1871 
22 1872 
22 1873 
22 1874 
22 187S 
22 1876 
22 1877 
22 1878 
22 1879 
22 1880 
22 1881 
22 1882 
22 1882 
22 1883 
22 1894 
1885 
1886 
1887 

laaa 

22 1^9 
22 1890 
22 1831 



11440 01073000200023012220562025761456000 

11441 91066100200023013400762025561456000 

11442 31066130280093861486562825551455000 

11443 01073100600023013076162025751456000 

11444 01073100400023053036162225761456000 
U445 01033117000006055416150345435216000 

1144E 01073137040006055416162365475516000 
11447 71050303003700001400362225561456000 

11450 81873117000023053416162225435456000 

11451 010731310000226654161S612S430456000 



11452 01073017000006055416162365775416000 

11453 610731170008050S541614436S67S41S000 

11454 71151217003706055480362365575416000 

11455 01064100000023053401162225561456000 
114ES 019331 1700000605S41S15034543S215000 



22 
22 
22 
22 



11457 8187311780000G05541E1E23G5475516000 

11460 71078117004606055404562365775416000 

11461 01064180000023053480362225561456800 
114E2 81858183803780001400362225561456000 
11463 01073131000022665416156125470556000 



: STACK GRtXJP 

XCTSTKi DtlR] R0T[9. ] nASICI2] DEST[Q) CONDIZERO] JUTPtXCTEZE] CS50 $ 
;GET 2 LDH ORDER BIT5 OF OP COC€. JUMP IF PUSHJ 

0[Ct»BT 31 ALUCDoQ] CONDIZERO] JUMP [ XCTE2E ) C550 * 
sJUMP IF POPJ 

DtCONST 2] ftLUIDsQ] a3Cl2ES21 JUTSTXPCPl! C558 S 
;JU«= IF POP 

;Special case for PUSH. Check for AC reference fro» stack pointer 

XPUSHl: DEIR! R0TI35.] CONDISIGNOFFl JUTP [ XCTE2E ] CS50 * 

;If not mapping stack references- it's sinple 

DIIRl R0TI33.] CDM3ISIGN0N) PUSHJUFIXMAl CS50S 

;Make sure we're referring to the right place here. 

DFRO ALUtrtmCl DESTIHOLD] TNRtl $ 

;LOAO fEM BUS WITH EIThCR CONTENTS OF AC IF nA<20 

;0R MEM VIA FETCH (HOUR HACK MAKES RIGHT THING HAPPEN) 

:Check page faults for effective adei-csE part. 

RE-XCT DtMEM] DESTtflR] TNRM $ 

rZopy auay the thing that ue uant to push 

DIl,.ll ftLU[D+AC] DESTtAC MAI COM3CCRY0] PUSHJCPOLOl C550 $ 
;advance frame pointer and set pc flag if necessary 

PUSHJIXFIXMA] TNRfl t 

;Map destination. 

DtARl SMAC t IFRQ DESTIMEMSTO flRl CONDIMA<201 LBJUMPISEOI] It 
;Finish instruction. Ue're done 



;Special case for POP. Check for AC reference from stack pointer 

XPOPl: DilRJ DESTIQl TM?M % 

;Savc bit Hjcaning 'source from user' IN Q 
OrMA] CESTtlR-ADR] TNRM $ 

;RestDre normal effective address 
ACSELIAC! Dtl..ll ALUtACHJl DESTIMA 0-ACl TM?M $ 

;Update AC and MA for stack reference 
DtCONST 41 ALUED&Ql C0NDI-2ER01 PUSHJCXFIXMAl CS50 t 

;Fixup stack addressing if user AC 
DFRQ flLUIMEMAC] DEST[Ha_Dl TNRM S 

;LOA0 MEM BUS WITH EITHER CONTENTS OF AC IF MA<20 

;DR MEM VIA FETCH (HOUR HACK MAKES RIGHT THING HAPPEN) 
D[rtMl TNRM $ 

.'Cause Map Trap to happen here, before we change MA... 
CLR-MAP-SR DtlRl MflSKIia. ] DESTLHA] TNRM % 

;Reset previous special user mode- recover effective 
address. 

DICONST 1! ALUtOeOl CS50 C0NDI-2ER01 PUSHJCXFIXMAl $ 

;Fix store address if the XCTP specified it... 
D[l,,ll flLU[D+ftCl CONDICRYei PUSHJIPOLDl C550 $ 

;Set PC flag if pointer underflowed. 
DIMEMl SMAC [ IFRQ DEST[MEMSTO ARl CONO[MA<201 LBJUMPISEOIl 1$ 

;l*-ite out thing we POP'ped 
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23 1892 

23 1B93 

23 1394 

Z3 183S 

23 1B9E 

23 1B97 

23 1898 

23 1899 

23 isee 

23 1981 

23 1902 

23 1903 

23 1904 

23 190S 

23 1906 

23 1907 

23 1908 

23 1909 

23 1910 

23 1911 

23 1912 

23 1913 

23 1914 

23 191S 

23 1915 

23 1917 

23 1918 

23 1919 

23 1320 

23 1921 

23 1922 

23 1923 

23 1924 

23 1925 

23 1926 

23 192? 

23 1928 

23 1929 

23 1930 

23 1331 

23 1932 

'3 1933 

23 1934 

23 1935 

23 1936 

23 1937 

23 1938 

23 1939 

23 1940 

23 1941 

23 1942 

23 1943 

23 1944 

23 1945 

23 1946 

23 1947 

23 1947 

23 1948 

Z3 1949 

23 1350 

23 1951 

23 1952 

23 1953 

23 1K4 

23 19SS 

23 1956 

23 1357 

23 1958 

23 1959 

23 I960 

23 1961 

23 1962 

23 1963 

23 1964 

23 1965 

23 1966 

23 1967 

23 1968 

23 1969 



114G4 01073100400023053036162225761456000 
11465 01033117000006055416150345431216008 
11465 01073100400000008216162025761455800 
11467 01073023500000001416162025475556000 

11470 01073131000000000301562025421456000 

11471 01073117000010577416162225435456000 

11472 01073117000000001416162225435456000 

11473 71073037000009001416162025475556000 

11474 91073117000010613416150225675456000 

11475 01073117000000001416162225435456000 

11476 01073117000000001416162025435456000 



11477 01073037000006055416162365475516000 

11500 010731 170000060S540001«36557541700e 

11501 01073117000006054301450365431417000 

11502 71073117000006055404582365435416000 

11503 01073100200000000441^2025461556000 

11504 01073100200000000441162025421456000 

11505 71073117000006054441162365435416000 

11506 01050137008006055404562341435416000 

1150? 0106401?0000060S44445S23647K4l600e 

11510 71063037000006055404562365435416008 

11511 01073100600000000336162025421456000 

11512 01073100400023053056152225761456000 

11513 03073117000006055400040365575217000 

11514 01073137000006054303162365435416000 

11515 01073017000006054616162365435416000 
11515 71063037000006055405762365475516000 
11517 01073100000023210441362025451556000 

11520 01073100400023053076152225771456000 

11521 01073100600010512175152025761456000 

11522 01073117000010563416162025435456080 



;ByTE GRC5JP 

XCTBYT: DtlRl R0TC33. 1 CONDCSIGNON] PUSHJIXFIXnfl] C550 $ 

sPushj if 8. P. fetch is fro* previous context. 

on?Q flLucrEmci deskhqld] * 

;Fetch BPf allowins for possiblity it is in an 1^. 

d:ir; rctls.) condcsigngs) jumpexbymqii C550 t 

;JuBp if instr. does not rncr. 8P. 
R-M-H DtMEn] DESTtlW Q] COCEHflLF] Jl*P[XBY2ND] TNRH S 

;Rn4 trap possible. 

;GET SP, JUnP IF INCED IT flLREflOY 
DIPRI R0T[12.] t1ASK[6] 0E5T[r«] CIWD[m<20] JUTPCXBYKMl C550 $ 

;JuRip if deal ins with flC» put 5 in ^ right Justified. 
PUSHJ[IBPX1 TNRtI $ 

.•INC BP NOT IN flC 
PUSHJISET-HM-F] TNRH $ 

;SET HALF SO DCW'T BLW BP ftGflIN IF TRflP LATER 
DEftn) DEST[fW Q ml JUnPCXBY2M)) TNRtI S 

■.fEn.ts.m I BP 

;Here to inc BP in AC. 
XBYUOA: 

DtMAl OESTiHOLDl PUSHJIIBPXA] TNRtI S 

;INC BP IN AC CIBPXA needs eff. ad*, in ttti) 
PUSHJC SET-HALF 1 TNRtI t 

;SET HALF SO DCN'T BUfP 8P AGAIN IF TRAP LATER 
JUtPCXSYZNDl TM?t1 $ 

;AC,fEn,AR,l1A / 8P 

;HERE IF NO NEED TO INC BP 
;ttM/ BP 

XBYNOI: Orrttll DESTCAR Q] TNRtI $ 

;REflO TRAP PCBSIBLE 

jKT ap 
XBY2N0: SET-TEMP-EXEC I DtCONST 001 DESTttlflP-tJSER-SRl ITMW $ 

; FORCE EXEC SPACE 
D!AR3 R0Ttl2.] IWSKtSl DESTtllASKRl S 
DIARl tIASKElS.l DESTIfWl TNRtI $ 

;GET Y OF BP IN HA 
D[t1Et1] ROTilB.l tIASKISl CCSffilZEROl JUtfLXSYEFFl C550 S 

;JLrP IF BP HAS NO IDX OR INDR 
XBYNDX: D[AR] R0T[18.1 f1ASKI41 C0M)[2ER0I JLTPEXBYINDl C550 * 

;JUt1P IF NO IX FLO 

SLOAD AC-CNT WITH INDEX REG » 
D[ARj R0T[18.1 MftSK[41 DESTIflAl TNRtI $ 

;LOAD MA WITH AC ADR FDR AC SELECT FOR D+AC 

;»; CAUSE tIA GETS LPOATED LATER 
DtARl tlflSKtlB.l ACSEL[t1A,AC] ALUID+ACl DESTCARl TNRtI $ 

;SELECT AC A INPUT VIA tlA 

;ADO INDEX REG CONTENTS TO Y IN Afi 
DlHASK 18.1 RDTllS.l ALUiD&Ol DESIiOl TNRtI % 

;KEEP LEFT HflLF OF BP IN Q 
DIARI MftSKdB. 1 ALU[D0RQ1 DESTCQ AR MAI TNRtI $ 

;F0Rt1 NEW BP WITH INDEXING DONE IN Y (IGNORE INDEX FIELD 
NOU) 
XBYIND: D[flRI R0T(13.1 CONDtSIGNOFFl JUH>[X8YEFF) C5S0 $ 

;jijnp IF NO INDR 
D[IR3 R0TI34.3 CONOrsiGNONl PUSHJtXFIXfIA] CS50 $ 

;PUSHJ IF BP AOR CALC IS USER 
Cr/WT SET-TEMP-EXEC [ DtCOKET 081 DESTIflAP-USER-SRl ITtWI S 

-■FETCH INDIRECT WORD AND UNDO SET-TEHP-USER IN FIXrW 
D[ARj R0T(12.] mSKa2.1 DEST[AR1 TNRtI $ 

;GET P AND S FILEDS IN RH AR 
D[AR1 RaT[24.] DESTtQl TNRtI » 

;POSITION THEM IN Q 
DtflEMl MASK(23.I ALUEDORQl DEST[0 AR MAI TNRM $ 

:FORn NEW BP USING OLD S AND P AND NEW IND.NOX AND Y 
DtMEMl ROTtie. 1 HASKtSl CONDI-ZERO] JUf1P(XBYNDXl C550 $ 

;JUt1P IF MORE INDEX OR INDIRECTION NECESSARY 
XBYEFF: DCIRl R0T[3S. 1 COND[SIGNON] PUSHJ[XFIXHA] » 

;MAKE MA OK 
D[IR1 R0T[7.1 CONDCSIGNOFFl JUf*'[ILDB51 CS50 $ 

;DI5TINGuISH LOADS FROM DEPCSITS. JUMP IF LuhC 
JUMPtlDPBSl TNRM $ 

;JUf1P IF DEPOSIT 
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24 1370 
24 1971 
24 1972 
24 1973 
24 1974 
24 1975 
24.1976 
24.197S 
2481975 
24 1976 
24 1977 
24 1978 
24 1979 
24 1980 
24 1981 
24 1982 
24 1983 
24 1984 
24 1985 
24 13BG 
24 1987 
24 1988 
24 1989 
24 1990 
24 1991 
24 1992 
24 1993 
Z4.1994 
24.1994 
24«1334 
24a 1994 
24i>1994 
24B.1994 
24inl994 
24n.l994 
Z4 1994 
24 1995 
24 1996 
24 1997 
24 1998 
24 1339 
24 2000 
24 2001 
24 2002 
24 2003 
24 2004 
24 2005 
24 280G 
24 2007 
24 2066 
24 2009 
241^010 
24a2ei8 
24 2010 
24 2011 
24 2012 
24 2013 
24 2014 
24 2@1S 
24 2015 
24 2017 
24 2018 
24 2019 
24 2029 
24 2021 
24 2022 
24 2823 
24 2024 
24012025 
24ni2025 
24m202S 
24 2025 
24 2026 
24 2027 
24 2328 
24 2823 
24 2830 
24 2031 
24 2832 
24 2033 
24 2034 
24 2835 
24 2036 
24 2037 
24 2038 
24 2839 
24 2040 
24 2041 
24 2842 
24 2043 
24 2044 
24 2045 
24 2846 
24 2047 
24 2048 
24 2849 
24 2050 
24 2051 
24.2852 
Z4ii2052 
24.12852 
24m20S2 
24oi2852 
24m2052 
24in20S2 
24.2052 
24.2852 
24.2052 
24.2852 
24.2052 



11523 01073000200023012220562025751456000 

11524 81066100000023013400362025561456088 



11525 01873237000000081484562225675456000 
11S2B 81873117880022353416162825435455000 
11527 01873237000021237416162225435456880 
11538 01873117800823261415162825431456000 

11531 81873117888006855400848365575417000 

11532 71073117880086854444562365435416880 

11533 010731004000230530361S222S761456000 

11534 01833117800006855416150345435215000 



11535 01073117058005055416158365475516880 

11536 71073117808886055484562365435416000 

11537 81873117088806055480040355575417800 
11540 81873108480023053876152225761456000 



11541 0103301100000800141E15202S421456000 



11542 01873117800800001416156025475556000 



11543 01873317808886055415162345475516808 



11544 81162188650880801484552025411556000 



11545 10738 1 700370E0SS4003S23555754 1 6888 

11546 81858130600823263416162025421456000 



11547 0187331700000605541G162365435416000 
11550 61072117000022711415145025531456000 



sGSaP WITH BLT IN IT 

.repeat Maitsfix [ iPart of GRUNT avoidance 

.000 
];[ ;Part of GRUNT avoidance 
.000 
[:. + 1 - C. \ 2) 
1]. repeat Maitsfix 
XCTBLG: D[IR1 R0T[9.I (1flSKt2] DEST[Q] C0ND[ZER01 JUflPtXCTEZE) C550 $ 
;GET 2 LO BITS GF OPOBE, JUTf IF EXCH 
DECONST n fILUIDiWJl C0ND[-ZER01 JLTPCXCTEZE) C550 $ 
;JUMP IF NOT BLT 
XCTBLT: 
.repeat 1 - Maitsfix [ 

Dim] MfiSKllB. 1 OeSTIO-flC ARl TNRH « 
;EN0-M3R IN AC. PC IN AR 
3;. repeat 1 - Maitsfix 
.repeat waitsfix [ ;GRUNT avoidance 

0[l1fll mSK[lB. 1 D£5T[0-«: flR] TM?ri PUSHJ[XBLTLP1 * 
;END-flOR IN flC. AC IN f« 
TNRH JUnPIECC -PROCEED] $ 

;Nothin9 special for EEC errors 
TNRM DEAR] 0EST[D-AC AR] PUSHJ I MfP-RET ] % 

:Unscra.ble resisters 
JUnP[.] $ 
];[ ;GRUNT avoidance 

DtHA] MASK[18.^_DEST[0-«; ARl TM?t1 PUSHJ [ XBLTLP ] » 
;t!©-HUK m AL. AC IN HR 
TfRM JLII1P[ECC-PR0CEED] $ 

;NQthing special for ECC errors 
TNRH D[AR] DESTIO-AC AR] PUSHJ [ MAP-RET ] $ 

;Unscranible registers 
JUrP[.] S 
1. repeat Maitsfix 

XBLTLP: SET-TEMP-EXtC [ D[ CONST 883 DESTtMAP-USER-SR] 3 TNRM $ 
;LISE EXEC FOR FETCH TIL TXD BETTER 
DtAR) RDT[18.] tlflSKClB.] DESTIMA] TNRM » 

;GET READY FOR DATA WORD 
DCIR] ROT[33.] CDNDtSIGNON] PUSHjrXFIXflft) CS50 « 

;FIX IF USER fiDORS 
DFRQ ALUIMEmC] DEST[HOLD] TM?M $ 

.-LOAD MEM BUS WITH EITHER CONTENTS OF AC IF f1A<28 
;0R MEM yiA FETCH CHOI* HACK MAKES RIGHT THING HAPPEN) 
.repeat 1 - wattsfix [ 

D[MEM] DEST[HOLD] TNRM $ 
];. repeat 1 - Maitsfix 
-repeat Maitsfix [ 

TRP-CTL( TRAP-FIX RE-XCT] DtMEH] DESTIHOLD] TNRM S 
];[ 

TRP-CTLl TRAP-FIX KE-XCTl DiPEM] uESTlHuLDj TNRFi $ 
]. repeat Maitsfix 

;GET DATA WORD. POSSIBLE FETCH TRAP HERE. 
D[AR] MftSKtia.l DESTCMA] TNRM S 

;GET DEST ADR IN HA 
5ET-TEMP-EXEC t 01 CONST 883 DEST 3 HAP-USER-SR 3 3 TNRM * 

>ubc. cAcu ruK 3iuKt iiL iuLlp ^IILK 
0[IR3 ROT[35.3 CDNDtSIGN0N3 PUSHJ3XFIXMA3 C558 % 
;FIX HA IF NECESSARY 
•repeat 1 - Maitsfix [ 

D[l.,13 DEST3Q] C0f«)[HA<291 JUHPIXBLTSAl C550 % 
;PUT 1..1 IN Q. JUMP IF STORE INTO AC 
];. repeat 1 - Maitsfix 
•repeat Maitsfix [ 

ALUtAC3 DEST!Q3 COtCltMA<283 JUMPtXBLTSA3 C550 $ 
jSctup address for end-comparison 
3;[ 

ALUIAC] DEST[Q3 COND[HA<20] JUMP3XBLTSA] C550 $ 
;Setup address for end-comparison 
]. repeat Maitsfix 

DtMEH] DEST3MEHST0] JUHPtXBLTLl] TNRM $ 

;WRITE DATA WORD VIA (FIXED) MA TO MEM DESTINATION 

XBLTSfi: DIHEM3 ACSEL[MA3 DEST[AC3 TNRH $ 

;Storc into real AC 
.repeat 1 - Maitsfix [ 

XBLTLl: D3AR3 MASK[18.3 ALU[D-AC3 C0ND[SIGNaFF3 JUnP[XBLTDN3 C600 S 
;JUnP IF DONE 
;P0SSIBLE WRITE TRAP HERE 
D3AR] ALU3D+0] DEST3AR] JUnP[XH.TLP) TNRM $ 

.-UPDATE FROH,,TO IN AR AND LOOP TIL DONE 
.-NOTE: NON-INTERRUPTABLE IF NO TEST FOR INT HERE!! 
3 Jrepeat 1 - waitsfix 
-repeat Maitsfix [ 

XBLTLl: TRP-CTL3 TRAP-FIX RE-XCT3 D[f«3 MASKtlB-l ALU(D-03 
C0NO3SIGNQFF3 JUHPIXBLTDN3 C600 $ 
;Juaip if done 
.-possible Write Trap here 
D!l,.13 DESTIQ3 TNRH $ 

D[Afi3 ftLU!D+Q3 DEST[flR3 CESe CONDt-INTRPT] JUMP[XBLTLP3 S 
;UPDATE FROM,. TO IN flR AND LOOP TIL DONE 
;NOTE: NON-INTERRUPTABLE IF NO TEST FOR INT HERE!! 
D[AR3 DEST[AC3 TNRM S 

;Restore AC, which is ready for next fetch 
D[PC3 ALUiO-1] DESTiPC] JUMPiMAIN3 S 
;Go process interrupt 



3;t 
XBLTLl: 



TRP-CTLtTRAP-FIX RE-XCT3 D[Afi3 MASK! IB- 3 W.UCD-Q3 
CON035IGNQFF3 JUnPlXBLTDN3 C608 $ 

:Jui3p if done 

;possib3e Write Trap here 
DI1,,1j DESTIQ3 TNRH S 
DIAfi) ALU3D+Q3 DEST[flR3 CS8e COfCI-INTRPT] JUMPtXBLTLP3 * 

;UPOATE FROM,, TO IN AR AND LOOP TIL DONE 

;NOTE: NON-INTERRUPTABLE IF NO TEST FOR INT HERE!! 
DEAR] DESTIAC3 TNRM » 

:Pestors f*C: Hhich is rssdy for next fetch 
DEPC3 ALUED-13 DEST(PC3 JUW[HAIN3't 
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24r.2aS? - use [ NORtlflL ! 

24m2057 i xiist 

24 2058 list J 

24 2059 

24 2060 

24 2061 



SLOE March 23, 1384 21:07:16 f i le 0SK:F4INST.SL0 



of 



F41NNF 



25 2062 
25 2063 
25 2064 
25«2e65 
25 2065 
25 2066 
25 2067 
25 2068 
25 2063 
25 2070 
2Siii2071 
25«2071 
25ni2071 
25m2072 
25m2072 
25 2073 
25 2074 
25 2075 
25 2075 
25 2076 
25 2077 
25 2078 
25 2078 
25 2078 
250)2080 
25mZ080 
25 2081 
25 2081 
25 2082 
25 2062 
25 2083 
25 2084 
25 2085 
2Sn20e6 
25 2086 
25 2087 
25 2088 
25 2083 
2Sn2030 
25n2090 
25iii2030 

25O20S1 
25 2032 
25 2033 
25 2094 
25 2035 
25 2036 
25 2097 
25 2098 
25 2099 
25 2180 
25 2101 
251112102 
Z5>i210Z 
25 2103 
2S 2104 
25 2105 
25 2106 
25 2107 
25 2108 
2Sn2109 
25 2103 
25 2110 
25 2111 
25 2112 
25a2n3 
25a2113 
25n2113 
25 2114 
25 2114 
25 2115 
25 2115 
25 211S 
25 2116 
25 2117 
25 2118 
25 2118 
25 2113 
25 2120 
2S>2121 
25 2121 
25 2122 
25 2123 
25 2124 
25ib212S 
25i»2125 
25B2125 
251.2126 
251.2126 
25 2127 
25 2129 
25.12129 
25«2129 
25 2130 
25 2131 
25 2131 
25 2132 
25 2132 
25 2133 
25 2133 
25 2134 
25 2135 
25 2135 
25 2136 
25 2136 
25 2137 
25 2137 

25 2139 



:ii Stack instruct ions 

.opc(3cte;2S13 [xlist 
list ) 



jPUSH 



06542 71050303203700001400362125571256000 

06543 01033137000800601416150005431456000 



05274 01073117000000001416162225431456000 

05275 01073131020022565416156125470556000 



05276 71050312003700001400364125570456000 



05300 54050103000007155414162324725416000 



05301 01073317000012601416152005431476000 



05544 71151223003700001480362123571455000 
06545 71151223003700001480362125571456800 



05302 01073117000000001416162225431456000 

05303 71073111000000001484562225771256000 



05304 01073117030822S6541S15502S470S56000 

05305 71073117000006055416162365437416800 



05306 01033117000006055416150345431416800 

05307 71073117000006055404562425771416000 



05310 01073117000000001416152225431456000 

05311 71073111000012613404552225771256000 



05312 54073317030086055416162305460536000 



06540 01073017000000001404545025631456000 

06541 01073117000022433416152025431456000 



05313 01063137000006055414150364631215800 



05314 71050312003712601400364125571456000 



05546 71033012200000001416162125431455000 
06547 71033012200000001416152125431456000 



05316 71833117000000001416162005431456000 



05317 11050103000600001414152224721256000 



05320 01073817002000001416152154531456000 



DFRO DI1..1) ALUtflC+O] DESTIflC (Ifl) -CRY0 LBJUWCPUSHll $ 

; Read data, kick ptr, test for overfloM 
flLUEHErSfiCl DESTtfR HOLD] KKtl JUnPtPUSH21 t 

; Hove data to PR and HOLD so it can be stored, 
-reloc 
[.USEENDRflflL] 
[ xlist 

1 i St ] 3 . pa i r 

[:. \ 2 + . 

iPusHi: mm pusHjcpoLO] $ 

; POL overflou - set bit in PC-FLfG5 
D[DF-Fi?On-IR nEni SneC t IFRQ DeSKMEMSTO PR} a3ND[nfi<20I 

LBJunp[SEon i« 

; store data on stack and exit 
PUSH2: IFRQ Dtl.,1] fiLUIftC+D] DESTCfC rW] STRT-WRT Eft<20 LBJUHPtPUSHSl t 
;Push of an ftC. Kick ptr, test for pdl in fiCs 



.pair 
t:. \ 2 + 

]PUSH3: 
EOI $ 



DtMASK 60] flLUID+ACl COND-ffiORT a»CICRY01 fOKT-flDR-ie 
;Abort to trap location 10 if ft00:17 • 0; this gets us to 



POL-TRP. 



DEAR] DESTEMEHftC] NORfl JUrPtPUSH31 $ 

;Herc if the PDL is in the PC's! store data on PX. 

.opcodet262] [xlist 

list 1 ;POP 

D[l,,i3 fiLULftC-DJ DESTIG-fC rtfi fR] COK)!CRY03 LSJuTPiPOPl! S 
DCl.,1] ftLU[flC-0] DESTIO-AC MA AR] CONDICRY01 LBJUnP[P0P21 « 
; Decrement ptr. put OLD value into HA 
.reloc 
[.USE [NORMAL] 
[ xlist 

1 i St J ] . pa i r 

[:. \ 2 + . 

]P0P1: PUSHJ(POL0] t ; Set PDL ovflow 

DFRO D[IR] «flSK[lB. ] DEST[(1A] (1A<20 PUSHJ[P0P31 t 

Get back original flA froo IR, check for pdl in ACs. 
NOTE: The only other instruction that currently 
uses DF-FROn-AR is the revised BLT (see 
IFRQ DIDF-FROn-AR HEtl] OEST[MEnSTO] JLIMP[5E0I] $ 
PaP3: DtAR] OESTIMAl SHORT $ 

;Stack ptr points into ACs. 

aluimeuac] destchold) norm * 

DEIR] MASKEIB.] DESTEtlAl NORM PCPJ $ 
.pair 
[!. \ 2 t . 

1P0P2: PUSHJEPDLO] $ 

DFRQ DEIR] MASKE18.) DESTIMA] nA<20 PUSHJEP0P3] $ 

; tjet back original MA froB IR, check for pdl in ACs. 
DEDF-FROn-AR MEnl DESTEHEMAC] ^EOI $ 



.opcode[2S0] [xlist 
list 1 ;PUSHJ 

D[PC] f1ASK[18. ) OeST[Q] LD-PC Jltf[PUSHJl] S 

;Put old PC in a, load PC fro- MA. 
JLjnP[JMPAC] $ 
.reloc 

[.USE [NORMAL] 
[ xlist 

list 1 IPUSHJl: DFRO DIPC-FLAGS] 

HftSK[LEFT] ALUEDORQ) DESTEHOLD ARl % 

;Fetch tarset instr.. put PC and flass into HXD »id AR. for 
stor ing. 

0[l,.ll ALUEAC+D) DEST[AC MA] STRT-WT COND[EA<20] LBJ[JMPtPUSH3) 
$ 

;Increinent pointer, start store, test for POL in the AC's. 
;The EOI at PU5H3 dispatches to the target instr! hc loaded PC 



.opcodeE2E31 [xlist 
list 1 ;POPJ 

ALUEAC] DEST[Q MA] T300 -EA<28 LBJUMPIPOPJl] « 
ALU[AC1 DEST[a MA] T380 -EA<28 LBJljrP[POPJl] » 

fCet loc. of top of stack, check for stack in AC's. 
.reioc 
[.USE [NORMAL] 
[ xlist 

1 i St ] ] . pa i r 

[:. \ 2 ♦ . 

IPOPJl: ALUEHEMACl DESTEHA) JUrP[P0PJ31 $ 

;Stack is in i^s... get rGi-jrr, addr. off stack into fVi, 
.odd 
[:. + 1 - (. \ 2) 
1 
P0PJ8: DFRQ Mfi-FROM-MEM D[MASK 68] ALUEO+Ol C550 CONDECRY01 
PUSHJEP0PJ2] * 

:Get return adr into MA, test iJiether pdl ptr Mill underflow. 
If 

; not, do PUSHJ to provide trap fix-up a* for MAPTRP t ECCTRP. 

POPJTR: SUPPRESS-FETCH-TRAPS DLpC-rLA[;S! DE5T[Qj LBJUMPLCEPOPJDU] $ 

;Ue get here either froa previous uinst Cif PDLE3V), in which 

case 

; Last Cond is FALSE, or from an ECC Trap, in which case L.C. is 

TRUE. 

;In case of both POL[]U and ECC error, suppress the ECC trap for 

now. 



;MAPTRP will POPJLB to here. Give it a good MA i an ack" to 
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25 Z144 




25 2H5 




25 2HS 


8532+ 


25 2M7 




2S 21+7 




25ffl21+B 




25«21+B 




25 21+9 


85326 


25 21+9 




25 2150 




25 2151 


85327 


25 2152 




25 2153 


05330 


25 215+ 




25 215+ 




25 2155 




25 2155 




25 2157 




25 2158 


05331 


25 2159 




25 2159 




25 2156 




25 21G1 


05332 


25 21SZ 




25 21E3 




25 21S+ 


05333 


25 2165 




25 21B6 




25 21B7 




ZS 2158 


0S33+ 


25 21B9 


05335 


25 2169 




25 2178 




25 2171 


85336 


25 2172 




25 Z173 





5S1513nZ1372?E5S+903+S32S5S!31S0e0 



01063017000012636B+0Z+Z025571+5700e 

710331170080ZZ355+161B2225+31+568ee 
71073117000012651+151620ZS+71556000 



0107301700000G055+1S1623G+611+1B000 

0106311700000605+6+02+2+25551+17000 
610721 1700+10S055+161+636S631+1B000 



ei0i'30l.^00eBBeb+lblS2db('031+lb0e8 

818631 1700000000++003S+36S571+1600e 



106+ 1 370000Z03+3+0076Z02+731 +56000 



;Herc to check far underflow Mhen stack is in AG's. 
P0PJ2S TRP-CTLiTRflP-FIX] D!l..l) flLUCflC-Dl OESTtftC LD-PCI 
aMl[-inA<281 (fflCRT-fiOR-06 JOSP-SPECIftL-fSCRT $ 

iTrsp to 96 if juaiping into fiC's. else dispatch to 
target, 
.pair 
t:. \ 2 + . 

!POPJOV: OtCQNST 1! R0Tt35. - 9.1 ALUtDOROl DESTtF»C-FLflGS 0] 

jufiptpopje! * 

;Thc ptr is 90103 to underflow, so set the PDLDV flag. 
POPJEC: flLUCflC] DESTtml NORtI PUSHJ [ ECC-RET ) S 

;ECC traps wind up here. Give thea a good hA. 
DCtEMl DESTCMfll JUt1P[PCPJ21 » 
;Ue return here after the ECC Trap is finished getting good 
data. 



; Subr to set overflow bit 

PDLQ: DCPC-FLAGS] DESTCQl CE00 » 

;Set bit 9 in flags. This will cause a PC*-TRfP after next 
dispatch, 

; u^ich will get us to POVTRP (below). 
DCCOKBT 11 R0TI3S. - 9.] flLUIDORQ] DEST[ PC-FLAGS 1 CG00 POPJ $ 



PDL-TRftP:CLR-PC-iRAP-FLfiGS D[PC1 «.U[D-11 DESTtPC] NORM t 

.-Here fro» PCTRAP when bit 9 of PC flags is on at EDI. or 
,- fro« an IDISP aborted due to PDLOU (ABORT-ADR-18) . 
^riake PC point to instr. following the one that set bit 9. 

DiHMEri-HSS i¥i<-3THTUSJ DtsTiuJ iiERn $ 

D[CDNST 11 R0T(3S. - 19.1 ALUtDorQl DEST [ flftn-ABS APR-STATUS) 
KKn * 

.-Set the POL OV flag in the CONI APR, status. 

DtMASK 31 fiLUtD8.Ql DESTIARI NORtI JUMPIPIGENI t 
;Go request a PI on the APR channel. 
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2B 2174 




2Gm217S 




2S 2175 




2S 217S 


8S558 


2G 2177 




26 2178 


06551 


2G 2179 




2Gni218e 




2S.213e 




2&»218e 




25 2181 


05337 


2B 2181 




26 2182 




26 2183 


05340 


25 2184 


05341 


25 2185 




26m2186 




25 2186 




25 2187 


06552 


26 2188 


06553 


25ni2189 




2Gm2189 




2Gi»21B9 




25 2190 


05342 


26 2190 




26 2191 




26 2192 




25 2193 




2Sn2194 




26 2194 




26 2195 


06554 


26 219G 




26 2197 


06555 


26 2198 




26iii2199 




2Sia2199 




26ni2199 




26 2200 


05343 


26 2200 




26 2201 




26 2202 


05344 


2S 22S3 




26 2204 


05345 


26 2205 




28ir>2206 




26 2206 




25 2207 


06555 


26 2208 0G557 


26 2209 




2Gm2210 




26m2210 




25m22ie 




25 2211 


953Tb 


26 2211 




2Sin2212 




251.2212 




26 2213 


05350 


26 2214 


05351 


26 2215 


05352 


ZS Z215 


95353 


26 2217 





8 1 8738 1 7888080081 4 1 4 1 S2024S3 1 456800 
01073117000822433416152025431455000 



010E31170000060SS40455S365G31416000 



71170117004306055415146365671415800 
550731 170000277S541S1G2 325421216000 



1 0730 1 700000000 1 40456202563 1 456000 
01073117000022433416162025431456000 



550533 1 70043277554 1 4 16232452 12 1 5000 



1 07321 700000000 1 40455602563 1 455000 
01073117000022433415152025431456000 

01053317000006054454162365671416000 

7117011 70000060554 1 5 1 523556774 1 5000 
55073117000027755416162325421216000 



0103313700000000141S15202S431455000 
0107311700002243341G1520Z5431456000 



71073112000000000444562125431456000 



038733 1 70000 1 27254 1 5 1 5202547 1 356000 
01043317000006055416162341431416000 
7107311700000G0554045G2365771416000 
550731!7000e27755415152325421215a80 



.opcode[2G4j ixlisi 

PC-FLSGS) PSSCtLEFT) DESTIQI NORT! JUrS»[JSRl 
Save the PC and reload it with (HA)+1. 
JUrlP[JMPACl S 

•reloc 

[ xlist 

list 1 IJSRl: 

ftUtDDRO] DESTtMEnSTO] NORM S 
;Store PC with flaas 
CLR-HfiLF DtMft] flLUtD+l] DESKMl^ PC) NORM t 
JOSP i 

.opcode[255J txlist 
list J 

0(PC1 MftSK[18.1 DEST[Q] NORM JUMP[JSR1» $ 
JL)MP[JMPl«] $ 
.reloc 
[.USECNORMflL] 
t xlist 

list 1 IJSPl: 

MASK [LEFT] flLUIDORQl DESTtACl CLR-HflLF TRUE JDSP » 



:JSR 



DtPC) MflSKIlB.l 



;JSP 



D[PC-FLflGSl 



.opcode[26Gl [xlist 
list ] ;JSfl 

DtPC] mask: 18.! DESTtO-fiC MEttSTO] NORM JLinP[JSfill * 

;Be9in store of (C, place PC in flC 
JUMPCJMPACI S 

-reloc 
[.USE [NORMAL! 
[ xlist 

list 1 IJSfll: D(Mfll R0T[18.1 

nflSK[LEFTj ALU[DCRAC! DEST[flCl S 

;Place pointer in left half of AC, coinplete store of old AC. 
D[MA! ALU(D+1! DEST[MA! SHORT S 

.kl ! .^.~U t^ C'j.l _ 

JOSP s 



.opcode[2671 [xlist 
list 1 

ALU[ftCl DEST[lW) NORM JUrP[JRAl! $ 
JUMPIJHPAC! S 

.reloc 
[.USE [NORMAL! 
[ xlist 

list ! IJRftl: 

nASK[18.! DEST[MA! NORM EA<20 LBJUnP[JRfi2! * 

.even 
[:. \ 2 + . 

!JRA2: DF/WT D[MEM! [)EST[AC! JUMP[. + 21 » 

ACSEL[MA.AC] ALU[A1 DEST[B1 NORM $ 
DdRl HASKdB.! (DEST[nA) NORTI * 
JI>SP S 



:JRA 



D[AR! R0T(18.! 
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27 221B 
27m221S 
27iii2219 
27 2220 
27 2220 
27 2221 
27 2222 
27 2223 
27 222+ 
27 2225 
27 2226 
27 2227 
27 2227 
27 2228 
27 2229 
27 2230 
27 2231 
27 2231 
27 2232 
27 2232 
27 2233 
27ni223+ 
27i»223+ 
27 2235 
27 2235 
27 223S 
27 2237 
27 2238 
27 2239 
Z7 22w 
27 2241 
27 224Z 
27 2242 
27 2243 
27 2244 
27 2245 
27 2246 
27 2246 
27 2247 
27 2247 
Z7 2248 



05560 SS0S0317ea*''3S65541ElE232S4ee31B008 
8G5E1 54010317004405055416162301420415000 



06562 54050317004406055404562325760415000 
05563 54058317004406055404562325760416000 



0S5S4 03050117104422585416156025470356000 
0G565 54010317004406055416152385420416000 

06566 0305013710442270141G15G025470356000 

06567 0101033700442270141S1G2005430456000 

06570 56151317004406055416162325458316000 

06571 54111317004406055415162301420415000 

06572 S415131700440G05S4045G232S7G0416000 

06573 5415131700440G0554045S232S7G0416000 

05574 03151117104422565416156025470356000 
0657S 5411231700440G055416162305420416000 

06S7B 031S113710442270141G15602S4703SS000 
06577 0111233700442270141616200S43045S900 



. opcode [27C1 
txlist 

list ] DF/IF m»E.m flLUtO-i-flC! DESTtftCJ StT-PC-FLflGS NEOI $ 

;A00 

flCSEL[nS.fCl ftLU[A*e] DE5T[B1 SET-PC-FLfCS NEDI % 

D[IR1 MflSKIlB.] ALU[D+AC1 QEST[(^] SET-PC-FLfGS NEQI * ;flOOI 
D(IR] hftSK[18.) flLU[D+«C) DESTCftC) SET-PC-FLftGS NEQI $ 

DF/IF R-M-W IFRQ DtMEfll flLUED+fCl OESTinEnSTQl SET-PC-FLPGS 

JUtlPESEDI] * 
;AD0f1 

flCSELCfiCWll PiLU[ft+Bl DESTIB] SET-PC-FLflGS NEOI $ 

DF/IF R-H-U IFRQ DtMEM) (^U[D+AC] DESlfllEnSTO flR] SET-PC-FLflGS 

JUMPCASEDIl $ 



;flDD8 



IFRQ fiCSELIfiC.rW] flLU[fl+B] DESTIB flRl S£T-PC-FLflGS JLTIPIASEOIl $ 



.opcode[274] 
(xlist 

list 1 DF/IF DltlEni ALUIflC-Dl DESTIflC] SET-PC-FLflGS NEOI * 

:SU8 

flCSELIMfl.flCl flLUIB-ft) DESTIB) SET-PC-FLAGS NEOI $ 



DIIRi MflSKCia-l flLU[flC-D] DESTCflCl SET-PC-FLflGS NEQI $ 
DIIRl dflSKfia.] flLU[flC-D) DESTIflC) SET-PC-FLAGS NEOI % 



;SUBI 



DF/IF R-tl-W IFRQ DIMEni ALU[flC-Dl DESTCMEnSTQ] SET-PC-FLftGS 

JUnPISEDIl S 



.-SUBM 



ACSELIflC.mi flLUtfl-Bl DESTCBl SET-PC-FLAGS NEOI $ 



OF/IF R-n-W IFRQ DCHEn] ALUCAC-Dl OESTtnEMSTO W?) SET-PC-FLAGS 

JUflPiASEOn S 



;SUBB 



IFRQ ACSELIAC.HAl ALU[fl-B] DESTtB ARl SET-PC -FLAGS JLWIflSEOII S 
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of 



FtlNNF 



28 22+9 
28 2250 
28 2251 
28i»2252 
28 2252 
28 2253 
28 225+ 
28 2255 
28 22SG 
28 2257 
28 2258 
28 2259 
28 22S0 
28 2261 
28 2262 
28 2263 
28 226+ 
28 2265 
28 2266 
28 2267 
28 2268 
28 2269 
28 2278 
28 2271 
28 2272 
20 2273 
28 2274 
28 227S 
2S 227S 
28 2277 
28in2278 
28 2278 
28 2279 
28 2286 
28 2281 
28 22S2 
28 2282 
28 2283 
28 228+ 
28 2285 
28 22BS 
28 2286 
28 2287 
28 2288 
28 2286 
28 2289 
28 2298 
28a2291 
28 2291 
28 2292 
28 2293 
23 223+ 
28 229+ 
28 2295 
28 2296 
28 Z297 
28 2297 
28 2298 
28 2299 
ZS 2388 
28 2381 
28 2381 
28 2302 
28 2383 
28in23a+ 
28ni23e+ 
28m23e+ 
28 2385 
28i>i23e6 
28i>2386 
28 2387 
28 2386 
28 2389 
28 2318 

28 iiil 

28 2312 



0ES+8 5+073 1 1 7800086855+ 1 B 1 52325+20+ 1E000 
066+ 1 5+07311 7880006055+ 1 5 152325+20+ 16000 

055+2 55033 1 08+80027755+ 1 S 1 52325+21 2 1 6808 
865+3 01073117080022+33+16162025+31+56000 

065++ 550331 08280027755+ 1 5 1 52325+2 1 2 1 5888 
856+5 01873117880022+33+15152025+31+55808 

066+5 55030 1 1 888627755+ 1 6 1 52325+21 2 1 B000 
06S+7 01073117000022+33+16162025+31+55808 

06658 55873117088027755+16162325+21216008 
06651 81873117000022+33+16162025+31+56000 

06552 55033100688027755+16152325+21216000 
06653 81873117888822+33+16152825+31+56000 

0655+ 55033100000027755+16162325+21216000 

06655 01073117080022+33+15162025+31+56000 

06656 55030181288827755+16162325+21216800 

06657 81873117000022+33+16152025+31+56880 



06560 56873117000006855+16015325+60316000 
06661 5+0+3117008006055+16016301+28+16000 

06682 56073180800007355+16015325+60315800 

066S3 5+8+3180600007355+16018301+20+16008 

8556+ 560731800808073S5+1681S325+68316808 

06665 S+0+31000000073S5+16016301+20+16800 

0666E 56870181200007355+16016325+60316000 

06667 5+0+0181280007355+16816381+28+16000 



06S70 56073117200007355+16016325+60316000 
0G671 5+0+3117200007355+16016301+20+16000 



86572 56873180+00007355+16016325+60316000 
06673 5+0+3100+00887355+16816301+28+15800 



8GE7+ 5607318e2e000?3SS+lSei6325+50315000 
06675 5+0+3100200007355+15016301+20+16000 

86676 56078101800087355+16816325+60316880 

05677 5+0+0101000807355+16016301+28+16800 



0535+ 5+073117000006855+16016325+25+16000 
053SS 5+8731 17200007355+16016325+25+16000 



; JUHPx group 

=opcDde[320] fxlist 
list ] 

^EOI % 
^EDI $ 

ftLLitflCJ CC9ID[0BLIS<8J JDSP S 
JUMP [JttPfCl $ 

flLUtfiC] C(»CI[OBUS=0] JDSP $ 
JUMP [JnPACl % 

ALU[ftC+01 CONO(-OBUS>01 JDSP $ 
JUMP [JMPflC] $ 

JDSP t 

JUMP tJMPftCl % 

CLUlfC] CCW[-QeUS<01 JDSP $ 
JUMP [JMPflC] * 

ALUtACl Ct»Ct-OBUS=0] JDSP $ 

JUMP unpflci $ 

ALUtAC+01 CONDI 0BIJS>8] JDSP $ 
JUMP [JMPftC] S 



.opcode[3301 [xlist 
list 1 

DF/IF DtMEMl 

ACSELIMfl.flCl flLU[fll 



;SKIPL 



OF/IF DtMEM] 

ACSELIMA.AC) ALU(A) 

DF/IF DLMEM] 

ACSELlnft.PCl flLUtfl] 

DF/IF D[MEni ALU[D+01 
E 
ACSEL!MA,AC] ALU[A+01 



.opcode[33+l [xlist 
list 1 

OF/IF DtHEM] 

«:SEL!nA,flCl ftLU[fll 



;SKIPGE 



DF/IF DIMEdl 
flCSELtm.ACj ffl.U[i^l 



;SKIPN 



OF/IF DtMEMl 
ftCSEL[Mfl.ACl ALU[l=ll 



DF/IF DIMEM) ALU[D■^0] 



;5tCIPG 



ACSEL[Mft,ACl ALU[A+01 



CONO-AC-STO NEOI $ 

co^D-AC-STa nedi $ 

COND-AC-STO C0NO5KP[ftLU<e] $ 
COMD-flC-STO C□^CISKP[ftLU<el $ 
COND-AC-STO CDND5KP[ALU=ei $ 
COO-AC-STO COtC5KP[ALU=01 » 
CONO-AC-STD COfClSKPt-ALU>0] » 
COND-ftC-STO CONDSKP[-ALU>01 $ 



C0M3-AC-STD CDNDSKP[ ALWAYS) $ 
COND-AC-STO CONDSKP[ ALWAYS] $ 



COND-AC-STO CDrDSKP[-ALU<01 $ 
COND-AC-STO CONDSKP[-ALU<01 * 



COND-AC-STO CONDSKP[-ALU-03 » 
CO*D-AC-STO CaNDSKP[-ALU=0] « 



COND-AC-STO C0NDSKP[ALU>81 t 
COND-AC-STO CONDSKP[«.U>01 $ 



-•SKIP 



;SKIPA 



.reloc 
[.USE [NORMAL] 
[ xlist 

list ] ] 

.pair 
[:. \ 2 + . 

]CSSKP1: DCAR) COND-AC-STO EOI * 

:Here to finish AOS/SOS type if NOT SKIPPING. 
DtAR] COND-AC-STO EOI ID-CONDCl] ABORT-fOR-00 FALSE % 
:flOS/SOS type co»es here if SKIPPING. Do on 
; aborted skip-t/pe dispatch. 
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23 2313 
23 2314 
29 2315 
29m231S 
29 2316 
29 2317 
29 2318 
29 2319 
23 2329 
29 2321 
23 2322 
23 2323 
29 2324 
29 2325 
29 2326 
29 2327 
23 2328 
23 2329 
23 2330 
23 2331 
29 2332 
23 2333 
23 2334 
29 2335 
29 2336 
29 2337 
29 2338 
29 2339 
29 2340 
29ib2341 
29 2341 
29 2342 
29 2343 
29 2343 
29 2344 
29 2344 
23 2345 
29 2346 
23 2346 
29 2347 
23 2348 
23 2348 
29 2343 
29 2343 
29 2350 
29 2351 
29 2351 
29 2352 
29 2353 
29 2353 
29 2354 
23 2£4 
29 2355 
29 2356 
29 2356 
29 2357 
29 2358 
29 2358 
29 2359 
23 2353 
29 2360 
29 2361 
29 2361 
29 2362 
29<ii2363 
29 2363 
29 2364 
23 2364 
29 2365 
29 2365 
23 2366 
29 2367 
29 2367 
23 2368 
29 2368 
29 2363 
29 2369 
29 2370 
29 2370 
29 2371 
29 2372 
29 2372 
29 2373 
29 2374 
29 2374 
23 2375 
23 2375 
29 2376 
29 2377 
23 2377 
23 2378 
29 2379 
29 2379 
29 2380 
29 2380 
29 2381 
29 23B2 
29 2382 
29 2383 
29 2384 
29 2385 
29tn2386 
29 2386 
29 2387 
23 2388 
29 2389 
23 2390 
29 2391 

29 2393 06744 55031380204427755416162325421216008 



06700 54130317004406055416152325428416000 

06701 54130317004406055416162325420416000 



06782 55130380404427755416162325421216000 

06783 01873117000022433416152825431456000 



06704 55 1 303002044277554 1 6 1 6232542 1 2 1 6000 

06705 01873117000022433416162825431456008 



86706 55130301004427755416162325421216000 
06707 0107311700002243341S162025431456008 



86710 S51303170044277S541B1B2325421216000 
06711 0107311700002243341G162025431456000 



06712 5513030060442775541516232S42121E000 

06713 01073117000022433416162025431456008 



06714 55130300004427755416152325421215000 

06715 01073117000022433416152025431456000 



06716 551303012044277S541615232S42121G000 

06717 01073117000022433416152025431456800 



86720 03170137104412731416156025470356000 
06721 0113033720441273141E1B21054304S5000 



06722 03178120504412731416156125478356000 

06723 01130320404412731416162105430456000 



06724 03170120304412731416156125478356000 

06725 01130328204412731416162105430456000 



06726 03170121104412731416156125470356000 

06727 0113832100441273141616210S430456000 



86730 03170137104412731416156125470356088 
06731 01138337804412731416162185430456800 



0673Z 03178120704412731416156125470356000 



86733 81130320604412731416162105430456000 



86734 03170120104412731416156125470356000 



06735 01130320004412731416162105438456880 



06736 031701213044127314161S612S4703S6000 



06737 01138321204412731416162105430456000 



06740 54031317004406055416162325428416000 

06741 54031317804406055416162325420416808 



06742 55031300404427755416162325421216000 

06743 01073117000022433416162025431456000 



;;; fiDJ group 

.opcode[340i [xlist 
list 1 ;AOJ 

flLUIfC+11 DESKfCl SET-PC-FLAGS NEOI $ 
ftLU[fC+ll DEST[flCl SET-PC-FLflGS NEOI S 

ftUffC+ii DESTifCi SET-PC-FLfiGS CONOiOBUS<0J JDSP $ 
JUMP [JilPAC] S 

flLU[flC+l] KSTEfCl SET-PC-FLflGS COMD[OBUS=01 JDSP $ 
JUMP [JMPi^l S 

flLU[ftC+l] D£ST[PC1 SET-PC-FLflGS CONDt-OeUS>0] JDSP $ 
JUW [JtlPftC] $ 

flLU[flC+ll DESKACl SET-PC-FLflGS JDSP $ 
JUMP [JMPflC] $ 

flLU[flC+ll DEST[flCl SET-PC-FLflGS CaNOt-OBUS<01 JDSP $ 
JLTP [jnPflCl $ 

ALU[flC+ll DESTtflC] SET-PC -FLAGS COND C -OBUS=0 ) JDSP $ 
JUMP [JfPAC] » 

ALUtflC+ll DESTtAC] SET-PC-FLAGS COND[OBUS>0] JDSP » 
JUMP [JMPflC} $ 

.opcode[350] ixlist 

list 1 ;flOS 

OF/IF R-M-M DtMEM] ALUID+l] DeSTEMEMSTO ARl TRUE SET-PC-FLflGS 

JUnP[CSSKPl] * 

IFRQ ftCSELEMfl] «-U[B+l] DESTCB AR] FALSE SET-PC-FLAGS 

LBJLTPECSSKPU » 



DF/IF R-H-W DtMEM] ALUtD+ll DEST[MEHSTO AR] OBLB<0 SET-PC-FLAGS 

L8JUnPtCSSKPl] t 



IFRQ flCSELIMA] ALUtS+l] DESTIB AR] OBUS<0 SET-PC-FLAGS 

LBJUtlPtCSSKPn » 



H^/IF R-M-W DirEH] ALUID+l] DESTIMEHSTO flR] CHJS=0 SET-PC-FLAGS 

LBJUMPtCSSKPl) * 



IFRQ ACSELtMA] ALUIB+l] DESTIB ARl OBLIS=0 SET-PC-FLAGS 

LBJUTFICSSKPll $ 



OF/IF R-M-M OtMEMl ALU[D+1] OESTIflEMSTO ARl -OBUS>0 SET-PC-FLAGS 

LBJUnPICSSKPl] ( 



,-AQSLE 



IFRQ flCSELIMA) fiLU[B+l] DESTIB AR] -tBUS>8 SET-PC-FLAGS 

LBJUMPICSSKPll $ 



-opcode[354] Ixlist 
list 1 

DF/IF R-M-U DIMEM] flLU(D+ll DESTEMEMSTO flR] TRUE SET-PC-FLAGS 



;flOSA 



IFRQ flCSELIMA] ALUIB+l] DESTIB (*] 



LBJUtFtCSSKPl] $ 



TRUE SET-PC-FLAGS 

LBJUfflCSSKPll « 



DF/IF R-M-W DIMEM] ALUID+l] DESTirtMSTO AR] -OBUS<0 SET-PC-FLAGS 

LBJUMPICSSKPl] * 



;AOSGE 



IFRQ ACSELIMA] ALUIB+l] DESTIB AR] -OBUS<0 SET-PC-FLAGS 

LBJUtPICSStCPl] $ 



DF/IF R-M-M DirEM] ALUID+ll OESTIMEMSTO AR] -OBUS=0 SET-PC-FLAGS 

LBJUMPICSSKPl] » 



;AOSN 



IFRQ ACSELIMA) ALUtB+1) DESTIB AR) -OeUS'=0 SET-PC -FLAGS 

LBJUnPICSSKPll S 



:AOSG 



DF/IF R-H-W DEMEM] ALUED+l] DESTEMEMSTO ARj OajS>0 SET-PC-FLAGS 

LBJUtPECSSKPll * 



IFRQ ACSELIMA) ALUEB+1) DESTIB AR] DBUS>0 SET-PC-FLflGS 

LBJUnPECSSKPl) S 



;50Jx series 

.opcodeE3601 Exiist 
list 1 

flLUIAC-n DESTEflC) SET-PC-FLflGS NEOI * 
ALUIAC-l) OESTIAC) SET-PC -FLAGS NEOI $ 

ALUEAC-l) DESTIAC) SET-PC-FLAGS CONDIOBUS<0] JDSP $ 
JUMP UrPACl $ 

ALUEAC-1) DESTEAC) SET-PC -FLAGS CONDEOBUS=0] JDSP * 



;SOJ 
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29 2399 
29 2408 
29 2401 
29 2402 
29 2483 
29 2404 
29 2405 
29 2406 
29 240? 
29 2408 
29 2409 
29 2410 
29«2411 
29 2411 
29 2412 
29 2412 
29 2413 
29 2413 
29 2414 
29 2415 
29 2415 
29 2416 
29 2417 
29 2417 
29 2418 
29 2418 
29 2419 
29 2420 
29 2420 
23 2421 
29 2422 
29 2422 
23 2423 
23 2423 
23 2424 
29 242S 
23 242S 
23 242S 
29 2427 
29 2427 
29 2428 
29 2428 
29 2429 
29 2430 
29 2430 
23 2431 
Z3i»2432 
29 243Z 
29 2433 
29 2433 
29 2434 
29 2434 
29 243S 
29 2436 
29 2436 
23 2437 
23 2437 
29 2438 
29 2438 
23 2439 
23 24^ 
23 2440 
29 2441 
29 2441 
29 2442 
29 2443 
23 2443 
29 2444 
29 2444 
29 2445 
29 2446 
29 2446 
23 2447 
23 2448 
29 2448 
23 2443 
23 2443 
23 2450 
23 2451 
23 2451 
23 2452 



06750 550313170044277S541E1E232S421216090 

05751 8107311700002243341E1E202S431455008 

05752 55a3!390B044277S541E!S232S42!21S900 

06753 01073117000022433416162025431456000 

06754 55031300004427755416152325421216000 

06755 01073117000022433416162025431456000 

06756 55031301204427755416162325421216000 

06757 01073117000022433416162025431456000 



06760 03072137104412731415156025470356000 

06761 01031337204412731416162105430455000 



06762 03072120504412731416156125470356000 

06763 01031320404412731416162105430456000 



06764 03072120304412731416156125470356000 

06765 01031320204412731416152105430456000 



06765 03072121104412731415156125470355000 
05767 01031321004412731415162105430456000 



06770 03072137104412731416156125470356000 



06771 01031337004412731416162105430455000 



06772 0307212070441273141E1S612S470356000 



06773 0103132060441273141E1S2105430456000 



06774 030721Z010441273141B1S6125470356000 



06775 01031320004412731415162105430456000 



05775 0307212130441273141E15S1ZS4783S6000 



06777 01031321204412731416162105430456000 



ALU[ftC-ll DESTtSCl SET -PC -FLAGS JDSP * 

jurp unPflCi s 

flLUrflC-n DESTtflC! S£T-PC-FLftGS CQNOC-OBUSOl JDSP S 
JUflP [JMPftCl S 

ALUIAC-1) DESTtfC] SET-PC-nj=GS CONDl-QajS=01 JDSP * 

JUMP [jnPflC] s 

fiLUIfC-n OESTCAC] SET-PC-FLAGS CONDIOBUS>01 JDSP » 
JLW CJflPfC] » 

.opcodeI370] [xlist 

list ] :SOS 

DF/IF R-n-W DinEm ALU[D-1] DESTIHEMSTO ARl TRUE SET-PC -FLAGS 

junptcssKPii s 

IFRQ ACSELEm] ALU[B-1] DESTIB ARl FALSE SET-PC-FLAGS 

LBJUnPtCSSKPll % 



DF/IF R-n-li DIMEni ALUtD-11 DESTCHEnSTO (*] aeus<0 SET-PC-FLAGS 

LBJUnPCCSSKPll $ 



;SOSL 



IFRQ ACSELErWl ALUtB-1] OESTCB AR] OBUS<0 SET-PC -FLAGS 

LBJUnPICSSKPl] $ 



DF/IF R-n-U DtrEH) ALU[0-11 OESTirEnSTO ARl OBUS=0 SET-PC-FLAGS 

LBJUrt>[CSSKPll S 



;SOSE 



IFRQ ACSELCMA] ftLU[B-l] DEST[B AR] OBUS=0 SET-PC-fLAGS 

LBJUnPtCSSKPU t 



DF/IF R-n-W DIMErS] ALUID-IJ DESTIHEHSTO AR) -DBUS>0 SET-PC-FLAGS 

LBJUHPICSSKPll t 



;SQSLE 



IFRQ ACSEL[f1A] flLU[B-l] DEST[B ARl -OeLIS>0 SET-PC-FLAGS 

LBJUnPCCSSKPlI S 



.opcodet374i [xlist 
list ] 

DF/IF R-n-W OlnEMl ALUCD-11 DESTtfEnSTO AR) TRLE SET-PC -FLAGS 



;SOSA 



LBJUtPtCSSKPl) S 



IFRQ flCEELE.Ift] ALU [B- 13 DESTIB ARJ TRUE SET-PC-FLAGS 

LBJUMPICSSKPl) $ 



;SOSN 



;SOSG 



DF/IF R-n-W DtfEM] ALUtO-1) OESTtMEtlSTQ ARl -OBUS<0 SET-PC-FLAGS 

LBJUMP[CSSKP11 » 



IFRQ ACSELlriA) ALUIB-1) DESTCB AR) -OaUS<0 SET-PC -FLAGS 

LBJtfFCCSSKPn $ 



DF/IF R-fl-W DEMEU) ALUtD-1) DESTIHEMSTO AR) -CieUS=0 SET-PC-FLAGS 

LBJUnPICSSKPl) « 



IFRQ ACSELtnAl ALU[B-1] DEST[B AR] -OBUS=0 SET-PC-FLAGS 

LBJUnPtCSSKPl) $ 



DF/IF R-M-U DCMEMl ALU[D-11 DESTtMEnSTO AR) OeUS>0 SET-PC-FLAGS 

LBJUHPICSSKPll $ 



IFRQ ACSELLrlA) ALU[S-1] DESTIB AR] OaUS>0 SET-PC-FLAGS 

LBJUnPtCSSKPl) $ 
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38 Z'tS3 

30 2454 

38 2455 
30 2456 
30 2457 
30 2458 
30 245B 
30 24SS 
30 24S0 
30 24G1 
30 24Si 
30 2462 
30 24S3 
30 24E4 
30 24B4 
30 2455 
30 24EG 
30in24E7 
30 24B7 
30 2458 
30 2469 
30 2470 
30 2470 
30 2471 
30 2472 
30 2473 
30 2473 
30 2474 
30 2475 
30 2476 
30 2477 

39 2477 
30 2478 
30 2479 
30 2486 
30 2481 
30 2482 
30i»2483 
30 2483 
30 2484 

dB 24BS 

30 2486 
30 2487 
30 2487 
30 2486 
30 2489 
30 2490 
30 2490 
30 2431 
30 2492 
30 2493 
30 2493 
30 Z494 
30 2495 
301112496 
30 2496 
30 2497 
30 2498 
30 2499 
30 2499 
30 2500 
30 2501 
30 2502 
30 2502 
30 2503 
30 2504 
30 2505 
30 2506 
30 2506 
30 2507 
30 2506 
30 2509 



0SG00 is4075il 70006060554 1 S 1 523254204 i £006 
85601 S40731170800060554161B2325420415000 

05602 5415111 3G000073S540455232S7B04 1 6000 

06603 5415111 36666673554645623257504 i 6886 

06604 54151100000007355404562325760416000 

06605 54151100000087355404562325760416000 

06606 S4151181200a073554045G23257B041B000 

06607 54151101 2000073554045623257604 1 6000 



0B610 540731 172000073S541B162325420416000 
066 1 1 54073 1 1 72000073554 1 6 1 623254284 1 6800 



066 1 2 5415111 34000073554045623257604 1 6000 
06513 54151113400007355404562325760416000 



06614 54151100200007355404562325760416000 
05615 54151100200007355404562325760416000 

06616 54151 101000007355404S6232S76041G000 

06617 54151101000007355404552325760416000 



06520 5407311 70800068554 1 B 1 623254204 1 6000 
06821 54875117000006055415162325420416880 

06522 56151113600007355415162325460316000 

06623 54112113680007355416162305420416000 

06624 5615! 100000007355415162325460316080 

06625 54112100000007355416162305420416000 

06626 5E15110120000735541B16232S460316000 

06627 54112101200087355416162305420416000 



06B30 548731 172000073S541516232S420416000 
06631 54873117200007355416162325420416000 



06632 5S1511134000073S541G16232S460316000 

06633 54112113400007355415162305420416000 



06634 56151 1002000073S541G16232S460316000 

06635 54112100200087355416162305420416000 



06636 58151181800087355416162325468316000 

06637 54112101800087355416162305420416080 



.opcode[300} Ixlist 
I ist J 

r»EOI S 

^ECI s 



;CflIL 



;CftIE 



DIIRl mSKIia.] 

D[IR3 mSK[18. J 

DtlRl mSK[lB.] 

dlir; msKciB.] 



;CAILE 



f)LUtftC-Dl 
ALUtflC-01 
ALUtAC-D] 
DtIR] m5K[i8.] ALUCflC-Dl 



CQ^DSKP[flLU-SIGNl $ 
CGNOSKPtfiLLi-SIGNl S 
CC1NDSKP[ALU=0) $ 
CC»ClSKPtftLU=01 $ 
CClNDSKP[-flLU>01 » 
CONDSKP[-ALU>0) S 



.opcc!de[304j [xlist 

list ] 

CONOSKPtflLMflYSl 
CONOSKPtPlLWrtYS] 



;CAIfl 



;CAIGE 



DtIR] m5K[!8.] 
DtlRl m5K[18.] 



;CflIN 



D[IR) HASKtia. ) 
DtlRl fWBKCia.] 



flLUtflC-Ol 
flLU[flC-D! 



flLU[flC-Dl 
fiLU!AC-D] 



.-CAIG 



OCIRl MftSKElS. 1 flLU[«:-Dl 
D[IR] m5K[18.1 flLUCftC-Dl 



CONDSKPC-ALU-SIGN] $ 
CCWOSKPE -ALU-SIGN) S 



CO^CISKP[-f^LU=01 $ 
CDNDSKP[-flLU=01 * 



CraClSKP[ALU>01 $ 
CQNOSKP[flLU>01 $ 



.-CWL 



.opco<te[3181 [xlist 
list 1 

NEOI * 

NEGI 5 

DF/iF mrEm euiifc-o] 

ftCSELtflCMA] ftLU[ft-Bi 

DF/iF OEneni alucac-d] 

ACSEL;aC,Mft3 ALU[A-B] 
DF/IF DinEnl ALU[AC-D1 
ACSEL[AC.I1flj ALUtA-Bl 



;CAn 



,-CAfl.E 



C0NDSKP[ALU-5IGN] S 
CONDSKPtALU-SIGNl $ 
C0NDSKP[ALLI=81 * 
CONDSKP[flLU=0] $ 
COM!SKP[-ALU>e] $ 
CONDSKP[-flLU>ei $ 



.opcccte(3141 [xlist 

list i 

CONDSKPt ALWAYS] $ 
CONDSKP[ ALWAYS] t 



;CAfn 



:CAnGE 



DF/IF DIMEni ALU[AC-D) 
ACSELIAC.riA] ALU[A-B] 



;CAf1N 



DF/IF D[nEn] ALUtAC-D] 
ACSELEACrW] ALU!A-B1 



;CAnG 



OF/IF DIMEM) ALUCAC-D] 



ACSEL[AC,nA) ALU[A-B1 



CONDSKPI-ALU-SIGN] » 
CONDSKPC-ALU-SIGN] $ 



C0NDSKPt-ALU=8] S 
CONDSKP[-ALU=01 $ 



CC»«SKP[ALU>01 $ 
CONDSKP[«.U>01 $ 
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31 2519 




31m2511 




31si2511 




31 2S1Z 


07888 


31 2512 




31 2513 


07001 


31 251t 




31 2515 


07002 


31 2515 




31 2516 


07003 


31 2517 




31 2518 


07004 


31 2518 




31 2518 


07005 


31 2520 




31 2521 


07006 


31 2521 




31 2522 


07007 


31 2523 




31 2524 




31in2525 




31m2S25 




31 2526 


07010 


31 2526 




31 2527 


07011 


31 2528 




31 2529 


07012 


31 2529 




31 2530 


07013 


31 2531 




31 2532 


07014 


31 2532 




31 2533 


07015 


31 2534 




31 2535 0701S 


31 2535 




31 2536 


07017 


31 2537 




31 2538 




31ni2538 




31»2539 




31 2548 


8702S 


31 2540 




31 2541 


07021 


31 2542 




31 2543 


07022 


31 2543 




31 2544 


07023 


31 ZS45 




31 2546 


07024 


31 2546 




31 2547 


07025 


31 2548 




31 2549 07026 


31 2549 




31 2S5e 07027 


31 2S5I 




31m2SS2 




SlmZSSZ 




31i«2S52 




31 2553 


05356 


31 2553 




31 2554 


05357 


31 2555 


05360 


31 2556 


05361 


31 2557 


05362 


31 2557 




31 2558 




31 2559 




31i«2S60 




31 2560 




31 2561 


07030 


31 2552 


07031 


31 2563 




31 2S64 


07032 


31 2564 




31 2565 


07033 


31 2566 




31 2567 


07034 


31 2567 




31 2568 07035 


31 2568 




31 2SS9 




31 ZS/0 


07036 


31 2570 




31 2571 


07037 


31 2572 




31 2573 




311.2574 




311.2574 




31 2575 


07040 


31 2S75 




31 2576 87041 


31 2577 




31 2578 


07042 


31 2578 




31 2579 


07043 


31 2586 




31 2581 


07044 


31 2581 




31 2582 


07045 


31 7S83 




31 2584 


87046 


31 2584 




31 2S8S 


07047 


31 2588 




31n2S87 




31=12587 





5482431 78808860554 1 E 1 S23ZS4204 1 5080 
54024317000806055416152301420416088 
54024317080006055415152325420416000 
54024317888806055415152301420416008 
0102411 78880225654 1 E 1 560Z543045G0M 
540243 1 78808068554 1 E 1 E230542e4 16088 
01824137800022781415156025430456000 
01024337000022701416162805430456000 

560543 1 70000060554 1 61 623254603 1 6000 
54014317000006055416162301420416000 
540543 1 70000060554045623257604 1 6080 
54054317000006055404562325760416000 
03054 1 1 7 1 000Z26654 16 156025470356000 
54014317000006055416162305420416000 
03054137180822701416156825470355080 
0101433700002Z70141E152005430456000 



SlS37817SS0S80SS141SlS282S4312SS88e 
01037017000000001416162025431456000 
01037017000000001416162025431456000 
01037017000000001416162025431456000 
01037017000000001416162025431256000 
54015317000006055416152305420418000 
010370170000000014161520ZS431Z56000 
01015337000022701416162005430456000 

54064317000006055416162325460516000 

S40043170000060554161E2301420415000 
540643 1 700000G055404S623Z57604 1 6000 
01064117100022665416156025470556000 
01064137100022701416156025470556000 



5507331 70000060554 16 1 6Z32S4603 1 6000 
54043317000006055415162301420416000 

54073317000606055404562325760416000 

54073317000006055404562325760416000 

030731371000227034161S602S4703S6000 

54043117000006055416015301420416000 

56073317000006055416162325460316000 
S404 3317000006055416162301420416000 



560553 1 70000060554 1 6 1 623254503 1 6000 
54015317000006055416162301420416000 
54055317000006055404562325760416000 
540553 1 70660066554045623257604 1 5000 
03655 1 1 71 00022SS54 1 6 1S60Z5470356000 

01015137000000001416162001430456000 

03055137100022701416156025470356006 
0101S3370000000014151S200143045G000 



31 2588 05363 54073317000006055416162305425416006 



.opcodet400j 
[xlist 

list 1 ftLLIf0] DESTEfiC] NEDl $ 
;SETZ 
ACSEL(HA,i^l ffl.Li[0] DESTtS] NEQI % 



:SETZI 



;SETZn 



;SETHB 



flLLI[0] DESTtflC! NEOI t ^ 

ACSELtnS.flCl ALL)[8] DESTtBl NEOI » 

IFRQ «.U[9) DESTIflEllSTO] JUMPtSEOU S 

fiCSELIflCttft] ALU[81 DESTCBl NEOI $ 

IFRQ ALUt01 DESTtfEnSTD ARl JUMPIASEDI] $ 

IFRQ ftCSELIiC-llfi] ALUI81 D£ST[B AR) JUMPlftSEQI) S 



.opcode [4041 
txlist 

list ] DF/IF DlrEM] ftLU[D8.flCl CESTCfC] NEOI $ 

;AND 
flCSELtm.fC] I^UtfliBl DEST[B1 NEOI t 

DtlRl nflSK[18.3 ALU[0£ftC) DESTtftC] NEOI » 
;ANOI 

DCIRl MASKdS.] dLUlOifiCl OESTlfiC: NEOI ( 

DF/IF R-n-W IFRQ DlrEMl flLUIOiACJ DEST [ IIEnSTO ] JUMPISEOIl $ 

-.etnan 

ACSELtflCtIA] ftLU[ft&B] DESTIBl NEOI » 



;S!CS 



DF/IF R-n-W IFRQ D[«EM1 PLUlDlfC] DESTCnEMSTO ARl JUnPtASEOIl $ 
IFRQ ACSELIACMAl ALU[ft&Bl DESTtB ARl JUMPtftSEDIl $ 



.opcodet4101 
[xlist 

i:_* ] DFRQ ALUCMGTACl KST[Q] JL^1P[£CA11 $ 

;ANDCA 
ALUINOTACl DESTCQl JLt1P[aCA21 * 



ALU[N0TAC1 DEST[Q] JUrP[8.CAin » 



;ANDCAI 



ALUINOTACl DEST[I3] JUnPt&CAIll S 



DFRQ ALUINOTACl OESTIQl JUrPIiCAMll $ 



ACSEL[fiC.HA] ALU[-ft&ai DeST[Bl NEOI $ 



DFRQ ALUENOTACl DESTIQl JUtPIiCABll « 



;ANDCAB 



IFRQ ACSEL[AC,nA] ALU[-flaB] OESTIS ARl JUtf [ASEOIl » 



.reloc 
t.USEINORHALl 
! xlist 

list 1 lac 

DEST[AC1 NEOI » 
&CA2: ACSEL[HA,AC1 flLU[AS,Ql OEST[BI NEOI t 



oir^n] ALUID&QI 



&CAI1 
aCAMl 
e.CABl 



D[IR1 MASKdB.l ALU[D8,Q1 DEST[flCl NEOI * 

IFRQ R-M-U DIMEMI ALUID4Q1 DESTtHEIISTOl JUMPISEOIl $ 

IFRQ R-n-W DlnEHl ALUID&OI DESTtMEHSTO ARl JUTPt ASEOIl « 



.opcode[4141 Ixlist 

list 1 

DF/IF D[nEHl DESTIACl ^E□I t 
ACSEL[ttA.ACl ALUEAl DESTIBl NEOI * 



;SETn 



:SETni 



:SETna 



DiiR) nf>a<iiB.] oesTiftci neoi s 

DIIRl riASKIia.l DESTIACl NEOI $ 

DF/IF R-n-W DinEHl DESTlnEnSTO ARl JUMPICASEOIl » 

ACSELlnA.ACl ALUIftl COND-AC-STO NEOI « 

DF/IF DIHEnl DESTIACl NEOI » 
ACSELinft.ACl ALUIAl DESTtBl NEOI $ 



slike 



.opcodeI420I 
Ixlist 
list I OF/IF DinEni ALUI-04AC1 DESTIACl NEOI $ 

jfaecn 

ACSELtnft.ACl ALUI-A&Bl DESTIBl NEOI $ 



DIIRl HASKIlB.l ALUI-D8,AC1 DESTIACl NEOI » 



;ANDCni 



DIIRl nASKIlB.l ALUI-D&ACl DESTIACl NEOI * 

DF/IF R-M-W IFRQ DirEn] flLUI-D8,ACl OESTinEIISTO! JUnPISEOI) « 

;f#ciati 

IFRQ ACSELtflA.ACl ALUI-ASSI DESTIARl JUMPItCnnil * 

DF/IF R-n-W IFRQ DinEMl flLUI-0£fiCl DESTinEnSTO AR! JUnPIASEOIl * 
;AMXn8 
IFRQ ACSELIMft.ACl ftLUt-f«.Bl OESTIB flfil JUTPIlCnnil t 



-reloc 
[.USEINORHALl 
r -i;-t 
list 1 



l&Otll: 



ACSELinAl OIAR] 
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31 Z53Z 


07858 


31 Z53Z 




31 2533 


07051 


31 2S34 




31 2535 


87052 


31 2535 




31 2536 


87053 


31 2537 




31 2538 


07054 


31 2538 




31 2533 


07855 


31 2G0e 




31 2561 


07056 


31 2681 




31 2602 


07057 


31 2683 




31 2684 




31m2605 




31102685 




31 2686 


07068 


31 2686 




31 2687 87861 


31 2686 




31 2689 


87062 


31 2603 




31 2618 


87063 


31 2611 




31 2612 


87064 


31 2612 




31 2613 


87065 


31 2614 




31 2615 


87066 


31 2E15 




31 2616 87067 


31 2617 




31 261S 




31i>2619 




311(2519 




31 2E20 07878 


31 2620 




31 2621 


07071 


31 2622 




31 2623 


07072 


31 2623 




31 2624 


87873 


31 2625 




31 2626 


87074 


31 2626 




31 2627 07875 


31 2628 




31 2629 87076 


31 2629 




31 2638 


87877 


31 2631 




31 2632 




31i»2633 




31x2633 




31 2634 


87180 


31 2634 




31 2S35 87101 


31 2636 




31 2637 


87182 


31 2637 




31 2638 


87183 


31 2639 




31 2640 


07184 


31 2640 




31 2641 


07105 


31 2642 




31 2643 


07106 


31 2643 




31 2644 


07107 


31 2645 




311.2646 




31«2646 




31nZ64E 




31 2647 


05364 


31 2647 




31 2648 


05365 


31 2649 


05366 


31 2650 05367 


31 2651 


05378 


31 2652 




31«2653 




31>2653 




31 2654 


07110 


31 2654 




31 2655 


07111 


31 2656 




31 2657 87112 


31 2657 




31 2658 


07113 


31 2659 




31 2660 


07114 


31 2660 




31 2661 


07115 


31 2662 




31 2663 


07116 


31 2663 




31 2664 


87117 


31 2655 




31 2666 




31ii2667 




31»2667 




31 2668 


07128 


31 2668 




31 2669 


07121 


31 2670 





54073117000006855415162325428415800 
54073117060006855416152325428416000 
540731170^086855416152325420416000 
54073117000006055416162325420416000 
810331 1708002256541515S025430456000 
548433178088068S541615238542841S066 
81833117000022685416156025430456800 
54843317008806055416162305420416800 

56056317000006055415162325460316800 
54016317000806055415162301420416000 
54056317000806855484562325760416880 
54056317000086855404562325750416000 
03055117180022665415155025470356000 
5401G317000006055416162305420416000 
03056137100022781416156025470356800 
01816337808022701416162005430456000 

56053317000086055416162325468315800 
54813317000006055416152301420416880 
540533 1 70000060554845623257684 1 6800 
5405331 700000G0554045623257G0416000 
03053117100022665416156025470356808 
54013317000006055416162305420416800 
83853137180022701416156825470356008 
01013337880022781416162085430456000 

83053137000800801416162025471356888 
01013137088008861416162801431456000 
81053137880088081404562025771456080 
81853137000000001484562025771456000 
03853137186000001416152025470356000 
01013137006600601416162005431456000 
03053137100000081416152825478355808 
81813137886880001416162005430455000 

54077317086686055416162325420415000 

01877117886022665416156825436456600 
54077317000006055416162305420416000 
01877137660022701416156025430456000 
01877337800022701416152005430456000 

56057317000006055416162325460316000 
54817317880086855416162381428416860 
540S731700000G05540456232S7G0416000 
54857317608006055404552325766415600 
03057117100622665416156025470356000 
54017317688666055416162365428416666 
83857137188822781416156825476356000 
01017337000022701416162005430456060 

54037317000006055416162325420416000 
5403731700000605S41616232S420416000 



list 1 

;SETft 
fEOI $ 



NEOI i 



;SETAI 



;SETAf1 



;SETflB 



KE.01 * 

NEOI * 

IFRQ «-LI!aC] DESTiMEMSTD! tORT, JUflPISEQIl S 

fCSELlfiC.Mfi] ftLUtfi] DESTtai NEOI $ 

IFRQ flLU[fiC) DESTCnEnSTOl NORtl JUflPISEDI] « 

flCSELCftCHft] flLUtfll DESTIBl NED! S 



.opcode [430 I 
[xlist 

list 1 DF/IF DIMEMl ALU[D«fiC] OESTCACl NEOI S 
;XOR 
flCSELCMfl.ACl ALU[A»S1 DESTtB] NEOI « 



jXORI 



;XCRS 



DEIRl nflSKtia. 1 flLUIDeflCl DESTEftCI NEOI S 

DCIR] MflSKElB.l flLUtD«ACl DESTIACl NEOI « 

OF/IF R-n-W IFRQ D[HEnl flLUtOsACl DESTCHEMSTOI JUnPISEOI] « 
;XCS?n 
flC5EL[«:,m] flLU[fl«Bl DESTIB] fEOI » 

DF/IF R-n-W IFRQ DtflEM] flLUCDnAC] DESTtftHSTO flR] JUHPtflSEOIl * 

IFRQ flCSEL[fiC,mi ALUrfl»Bl DESTIB flRl JUMPIftSEDII » 



.opcode[434] 
IxliEt 

list I DF/IF DEHEM] ftLUtDORACl OESTtftCl NEOI « 

;inR 
fCSELtnfl.fiCI flLU[flORBl DESTtBl NEOI » 



;IORI 



DCIRJ MflSKIlS. ! ALUCDORACl DESTtfC] NEOI $ 



D[IRI HflSKtie. ] ALUtDGRAC] DE5TIAC] NEOI t 



DF/IF R-n-W IFRQ DltlEm ALUIDORACl OESTtMEnSTOl JUWCSEOIl t 
;IORn 
ACSEL[AC,nA] ALU[AORB] DESTIB] NEOI S 

DF/IF R-n-U IFRQ DirEfll ALUIDCRACl DESTIMEMSTO AR] JUtPIASEOIl « 
;IDR9 
IFRQ ACSELIAC.HA) ALUtAOrai DESTIB AR) JITPCASEOI] « 



.opcode [4481 
[xlist 

list 1 DF/WT DEMEni ALUIDORACl DEST[AR1 JUrP[5TCnl $ 

jANOCB 

ACStLim-ACl ALUcAORBl DESTIARl Jl*f=[5TC?13 * 



;amx:bi 



D[IR1 MASK[1B.] ALUEDORACl DEST[AR] JUnP[5TCI1I $ 
I 
D[IR1 HftSKIlB.l ALUIDORAC] DEST[AR1 JUnPISTOI] S 



DF/WT R-n-U IFRQ 0[nEnl ALU[D0RAC1 DeST[AR) JLrP[STCnni « 
;ANDCBn 
ACSELIACnAl ALUIAORBl DEST[AR] JUnP[STat1Al S 

DF/WT R-n-W IFRQ D[HEni ALU[DORAC] DEST[AR] JUMP[STCMB] $ 
;ANDCBB 
IFRQ ACSEL[AC.nfil ALU[MKB] DEST[AR1 JUrP[STCnBAl t 

.reloc 
[. USE t NORMAL 1 
( xlist 

list ) ]ST(>1: 

DEST[AC] NEOI $ 
STCntl: IFRQ D[AR1 ALU[NOTD) DESTinEnSTOl JUMP[SE0I1 « 
STCnm: OIAR] ALU[N0TD1 ACSEL[nAl DEST[B1 NEOI $ 
STCnS: IFRQ D(ARi ALU[NOTD] DESTIHEnSTO ARl JUMPIASEOI) » 
STCfBA: IFRQ D[AR1 ALU[NOTD] ACSELIMA] DESTIB ARl JljnP[ASEOIl » 

.opcode (444) 
[xlist 

list ) DF/IF D[nEn] ALU[D/BAC) OESTIACl NEOI * 
:EQV 
AtrSELtnA.AC) ALUIA/mB) DESTIB) NEOI $ 



OIAR) ALUINOTD) 



;EOVI 



DIIR) nASK[lB.] ALU[D/»AC] DESTCAC) NEOI t 
DIIRj "lASKilS. 1 M-UID/iifiC) OESTIHCJ NEOI $ 



DF/IF R-n-W IFRQ DlnEtt) ALUID/nAC) DEST I MEMSTO ) JUMPISEOI) $ 
;EQyt1 
ACSELIAC.nA) flLUIA/»a) DESTIB) NEOI » 

DF/IF R-n-W IFRQ DIHEn) ALUID/nAC) DESTlnEHSTO AR) JUHPIASEOI) » 
;EQUB 
IFRQ ACSELIAC.nA) ALUIA/uB) DESTIB AR) JUTPIASEOI) $ 



.opcode[450] 
Ix)ist 

list ) ALUINOTAC) DESTIAC) NEOI « 

;SETCA 
ALUINOTAC) OESTIACJ NEOI * 



31 2671 



:SETCAI 



SLOE March 23. 198+ 21:88:29 file DSK:F'tINST.SLO 



ei9*7i3700e02270i4iEisGa05t30+sseee 

81047337000022791+161520eS43e-t5S000 



03e55i3?00e0127Si+lSlE202S+713S6e00 

8iai5i37ee98i275i4isiS2eeH3H5seee 

ei855137ee001Z7Sl+0+5G202S7711SS0ee 
010S513700081Z751+045B202S77HSS000 
030551371000127S3tl61G202S'»713S6000 
0101513700e0127S5'»161G20eH31+56e00 
030S513710e012757+lElS282S+713SB000 
01015137000012761416162001431+56006 



31 2676 

31 2677 07126 

31 2677 

31 2678 07127 

31 2678 

31 2679 

31 2680 

31iii2681 

31iriZ681 

31 2682 07130 

31 2682 

31 2683 87131 

31 2684 

31 2685 07132 

31 2S85 

31 2686 07133 

31 2687 

31 2688 87134 

31 2688 

31 2689 0713S 

31 2690 

31 2691 07136 

31 2691 

31 2692 07137 

31 2633 

31 2694 

31 2695 

310269E 

31r>2696 



31 2697 

31 2698 07141 54047317090006055416162301428416000 

31 2699 

31 2780 07142 54077317089006055404562325760416000 

31 2798 

31 2791 07143 54077317000806055404562325760416900 

31 2702 

31 2793 07144 03077117100022665416156925470356000 

31 2703 

31 2794 07145 54037317090096055416162395420416080 

31 2795 

31 2706 0714S 0307731710092266541615602S4793S6000 

31 2706 

31 2707 07147 01037337890022701416162905430456006 

31 2708 

31 2709 

31i«2710 

31ii2718 

31 2711 07150 03077137000090001415162025471356080 

31 2711 

31 2712 07151 01037137000008901416162005431456800 

31 2713 

31 2714 071S2 01077l37e^flfl«ft£W^i434i;s2^'^'''^*5S0'^0 
31 2714 

31 2715 07153 91077137009000801404562025771456009 

31 2715 

31 2717 07154 03077137199000981416162025471356900 

31 2717 

31 2718 07155 01037137aB0BaB«ei4iEiS700c*ai«i:^0ee 

31 2719 

31 2729 07158 03977137109008091415162825471355880 

31 2729 

31 2721 07157 01037137009900091416162905431456090 

31 2722 

31«i2723 

31b2723 

31ib2723 

31 2724 05371 54053317009096055415162325420416080 

31 2724 

31 2725 85372 01053117000022665416156825430456090 

31 2726 05373 54053317009006055416152305420416000 

31 2727 95374 81053137900022701416155025430456080 

31 2728 05375 01053337000022701415152005439456880 

31 2723 

31 2730 

31in2731 

31b2731 

31 2732 07150 03054137009012751416162025471356008 

31 2732 

31 2733 07161 01014137000612751416162001431456000 

31 2734 

31 2735 07162 01054137000012751404552025771456900 

31 2735 

31 2736 07163 01054137000612751404562025771456000 
31 2737 

31 2738 071S4 03954137100012753415162025470356900 
31 2738 

31 2739 07165 01014137000612755416162995431456988 

31 2740 

31 2741 07166 03954137199012757416162025470355000 

31 2741 

31 2742 97167 91014137990012761416162095430456008 

31 2743 

31 2744 

31iii2745 

31B2745 

31 2746 07170 54072317080806055400152325550415080 

31 2746 

31 2747 07171 54072317090005055400152325558416008 

31 2748 

31 2749 07172 54072317000006055400162325560416900 

31 2743 

31 2750 07173 54072317000096055480152325560416000 

31 2751 

31 2752 07174 01072117000022565400156025570456000 

31 2752 

31 2753 07175 54072317000086055400152305568436880 

31 2754 

31 2755 07175 0107213700002270149015602SS7045£0aa 

31 .^(^b 

31 2756 07177 01072337BB0B777014e»ilK7MKi;7a47Eflflfl 



of — F41NNF 

IFRQ fiCSELtfC.Hflj fILUfNOTfll DESTirEnSTO ftRl NORT! JUMPtSSEOI! $ 



.= SETCf)e 



IFRQ fiCSELtftCfKl ftLU[SOTfi) DESTtS «5j rORfi JUfPiflSEOl! t 



. opcode t 454 3 
[xlist 

list 1 DF/WT DCMEH] flLUt-MACl DESTtflR) JUrPlSTDI] % 

:ORCA 
flCSELEHft.ftC) ALUE-Aaai DESTtflR] Jl*f [STD1] « 



;ORCAI 



DEIRl mSKdB. 1 flLUC-OaACl DESTCfW] JUnPtSTCMl t 
DCIRl rtflSKtlB.] flLUC-DaflCI DESTtAR] JUnP[STCHl $ 

DF/uT K-n-u D[nEH] flLui-oaflci OESTeiW] junptsTcnn 

;0RCftf1 
ACSELEm.AC] «.U[-ft8,B] DESTCflR] JUnPCSTCflm] $ 

DF/WT R-M-U DCMEnl ALUC-O&flCl DEST((«] JUr*>[STCMB 
;ORCfie 
fCSELCnft.ACl flLU[-fta81 DESTCflR] JUnPCSTCtBft] S 



. opcode C 460] 
[xlist 

list j DF/IF DIPEfl] PILUCNOTD] DESTCAC] NEOI % 

;SETCn 
flCSELtfW.flCl ALUrNOTfl] DESTCB] NEOI $ 



;SETCMI 



;S£TCnB 



DCIR] MflSKfia.] ALUtNOTD] OESTtflCl NEOI t 

D[IR] mSKClB.) ALUENQTO) DEST'ACJ NEOI S 

DF/IF R-H-W IFRQ DIMEM] ALUtNOTD] DESTIHEnSTO] JUHPtSEOII $ 
;5ETCm 
IFRQ ACSELtfCMfl] «.U[NQT8] DEST[B] NEOI « 

DF/IF R-n-W IFRQ DtMEM] flLUCNOTD] DEST ! flEIISTO SC] JLTPISEOIi 

IFRQ ACSELtflC.nfll ALUCNOTB] DESTtB flR] JUnPIASEOI] S 



.opcode[4641 
txlist 

list ] DF/UT Dirtn] ALUtNOTO] OESTIAR] JUnPIORCfll] $ 

:ORCM 
ACSELCIIfi] ALUtNOTACl DESTtflR] JtjnPtORCMl] S 

EIIRj "mSKIlS.J fiLuIfCTDj XSTiSftj JUHPtORCniJ S 

DtIR] nflSKtia.l ftUtNOTDl DESTtflR] JUMPIORCMl] $ 

DF/UT R-n-u Dtrtn] aluinotd] destiar] juwioRcmi] s 

ftCSELiMftl flLUtffili^] DESTiflR] JUfiPiOKCriPKi % 

Dr/WT R-fl-W DtHEfl] ALUINOTD] DESTIAR] JUflPtORCnBl] $ 

ACSELtMAl ALUtNOTAC] DESTtAR] JUMPtORCffi2] ( 



;DRCni 



jORCMH 



;ORCHB 



lORCfll: 



DEAR] ALUtDCRAC] 



-rcloc 
t.USECNORnALl 
[ xlist 
list 1 
DESTIAC] NEOI $ 
ORCmi: IFRQ DtflR] flLUttXKAC] DESTIMEnSTO] JUHPISEOI] $ 
0RCnfl2: DtftR] ftCSELtflCnfll ALUCDORACl DESTtB] NEOI * 
ORCrlBl: IFRQ DtftR] ALUtDORftC] DESTtnEMSTO «?] JUflPtflSEOI] t 
axmZ: IFRQ DtBR] ACSELIAC.nAl ALUtDORAC] DESTtB Afi] JUMPtflSEOI] $ 



.opcode [470] 
txlist 

list ] DF/yT DtnEPI] ALUtD&flC] DESTCflR] JUTPtSTCn] t 

.-ORCB 
ftCSELCMA.AC] ALUtASB] DESTtAR] JUMPtSTCfll $ 



;ORCBI 



;ORCBM 



.•ORCBB 



DtlRl MASKIlB.l ftLUIDSAC] DESTCAR] JCJMPCSTCfl] $ 

DtlRl MASKtlB.] ALUCD8,AC] DESTCAR] JCJMPCSTtlM] $ 

DF/UT R-M-U IFRQ DtMEM] ALUCD&ACl DESTCAR] JUnPtSTCMMl * 

ACSELIflC.MA] ALUtflaS] DESTtAR] JUnPtSTt:mfl) $ 

DF/IF R-M-W IFRQ DtMEM] flLUtD&AC] DESTtflR] JUflPtSTCMB] $ 

IFRQ flCSELtAC.Mfl] ALUCft&B] .DESTCAR] JLTFCSTCfSfti $ 



. opcode C 474] 
txlist 

list ] ALUi-11 CtSTtflC] NEOI $ 

;SETO 
ALUt-lJ DESTtB] NEOI $ 



;SETOI 



;S£TOM 



flLUt-1] DESTtACl NEOI S 

flLUt-1] DESTtBl NEOI $ 

IFRQ ALUt-11 DESTtMEMSTO] JUMPtSEDI] » 

ALUt-lJ DESTIMEMACl NEOI $ 



;SETOB 
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of 



F41NNF 



32 27S3 

szasZTses 

32i»27Be 
32 2751 
32 Z7S1 
32 2762 
32 2763 
3Z 275^ 
32 27B* 
32 2765 
32 2766 
32 2757 
32 2767 
32 2768 
32 2763 
32 2770 
32 2770 
32 2771 
32 2772 
32m2773 
321.2773 
32m2773 
32 277+ 
32 277'» 
32 277S 
32 2776 
32 2777 
32 2778 
32 2779 
32ni2788 
32m278e 
32 2781 
32 2781 
32 2782 
32 2783 
32 278<t 
32 278+ 
32 2785 
32 278S 
32 2787 
32 2787 
32 Z7^ 
32 2789 
32 2790 
32 2790 
32 2791 
32 2792 
32in2733 
32m2793 
32in2793 
32 279+ 
32 279+ 
32 2795 
32 2796 
32 279? 
32 2798 
32 2799 
32 2800 
32 2801 

32 zaei 

32 2802 
32m2803 
32m2803 
32 289+ 
32 2805 
32 2806 
32 2807 
32ii>280e 
32 ■2808 
32 2809 
32 2809 
32 2810 
32 2811 
32 2812 
32 2912 
32 2813 
32 281+ 
32 2815 
32 2815 
32 2816 
32 2817 
32 2818 
32 2818 
32 2819 
32 2820 
32m2BZl 
32m2821 
32m2B21 
32 2822 
32 2822 
32 2823 
32 282+ 
32*2825 
32i>2B25 
32 2B26 
32 2826 
32 2827 
32 2828 
32 2829 
32 2829 
32 2830 
32 2831 
32 2832 
32 2832 
32 2833 
32 283+ 
32 2835 
32 2S36 



07208 ei65+ei7es0e8ae8iTe+ss2az'T73i2ssa88 

07201 0105+017000000001+0+56202+731+55000 

07202 5+05+317000006055+0+55232+720+15000 

07203 5+05+317000006055+0+55232+720+16000 
0720+ 0105+017000000001+1+15202+731255000 

07205 0105+017000000001+1+15202+731+56000 

07206 560731170000K055+15016325+50316000 

07207 5+0+3117000006055+16015301+28+15000 

05376 5+063317800006055+1+152325+50516000 

05377 01033117000012775+15150085+31+56008 
05+08 01053117100022665+0+555025+70555008 

05+01 910S+137000000001+0+SS2000731+S6000 

85+02 5+053317088005055+161S2305+28+3E800 

07210 0105+017000000001+0+56202+731255000 

07211 0105+017000008081+0+55202+731+56000 
37212 0185+01 780008800 1 +8+55282+731+55008 
07213 0105+017000088801+0+56202+731+55000 
0721+ 81033137088000001+15162025+31256880 
S7215 31833137398009081+16152025+31+55800 

07216 01073117000000001+15152025+31256000 

07217 01033137000800001+16152005+31+56000 

05+03 5+0B331708000S05++5+162325+60515880 

85+8+ 01033117000013807+15150005+31+56000 

85+05 5+85331700000685++5+162325768+15e0e 

05+06 01873017000013000+5+152025+31+56080 

05+07 0105+017800005055+0+5E23+0731+16000 

05+10 5+8533178000060S++5+lS2305+20+36e00 

85+11 0ie730171000050S++S+15Z365+71S15000 

05+12 01063137800822703+0+55S025+705S6000 

05+ 1 3 1 0730 1 1 +00800000+5+ 1 52 1 25+3 1 +56088 



05+1+ 01863317000086055+0+552365+31+16008 
05+15 5+083317888086055+0+552305+20+36888 



07220 5607331700000G055+1+162325+60316000 

07221 5+055317000006055+8+562300728+16800 

07222 5+02+31700000G055+16152325+20+16000 

07223 5+02+31700000S055+15162325+20+16000 
8722+ 1 055 1 1 7000022655+0+55602+730+56000 
87225 5+055317000006055+0+56230+720+15800 

07226 03073137100022703+1+155025+70356000 

07227 01855137000000081+8++15000731+S6000 
05+16 5+073317000086055+15162305+20+36000 



07230 5507331780000605++5+15232S+60316000 

07231 81033137000000001+16162005+31+56000 

07232 5+0733170e00060S++5+16232S760+16008 

07233 5+e733178e800605++5+162325768+15e00 
0723+ 01033137000000001+16162025+31+56800 

07235 81033137000000001+15162025+31+56000 

07236 03073137100022702+5+156025+70356000 



DCMEMl rWSK[LEFTl 



.opcode[5003 
[xli5t 

1 : _i J DFS3 OrilfiSK IS.] ALLJ[D£AC] DE£T[Q] JLJf1P[HLLll S 

;HLL 
D[mSK 18.1 flLUtDaACl DEST[Q) JUnP[ha.L2] » 

DCMflSK 18.] ftLU;OiPlCl DESTCflCl NECII $ 
:HLLI 

DtmSK 18-] ftLUlD&flCl DEST[flC] NEOI t 

DFRQ DlrWSK 50) flLU[D&flCl DEST[Q1 JLTIPCHLLfll] $ 
;HLLM 

DIMASK 50) ALU[D4flC) DEST[01 NORM JUMPCHLLnZ) $ 

DF/IF DtrEdl CONO-flC-STO NEOI $ 
;HLLS 

«:sEL[nft,M;i ALUCfi) cond-ac-sto neoi * 

.reloc 
[.USE[NORnALl 
[ xlist 

list 1 IMLfl: 

fiLUtDORQl DEST[flCl NEOI $ 
rt_L2: ftLUinEMAC] DESTtHOLDl NORM JUMPtHLLl] * 

HLLni: IFRQ R-M-U DIMEMl MflSKIlB.) f)LU[DORQ] DEST I fEUSTO ] JUnP[SEOI] $ 
HLLI12: D[f1ASK 18.1 fiCSELCm.ACl flLUIDaACl DESTIflRl NORn JLB1P[HXA) * 
HXfl: DtftRl ftLU[DORQ] DESTinEMflCl NEOI * 

.opcodeiS&+l 
txlist 

list 1 DFRQ DCMASK 18.] flLU[D8,l«l D£ST[Q] JUflPtHRLl] » 

;HRL 
DimSK 18.] fiLUED&fC] DESKQ] JUI1P[HRL21 $ 

DtHASK 13-] flLUtOifC] DESKiai JUnP[HRLIl] t 
;HRLI 

D[nfiSK 18.1 I^UIDiflC] DE5TtQ] JUTPCHRLIU » 

DFRQ ALUlftCl DESKflR] JUnPtHRLMl] * 
;HRL« 

flLUlftCl OESTEftRl »DRn JIJMP[HRLf12] t 

DFRQ JUrPtHRLSll $ 

ftLUEMEMflCl DEST[flR] NORM JUnPtHRLS21 $ 



:HRLS 



IHRLl: 



otrEni RoniB- 1 



HRLIl 
HRLMl 
HRLn2 

HRL51: 



.reloc 
[.USE [NORMAL] 
[ xlist 

list 1 

riASKtLEFT] ALULDORQ] DEST[flC] NEOI $ 
HRL2: flLUtrlEnfC] D£ST[H0LD1 NORO JUnp[HRLl) S 

DdRl ROT! 18.1 mSKILEFT] flLU[DQRQ] DEST[fC] NEOI « 
D[f«l R0T[18. ] rWSKdEFTl D£ST[Q1 NORM JUMP[HLLM1) t 
D[MASK 18.) flCSELLMA.flC) flLU[D«.fC) DEST[Q] NORM S 
DtPlRl RQT[18.1 nflSK[LEFT] ftLU[DQRQ] DESTEMEnAC) NEOI » 
R-n-U DLPIEnl ROTiia.) nfSK[LEFTl DESTIQl NORM $ 
IFRQ D[rtei1) rWSKElS.) ALU[DORCI) DESHMEMSTD (W) JUnP[[;flSEDI ) 
t 
HRLS2: DlflR) ROTIIB. 1 MfiSKILEFTl DEST[Q1 NORM flC=0 LBJUr*>[HRLS3) t 
.pair 
[:. \ 2 + . 

]HRLS3: DlfW) nASK[18.) flLU[DORQ) DEST[«:) NORM $ 

DlftRl mSKtia.) flLUIDORQ) [JEST [ HEtlfiC ) NEOI » 



.opcode[510] 
[xlist 

list ) DF/IF D[rEf1) MflSK[LEFTl DeST[flC] NEOI » 

:HLL2 
DirwSK 18.) ACSELirW.AC) flLU[-D8Al [)EST[B] NEOI $ 



;HLLZI 



;HLL2M 



flLU[0] DESTIftC) NEOI $ 

ftLU[8] DEST[ftC) NEOI $ 

IFRQ D[nflSK 18.) ALU[-D&ftC) DESTIMEfBTO) JUnP[S£OI) t 

D[f1ASK 18.) ACSEL[flC,l1ft) flLU[-D8.A) DEST[8] NEOI « 

DF/IF R-M-U D[nEM) nASK[L£FT] DEST[nEnSTO («) JUnP[CASEOn S 
.•HLL2S 

DirwSK 18.] ACSELCrW.flC] flLU[-D8,fl] 0EST[|W) [:OND-i^-STO 

NORM JLriP[HLL2Sl) » 
.reloc 
[.USE[NORnM-] 
[ xlist 
list 1 ]H.LZS1: D[f«) DEST[nEmC] 

icni $ 



.opcode[51+] 
[xlist 

list 1 DF/IF D[nEri) R0T[18. ) nASK[LEFT] DEST[ftC) NEOI * 

;HRLH 
ftLU[rEf1«:i DESTtfiR] NORn JUrP[HRLZll « 



sHRLZI 



;HRL2M 



32 2837 07237 01833137000000001+16152005+31+56080 



D[IR] R0TE18.1 MftSK(LEFT] DEST[«:) NEOI $ 

D[IR) R0T[1B.) HflSKILEFT] DEST[M:] NEOI « 

PlLUIflC] DEST[flR] NORM JUnP[HRLZnH » 

l^U[flC] DeST[fiRl NORM JUnP[HRL2M2J « 

DF/IF R-M-W IFRQ D[rtn] R0T[1B. ) MASK[LEFT1 OEST[nEnSTO AR) 

JUnPtCASEOI) t 

flLU[nEMflC) DESKfiR] NORM JUMPIHRLZSl) $ 
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of — F+lMf 



32 2S«! 
32 2942 
32 2&t3 
32 2&t3 
32 29H 
3ZB2845 
32r»2B+5 
32 2S« 
32 284B 
32 2847 
32 2S48 
32 2849 
32 2849 
32 2850 
32 2851 
32 2852 
32 2852 
32 2853 
32 2854 
32 2855 
32 2855 
32 285G 
32 2858 
32 2ffi7 
32a>Z85e 
32i>2858 
32b2858 
32 2959 
32 2853 
32 2858 
32 2860 
32 28S1 
32>2aE2 
32»28K' 
32 2883 
32 28B3 
32 2884 
32 2854 
32 2865 
32 2865 
3Z Z86S 
32 2867 
32 2858 
32 2853 
32 2869 
32 2879 
32 2871 
32 2872 
32 2872 
32 2873 
32 2874 
32m2B75 
32ii2875 
32iii2875 
32 2B7S 
32 2878 
32 2877 
32 2878 
32 2879 
32 2888 
32 2881 
32 2881 
32 2882 
32 2883 
32 2884 
32ni28e5 
32K2885 
32 2886 
32 2886 
32 2887 
32 2888 
32 2889 
32 2889 
32 2890 
32 2891 
32 2892 
32 2833 
32 2894 
32 2895 
32 2896 
32 2897 
32»289e 
32B2838 
32>i2898 
32 2899 
32 2899 
32 2900 
32b2901 
32B2981 
32 2982 
32 2903 
32 2904 
32 2905 
32 2986 
32 2906 
32 2907 
32 2907 
32 2986 
32 2909 
32 2910 
32 2911 
32 2912 
32 2912 
32 2313 
32 2913 
32 2314 
32 2915 

^112916 



85420 01073117808022EE445415E025430456000 

05421 54073317008006854454152305420435908 

05422 01873137000013834454015025431455060 



07246 61673817000600001404552824751256866 

07241 5485331780806G055404562300720416800 

07242 54073317000006055404552324720415000 

07243 54073317000006055404552324728416880 

07244 01053117800022665404556024730456000 

07245 54053317880086055404552304720416080 
67245 01073017000000001404552024731255000 

07247 01053137000013835484416000731456000 



05423 54ee3ai70e00ee05541ElS2325460516000 

05424 81863137180022703416156025470556608 

072S8 01073617080006001404552824731255006 

87251 010531 1700000000141415603073145E000 

87252 0107301780 8 0000 4 56162625771456006 

87253 01673017000066000456162025771456000 
07^4 01653137606680001414152024731456000 
67255 01053137000000001414162624731458600 
07256 6187^17866000001404562024731256606 
67257 01053137000000001414152666731456666 

65425 54053317066606054456162325466516660 

0S423 54873317006006054456152325450515000 
05427 S40S33!7a0080S9554045G2324720416000 

05430 010731 17090022SS44SS15S0254304S5608 

05431 54073317000006054456152305420435000 

05432 01063137108022702456156625470556000 

05433 81073137000013034456016025431456000 



07250 01073017000000001464562024731256868 
67261 81033160400000001416152105431456866 
67252 54624317666666055415152325420416000 
07253 54624317000666655416162325420415000 

07264 61033100400000801415152125431456000 

07265 01033166486000001416162125431456666 

07266 01073017006066861404562824731256660 
87267 61633160486068001415162186431456000 



05434 61073100400006001416152125471555000 

05435 01073100500000061416162125471556866 



65436 54673317666006055414162325458515860 
05437 540533170000660S4161S232546eS15000 

05440 54055317060066655404562300720416066 

05441 54053317000006055404552300720415000 
86442 01055117000022655464556664738456866 

05443 61653117606022^5404556604730456000 

05444 54055317000006055464562364720416666 
85445 54053317006086055404562364720416000 

65446 61673137866622783414156625476556666 

65447 61663137866622783416156825476556660 

05450 01055137000013035404416066731456666 

05451 61653137660013635404416000731455000 



HRLZni: IFiKl DtflRl BDTdS.] nftSK[LEFTl CESTirEflSTO] JUMPtSEOI! « 

hSa.2n2: aiPRi R0T[1S.] rKSKILEFT! DESTCrE^Cl iCDI S 

r^<l_ii:>l: Cl^j RGTlId. 1 rlHSS< [ LEr r 1 ucSTtPi&j CIXiiD-fiC-STD i^Utin JUhP[riX251 J 

t 

.opcode[5203 
[xlist 
i!si ! OFkS DltffiSi IS. 3 DEST[Qi JiJHPiHLLQij S 

;HU.O 

oimsK la. ] AC^Lcm.fci Aaj[oa»i destcaci tcoi « 



;HUJ3I 



;HLLffl1 



DCrEni MJJtOQROl 



OCmSK IB.] OESTlfCi lEOI S 

DlfieSK IB.] OESTCAC] rEOI t 

IFRQ DinSK IS.) AUJCOQRM:] OESTirETSTO] JUnPlSESI] $ 

DCmSK IB. 1 ftCSELt«:,r«] M-UCOORfl] DESTIBI tEOI t 

DfT?a DtmSK 18.] DESTIQ] jmPtrtXOSl] «" 
jHLLOS 

DCnftSK 18.) ftCSELtMft.ACl OJJIDQRft] DESTtflR] COND-fiC-STO 
JUWIHLLZSl) « 

.reloc 
[.USECNOemL] 
t xlist 

list ] IttLDli 

DEST[RC) KEOI C 
HLLOSl: IFRQ R-tt44 OinEn) ALU[[XRQ1 DESTItCnSiO («] JUTFtCASEOI] 
t 

.opcode[5241 
txlist 

list j OH^ u£nr» IS.j QESTiQ] jUrFiHSJjij i 

;HRLO 
DIHASK 60] (C^LCMA.AC) (UitDOMC] OESTtHGLOl NQRtl JUH>[»CLI)21 • 



DEIRl ROTEIB.] KST[0] WRH .ajnPtHRLOIl] $ 
DtIR] ROTdS.) DEST(Q) KKn JUnPlHHaUi t 
DllVS>i S0] M.urD0R8C) 0E5T[I«] NGRn JUnP[(«Lam] t 
DCrvlStC 601 ALUIDORnC) DESTCflR] MKn JUnP[Maj>12] » 
DTRQ DCmSK 18.) DE5T[Q] JUnP[Ha.QSl] S 



;HRLm 



;l«LOS 

Dcms; 60] ftcsELim.M:] aluccgra] oestiar] asm jijh>[hrlos2] t 

.r«loc 

[.USECNORnflL] 

t xlist 
list ] IHRLOlt Oliei) ROTtlB.) 

ALUEDORQ] destik:) neoi • 
HRLOZ: OEHEH] ROTdB.) DESTtfiC) lEDI t 
HRLOIl: OCrt^SK 18.) flLUEQCRQ] DE5TCAC] NEOI t 
tKLCni! irRO OcflR] S0T!18. ) DESTEfEnSTO) JlWi^OIl « 
HRL0I12: DCfS) ROTE 18. ) EJESTEMEIIfiC) NED! * 

HRLDSl: IFRQ R-n-H DIfOI) R0TE18.] MJUtlXKQ] OESTEfEJISTO flRl JUftCflSEDI) 

t 
HRH3S21 DEAR] ROTEIB.) IXSTEflRl COO-tC-SW JlWIHLLZSl] ( 



.apcode[530] 
Exliit 
list ] DFRO DEmac 18.) OESTEQ] JUftrtXEl] « 

;HLLE 
RUIErEIVC) KSm CBLS<0 LBJUnP[hLLE3] C 



AUJE0] DE5TEAC1 NEOI « 
iHJJEl 

M.UE0] OESTE!C) NEOI S 

ALUEflC] nam 0Bus<e lbjiwchlleud « ;hlldi 

ALUEIC) NORM CBLS<e LBJUrPEHLLErC) « 

E)FRQ DEfWSK IB.) EJESTEQ) JlWEHLLESl ) » )HJ.ES 

ALUinEmCl NCRn GaU5<0 l.a)UrPEHLL£S3) s 

.rcloc 
E.USEENCWWLl 
E xlist 

list ) IHLLEl: DEHEJI] OBUS<0 

1.BJUMPEHLLE2] ( 
HLLESl. R-tl-U EJEHEM] (BUS<e LBJUMPEHAES2] t 
.pair 
E:. \ 2 + . 

]HLLE2: DEPEH1 rVSCELEFT] EIESTtAC) NEOI « 

DEFErlj fLUHXHai DESTEAC) NEDI C 
HLL£3< Dintm. 18.) ACSELErw.AC) ALUE-OtA) ElESTEB) NEOI • 
DEWI5K 18.) ACSELEm.nC) MJJEOGRA) OESTEB) NEOI > 
HLLEflli IFRQ Dtr«SK 18.) (CaLEACflft) ALUEHXfl] I3ESTE(tnST0] JUrPlSEOI) » 

IFRQ DitVSK IB.) (CSELEflC.mi ALUEEXIM] OESTEnEnSTO] .UFCSCOI] S 

HLLEW: OEHftSK IB.) fCSELEflC.m) MJUE-EXA] DESTES) NEOI t 

OEIVISK IB.) ACSELEMr.rW) M.UEEXR0] OESTEB) KOI ( 
HLLES2! IFRQ OEFtH] WSKELEFT] E}ESTEHEM5T0 flRJ JUPECflSEOI] t 

IFRQ DErtn) flLUESXlRO) DESTtHEnSTO «] JUHPESrASEDl) $ 

H.US3. DlrVSK IB.) ftCSELErifl.rtC) flUIE-OW) EXSTlflRl t»0-«:-STD 
JUWEM.L2511 S 

OEMflSK IS.) ACSELEHA.AC) ALUEKSM) l]ESTEflR] OWD-flC-STO 
JUrPEHLLHSl) S 



txliSt 



SLOE narch 23. 198+ 21: 



:52 file OSK:FtINST.SLD — of 



F'tltiNF 



32 2922 
32 2SZ3 
32 29Z4 
32 2325 
32 292E 
32 2327 
32 2328 
32»2323 
32«2323 
32b2S29 
32 2330 
32 2338 
32 2331 
32 2332 
32 2333 
32 2334 
32 2335 
32 2336 
32b2337 
32»2337 
32 2338 
32 2339 
32 23W 
32 29+1 
32 2342 
32 2343 
32 2344 
32 2344 
32 2945 
32 2345 
32 2946 
32 2947 
32 2348 
32 2949 

32 zassi 

32b2351 
32b2951 
32 29S2 
32 2352 
32 2353 

31 2354 

32 2SK 
32 2955 
32 Z356 
32 2957 
32 2958 
32 2358 
32 2959 
32 23Ge 
32 2361 
32 2961 
32 2362 
32 2353 
32«2364 
32i»2964 
32ni2964 
32 2965 
32 2965 
32 2966 
32 2367 
32 2968 
32 2969 
32 297e 
32 2371 
32 2972 
32«2973 
32«2373 
32 2374 
32 2974 
32 2375 
32 2376 
32 2377 
32 2377 
32 2378 
32 2379 
32 2960 
32 2980 
32 2381 
32 2382 
32 2383 
32 2383 
32 2984 
32 2385 
32ni29e6 
32B23e6 
32B23e6 
32 2387 
32 2387 
32 2988 
32 2389 
32 2330 
32 2331 
32 2932 
32 2333 
32 2333 
32 2934 
32K2335 
32n2395 
32 2336 
32 2337 
32 2938 
32 2339 
3213000 
32>3e00 
32 3001 
32 3001 
32 3002 
32 3003 

E 3804 



87274 gl973ei700ee09eei4e4S52924?3145Se00 
07275 01873017000009001404562024731455090 

0727E 01073017080000001404562024731256000 
07277 01073017088000001404562024731456000 



05452 01073102000000001418162125471556008 

05453 01033102000000001418150105431456000 

05454 01073182000080001416150125771456000 

05455 01033122000000061415162125431456000 

05456 01033122008880001415162125431456000 

05457 0107310210000000141615212547155B000 
05460 01033122008800001416162106431458000 



05462 54873317000006054454162325460516808 

05463 54063317080086854456162325460516000 

05464 01073117008022664454155025430456000 

05465 01063117080022664456156825430456000 

05466 54073317008086854454162305420436000 

05467 54063317000006854456162305428436800 
05478 0107313700eee270245415G0254705S6000 

05471 01063137000022702456156025470556880 

85472 01073137888013034454816025431456080 

85473 01863137008013034456016025431456000 



07300 01054ei70000000014141620247312S6000 
07381 01054017000080881414152024731456888 
07^2 0iSS40i700006000i4i4i52024731455006 

07303 01054017000000001414162024731456000 

07304 01054017000000881404562024731256888 

07305 01054017000088001404562024731456088 

07306 58073117008086055416016325460316088 

07307 54043117000006055416016301420416000 

05474 54063317000006055404552325460516088 

05475 01033117000013171416150005431456000 
0547S 54063317000006055404562325760416090 
05477 01063117100822555414156025470556000 
05500 01054137000086055414162340731416800 
8S01 54063317000086855416162305420436808 



07310 01054017000000001414162824731256000 
97311 01054017088088881414162024731456000 

07312 54054317000006055414162324720416000 

07313 54054317088086055414162324720416080 

07314 01933137000000001416152025431256000 

07315 01933137088888801416162025431456088 

07316 01873117888000001416162025431256088 

07317 01933137080000001416162085431455809 

05593 01933117000913205416150005431456888 
05504 01073017008813176444562025431456000 
95505 01054017000006055414152340731416000 

05506 54963317000808854444562385426436000 

05507 01973017100006054444562365471516880 
05510 01063137000022703414156825470556000 

95511 01073011400808088444562125431456000 



05512 01063317000006055414162365431416000 
86513 54063317000006055414162305420436080 



97329 56073317000886855404562325460315000 
07321 54055317808086055414162300720416000 



jHRLET! 



;Ha.ES 



□[HEni QBUSIB 



DtfiftSK 18.3 DESTIQ] Jt«P[HRLD113 t 
DiKASK 18.3 iXSTEQ] JLTPiHa-EfMi $ 

DFRQ DimSK 18.1 DESTtQl JUrF[HRLES13 % 
DtMftSK 18.1 DESTCOl JUfP[HRLES41 S 

.raloc 

i-USEiMCffiWiLJ 

: xiist 

list 1 IHRLEl: 

LBJUfP[HRLE21 « 
HRLE4: dMlVESVC'i DESTtHOLDl NORH ISUS18 LBJUrf>[»!LE21 S 
tSLEIl: DIIRl DE5TIHX0] NORM (BUSIB LBJUTPChRLEZl t 

HRLEHl: ftLUtfiCl DESTIfiRl NORM CBUS18 LBJUrPCHRLQCl S 
HRLETH: I^UCftCl CESTEl«l KSM 0BUS18 LBJUtP[HRLEn3] $ 
HR1.E51> R-n-U DCrOll OBUSIS LBJUrf>IHRLES21 « 
Ha.ES4: ALUCnOinCl DESTIM?! NCRtI GBU518 LBJUt1P[HRL£S3] t 
.pair 
t:. \ 2 ♦ . 

1HRLE2: DtHEni ROTtlB. 1 nflSKELEFTl CESTtflCl KEDI % 

DtMEMl ROTtia. 1 fiLUtDORQl DESTtfCl »£0I « 
HJLEnZ: IFRQ DIflfi] R0TC18. 1 f1ftSK[LEFTl OEST[HEnSTO] JlWCSEOIl « 

IFRQ DtftR] ROTE 18. 1 M-UCDORQl DESTtrEflSTOl JLTPlSEOIl « 
HJLEfQ: OlflR] ROT! 18. 1 rWSKILEFTl XSTIfEHACl NEOI « 

OiflR] RQTEie. 1 ALUtDCRQj DESTitCFIACl »EOI « 
IFRQ DCfOll ROTClB. 1 HASKILEFTl DESTttCnSTO flRJ JlM'tCflSEOIl 



HRLES2: 

$ 



IFRQ Oircni ROTEIS. 1 ALUdXRQl DESTirCnSTO Mil .ttjrf>[CASEOIl 



HRLES3: OEftR] ROTCia.l WSKELEFTl OESTtflRl OJD-AC-STO JUnPtHLL2Sl] t 
DKUl ROTdS.l ALUCDCKOl OESTCflRl COMJ-AC-STH JtjnP[HJ.2Sl] * 



■ c»pcodei5401 
txlirt 
list 1 OFKQ D[W)SK 681 MJUEDUCl 0CST[Q1 JUPCHRRll < 

DimSK 681 ALUIDKICI DE5T[01 AH>[l«R21 $ 



t\tSil 



;HRRn 



;t«RS 



oinnsK 601 M.UC0UC1 destiqi jtrputsiiii t 

DFRO DIWSK 18.1 ALUIKACI DCST[01 JUrPIHRRnil t 
DfrviSK 18.1 ^U[[»AC1 DESTEOl NQRII JunPCHRKMZl t 
DF/IF DEHEMl OWD-fC-STO lEOI • 

fcsatrw.ftc) sLutfti a»D-«:-STD neoi « 



OCtEHl mSKCia.! 



.rcloc 
[.USE[WXS1M.l 
t xlist 

list 1 1HRR1> 

ALUEOORQl DE5T[flCl NEOI t 
HRR2: ftLUCHETWCl CESTCHOLDl NORn JUrPItSRl] t 
i«RIli DdRl fVSKilB. 1 PLUICORQl CESTlfCl NEOI S 

HRRMl: IFRQ R-tl-H D[ftHl mSK[50] fiLU[D0R01 OESTItBISTOl JUWtSEOIl t 
Haai2: DinftSK 681 nCSEL[m,M:i ALUCOefCl OESTIdftl NORM t 
OCARl ALUIOORQl DESTIHEmCl NEOI t 



.opcocle[544] 
[xlist 
list 1 
;HLR 
DimSK 601 ALUIDtACl DESTIQI Affi\*J(Z^ % 



OFRO DIWtSK 601 M.U[0£AC1 DESTIQI JltVIHJtll * 



;HLRI 



;HLRf1 



;HLRS 



DirVSK 601 ALUID&ACl DESTIACl NEOI % 
DimSK 601 ftLUIDKAC] DESTIACI NEOI S 
V/ma (*Ml(Cl DE5T[(«1 JUnPEHLRnil s 
M.U[nCl DESTIARl NORM JUtPIHLRtCl S 
DFRQ JtjnPtHJ?Sl) S 
flLUIfOlftCl DESTIARl NORN ,HJtftHJ«2] $ 



1HJ!1: 



OltEni ROT! 18.1 



.reloc 
[.USEENDRHALl 
t xlist 

list 1 

tnSKtlS. 3 nLUIDORQl DESTIfCl NEOI « 
HJ?2. flLUIPETIfiCl OeSTtHOLOl NORH JUnPIHLRll t 
Hjail: DIftRl ROTIia. 1 nASKIlB.l DESTIQI NORM JUnPIHRRnil $ 
HLRn2: DimSK 691 ACSELim.lCI ALUIO&lC] DESTIQI NORn t 

DIkRI ROTtlB. 1 mSKIiS. 3 fiLUIDORQJ DEBTIHEfiSCl NEOI S 

HLRSii R-n-U otrcn] roths. i tnsKiia. i destiqi norti * 

IFRQ OinEHl fttStCILEFTl MJJIOOROl OESTtttJISTO (Wl JUPtCftSEDIl 

s 

HJJS2: DtflRl ROTtlB. 1 IWSKIia. 1 DESTIQI NDRtl «:«8 LflJUflHLRSSl • 
.pair 
[:. \ 2 + . 

lHJS3s DIARl FWSKILEFTl ALUIDGRQl DESTIMIl NORM « 

D[M;1 tV)5K[L£FT] MJJIDORQl OESTItOVCl lEOI * 



.opcodelSai 
[xlist 
list 1 DF/IF Diftni (KSKtlB. 1 OESTIfiCl NEOI « 

;W!RZ 
DimSK 681 flCSELirw.ACl ALUI-OSAl OESTIBl NEOI * 



«o 1 fvrcTrA/*! i^-ifiT 



>\tS3.l 



SLCE March Z3, 1984 21:83 = 03 file DSK:F+INST.SLO 



3Z aeee 

32 3009 
32 3010 
32 3010 
32 3811 
32 3012 
32 3012 
32 3013 
32 3014 
32b3815 
3Zii3815 
32 3016 
32 3016 
32 3817 
32 3018 
32 3019 
32 3013 
32 3020 
32 3821 
32 3822 
32 3822 
32 3823 
32 3824 
32 302S 
32 3826 
32 3826 
32 3027 
32 3828 
32i»382g 
32.3823 
32-3029 
32 3030 
32 3830 
32 3831 
32 3832 
32 3833 
32 3833 
32 3034 
32a3e35 
32>383S 
32 3036 

32 3KUD 

32 3837 
32 3838 

32 3833 
32 3839 
32 3840 
32 3841 
32 3842 
32 3842 
32 3043 
32 3044 
32 3045 
32 3045 
32 304S 
32 304E 
32 3047 
32»304B 
32»3e4B 
32n304S 
32 3049 
32 3049 
32 3050 
32 3051 
32 3051 
32 3052 
32b3053 
32b3053 
32 3054 
32 3054 
32 3055 
32 3055 
32 3056 
32 3057 
32 3057 
32 3058 
32 3053 
32 3060 
32 3060 
32 3061 
32 3062 
32 3063 
32 3063 
32 3064 
32 3065 
32a3068 
32B3e66 

32«3ee6 

32 3067 
32 3067 
32 3068 
32 3K3 
32 3070 
32 3071 
32 3071 
32 3072 
32 3073 
32 3074 
32»3075 
32iia075 
32 3076 
32 3076 
32 3077 
32 3078 
32 3079 
32 3080 
32 3661 
32 3062 
^ ^?2H3 
X. 3064 



87325 54855317000686055414182384728416000 
0732S 03073137100022703404^5825473356006 



of — F41NNF 

DCmSK 603 f£SEL!ftC,fiftJ flLUiH»flJ 0EST[B1 NEOI t 

S^/IF R-n-ii OIHEHi FiftSCilS.] DESTtStHSTQ fiR] JilTtCflSEDI] $ 



07327 01055137000022707414016080730456000 



07330 56073317000006054444562325460316000 

07331 01033137000000001416182005431456000 

07332 54024317000006055416162325420416080 

07333 54024317000006055416152325420416000 

07334 01033137800000001416152025431456000 

07335 01033137000000001416162025431456000 

07336 03073137100022702444556025470356000 

07337 01033137000000001416162005431456000 

05514 54073317000006054444562325420416000 

05515 01073117000022664444556025430456000 

05516 54073317000006054444562305420436000 
6ffii7 01873137080822706444415025438455008 

07340 01073817000000001414162024731256000 

07341 5405331700000G05S4H152380720416000 

07342 01073017000000001414162024731456000 

07343 81073017000000001414152024731455000 

07344 010531 17000022S6S414156024730456000 

07345 54053317000006055414162304720416000 

07346 01073017000000001414162024731256000 

07347 81053137800022707414016000730456000 



05520 54063317000006055416162325460516000 



05521 54063317000086055416162325760416000 

05522 81063137180022703416156825470556000 



07350 01073017000000001414162824731255000 

07351 01053117000000001404550000731456000 

07352 54073317000006055414162324720416000 

07353 54073317000006055414152324720416000 

07354 81853137800000001404552024731456800 

07355 01053137000000001404562024731456000 

07356 01073017000000001414152024731256000 

07357 01053137000000001404562000731456000 

85523 54863317000005054455152325460516800 

05524 54073317000006054456162325460516000 

05525 8197311700^22554455156025436455000 

05526 54073317000006054456162305420436000 

05527 01063137190022702456155825470556000 

05538 01873137000022706455016025430456800 

87360 01073817000000001414162024731256000 

07361 01833182000000001416162105431456000 

07362 01073017000000001414162024731455000 
073G3 01073017000000001414152024731455000 

07364 01833182808086001416162125431455008 



;«gas 



DCmSK 60] flCSELtm.flC) flUUt-DaflJ DESTtflR] COHD-AC-STO 

NORtI JUftHftCSTOl IFRQ S 



. opcock; [ 554 ] 
[xlist 

list ) DF/IF DtnOI] ROTtia. I HftSKIlS. 1 CESTtfC] NEOI t 

:ttRZ 
AUJ[fCn(C] 0E5T[f«l NORtI JUMPCHLR21] $ 



;rtJGI 



;HLR2n 



:HJ2S 



ALUCOl DESTEW:] (COI S 

ALU[0] DESTEACl NEOI t 

(tMlfCl DESTCAR) NORM JLTPCHLRHMl] * 

ALUIRC] CESTIAR1 NORM JUrP[H.R2M21 S 

DF/IF R-fl-H OtMEH] ROTtlB. 1 tWSKtlB. ] DESTCPtnSTO f«l 

JUPICASEOn « 

ALUrMEMAC) DESTtARl HCSm JUPCHJGSl) $ 



OCAR] ROTCia.l 



•rcloc 
[.USEINOimAL] 
t xlist 

list ] IHjei: 

MASKIlB. ] DESTCACl NEOI S 
HLRZni: IFRQ DEAR] ROTEIB.] MASKIlB.] DESTCMEnSTO] JUtFISEOI] * 
HLRZK2: DEAR] ROTE IB. ] MASKEIB.] DESTEMEMAC] NEOI t 

H-RZSli BEAR] RCTE13. 1 (WSKElS.l OESTEfiRl !3JC-AC-SiO NORtI JUHPEMAtSTOl 
IFRQ f 

.opcock>E550) 
Exliit 

list ] DFRQ DEMASK Bdl DE5TEQ] JUTPEMSOl] $ 

JnRRO 

DEMASC 601 AC5ELEMA.AC] ALEJEOGRAl DE5TEAC] liEOI t 



;HRRai 



;HRR0t1 



DErei] AUJEOCROl 



DEMAStC 60] DESTEQl JUrCEHRROIl] « 

DEMASK 60] XSTEQl JUMPEhfiROIl] « 

IFRQ OlMASK 601 AEOJEDCRAC] ElESTEMEMSTO] JUTPESEOI] * 

DEM^SK 50] AErSELEAC.MAl ALUEDORAl [X5TEB] >EOI S 

DFRQ DEHASK 601 DESTEQ] JUHPEHRRtKl] • 

;HRRaS 

DEHASK 50] ACaLEMA.AC) ALUEDORA] EXSTEAR] E3BD-AC-ST0 
JEJTfEHACSTO] IFRQ $ 

•reloc 
E.EJSEENORIIAL] 
i xlist 

list ] ]HRRD1: 

DESTEAC] (COI « 
HiROIli DEIR] ALUEDORQl DESTEAC] NEOI t 

rtSROSl: IFRQ R-fl-H DEHEM] ALUEDORO) OESTEMEHSTD AR] JUnPECMSEOI] 
t 

.apcodeE554] 
Ixlist 

list ] DFRQ DEMASC 68] DESTEQ] JUrFEHE-ROll * 

jH.R0 
OEMASK 18.1 ACSELEMA.AC] ALUEDORACl DE5TEHQU3] NORM JUK'IUJSZ} % 



OEMASK 501 DESTEAC] lEOI ( 

DEMAStC 60] DESTEAC] NEOI t 

DEMASK IB.] ALUEDCRAC] DE5TEAR] N0O1 JUfEHLRCIIll « 

OEMASK IB.] ALUtDORAC] OESTEARl NORM JUnPEHJ^CTC] * 

DFRQ DEHASK 58] DESTEQ] JUMPEEtROSl] » 



.•HLROn 



DEMASK IB.] AC^LEMA.AC] ALUEDGRA] DESTEAR] NORM JUrf>EH.R0S2] S 



OErtMl RDTE18.1 



.reloc 
E.USEENORHAL] 
E xlist 

list ] DLROl: 

ALUEEXKQ] DESTEAC] NEOI $ 
HLR02: DEMEM] R0TE18.] DESTEAC] NEOI « 
HLRORl: IFRQ DEAR] ROTE 13. 3 DESTEME-fSTDl JiWESEDI] S 
HLROTE: DEAR] RDTEIB. 1 DESTEfEMACl NEOI » 

HLROSl: IFRQ R-M-H DEItH] ROTEIB.] ALUEDORQ] DESTEttHSTO AR] JUWECASEOI] 

* 
H.R0S2: DEAR] ROTElS.l DESTEARl a3M>-<C-5TO JUHPEMACSTOl IFRQ « 



. opcode E 570 3 
Exlist 

list ] OFRQ OEMASK 601 I3CSTE0] JUTPEEKREll t 

ALUErCMAC] NORtI QBUSIB t.ajUH>EEfiRE3] * 

DEHASK 60] DESTEQ] JLTPEHRREIl] » ;HRREI 

DlHASK 60] DESTEQ] JUTPEHRREIl] ( 

ALUEAC] NORM OBUSIB LBJlWEtSREMl ] » :t«REH 

etiitrari unoM not a a ■ d iiB^ri.DOCM7i c 



SLOE March 23, 19B4 21:83:14 file STRING: 



— of 



F41NNF 



3Zb308S 
32 3683 

32 3883 
32 3830 
32 3031 
32B3e92 
32>3032 
32 3033 
32 3334 
32 309S 
32 3036 
32 3037 
32 3037 
32 3098 
32 3038 
32 3093 
32 3108 
32 3101 
32 3102 
32 3103 
32 3103 
32 3104 
32 3104 
32 3105 
32 3106 
32ra3107 
32n>3107 
32 3108 
32 3106 
32 3109 
32 3110 
32 3111 
32 3112 
32 3113 
32 3114 
32 3115 
32 31 le 
32 3117 
32 3118 
32 3113 
32in3120 
32=3120 
32bi3120 
32 3121 
32 3121 
32 3122 
32 3123 
32 3124 
32 3125 
32 3126 
32m3127 
32m3127 
32 3128 
32 3129 
32 3130 
32 3131 
32 3132 
32 3133 
32 3134 
32 3134 
32 3135 
32 3135 
32 3136 



05531 01073192808000001416152125471556008 



85532 813731829909^9ai416!5012S??145S08e 
05533 01073102108608861416152125471556080 



05534 54873317088006865404562325460516080 

8S535 54ee33i7eeeee6ess4iEi5232S4sa5i5e8e 

05536 54055317008806055414152300720416008 

05537 54053317008806855414152300720416080 
85540 01055117080822665414156084730456008 

05541 01053117808822655414156004730456000 

05542 54055317800886055414152384720416800 

85543 54053317008ee60S54141S23e472»4158ee 

85544 01073137888822703404556825478556080 

05545 01063137000022783416156025470556088 

05546 81055137008822707414015000730456008 

05547 81053137008822707414016000730456008 



87370 81073017000600801414162024731256008 
07371 81073817000000801414162024731455000 

87372 54024317088066055416162325420416000 

87373 54024317008806855415152325428415888 

07374 01073817000008801414152024731456000 

07375 0!07301700e0000014141S2024731456000 

07375 81073017008000881414162824731256000 
07377 81073017088008801414162824731456880 



05550 81073100400000001415152125471555000 

05551 01933108408608801415150105431456800 
8SSS2 81033120488088001416152125431456880 
BS553 81033120400000001416152125431456088 
85554 01073102188813310455150125471555888 
05555 01033120400000881415162185431456008 



85556 54073317008686054444562325468515808 
05557 54063317000806054456152325460515000 
85560 81073117088022664444556025430456088 
05561 81053117000022664456156025430455080 
05552 54073317080006054444562305420436000 

05563 54063317888806854456162385428436880 

05564 01073137888022786444416025438456088 

05555 81063137888022706456015025430456008 



Dtrei! tBusis 



t xljst 

list 1 ]HRRE1: 

LBJUPS'[HRi?E2J % 
HRREIl: DriRl CESTtJCLDl SOW DajSlS LBJUMP [ HRRE2 1 S 

HRRESl: R-n-U Dlrtn] OBUSIB LBJUf1P[HRRES21 » 
.pair 
t:. \ 2 + . 

]HRRE2: Otrtri] fWSKIlS.] DeST[ftCJ NEOI » 

DrfCM! f!LU[D0RQ3 DESTrPC! MEOI « 
HR?E3: OIRASK 501 fiCSEL[flA,flC] ALUt-D&Al DESTIBI NEQI S 
OIHASK 50] ACSELIiW.ftC] ALUCOORA] OESTtB] NEOI $ 
HRREMl: IFRQ DtfWSK 601 ACSEL[fC.nA] flUJ[-D8fil OESTirEMSTD) JUHPtSEDI] » 

ITO3 Dttwac 601 ftCSELtflC.MflJ flLUIDORAl DESTtttflSTO] JUWtScOIl $ 

HRREH2: DtrWSK 501 flCSELCflCHfl] flLU[-0£ftl DESTCB] NEOI t 

DEmSK 581 MTSELIACrVI] ALUCOORAl DESTIBl NEOI » 
HRRES2: IFRQ Dtttni HASKtlB.l DESTCMETSTO (*1 JUnPICASEOIl $ 

IFRQ Dlrtnl flLUEDORQl DESTCrEHSTO fRl JUnPCCflSEOIl S 

HRRES3: DirWSK 531 (CSELIfK.flCl flLU[-0£ftl DESTCflRl OJD-flC-STO 
JlUPIMACSTQl IFRQ * 

DttlfiSK 601 flCSQ.'.PW.flCl ALUCDORfil DESTCflRl COND-flC-STO 
JUtPlmCSTOl IFRQ t 



-opcode [5741 
[xlist 

list 1 DFRQ OrmSK 501 DESTIQI JUTIPCHLREll $ 

;HLRE 

DlflHSK S0j OtSiiQJ JijP»'[HLKt41 % 



flLU[8] C€STIflC) ICOI » 
M.U[81 C€ST[M:] NEOI $ 



OCflftSlC 681 DESTIQI JUMPCHLREflll S 
D[WSK 581 DESTCQl JUfPIHJ?En41 $ 



DFRQ DiriftSK 501 DESTCQl JlWIHLRESl] * 
OlttftSK 601 OESTIQ] JUnPCH-RES4S * 



;HJ!EI 



;HU«M 



:rtJ?ES 



Direii 



.reloc 
[.USE [NORMAL! 
[ xlist 

list 1 IHLREl: 

NORM 0GUS<9 LejUMP[HLRE2] » 
H-RE4: ALUtrENACl OESTIHQLDl NOOI (BUS<0 LBJUrP[HLRE2I » 
HLREHl: flLUCfC] OESTIfiRl NORM OBUS<0 LBJUrPIHLRErGl $ 
H.REt14: ftLU[l«J DEST[ftRl NORM CIBLE<8 LBJLWCHLREnSl » 
HLRESl: R-M-W DCrtnl ROTdB.l DESTCHOLDl igORtl 0BUS19 LeJLffP[HRRES21 $ 
HLRES4: PlLUCMEMACl OESTCflRl KKfl O8US<0 LBJUTP t HLRES3 1 t 
.pair 
[:. \ 2 + . 

1HLRE2: DIMEHJ ROTilB.l FifSKiia.J OESTCflCi NEDI * 

OCMEMl ROTClB.l flLUCDCRQI OESTtflCl NEOI $ 
H-RErC: IFRO D(r*] ROTClB. 1 MASK[18. 1 CCSTirtMSTOl JUHPISEOIl » 
IFRQ DCftRl RCTClB.l flLUtOOROl DESTCdEnSTOl JUrf[SEOIl * 
HLREHB: D[AR] ROTilB.l mSK[18. 1 DEST[fEnfCl NEOI $ 

DiARl RQTIie. 1 ALUCOORCl DESTCHEIKCl NEOI $ 
HLRES3: DiflRl EOTiiS. 1 HASKilB. 1 DESTCflRl OSiD-AC-aTu JUfPCHfiCSTOl IFRQ $ 

DCfWl R0TC18. ] flLUCDORQl DESTCflRl CIWD-AC-STD JUMPCflfCSTOl IFRQ S 



SLOE ttarch 23, 1984 21:65:22 file DSK = F4IfBT.SL0 



of — F+IWF 



33 3137 




33a3139 




aam3138 




33 3139 


07400 


33 3139 




33 3140 


07401 


33 3141 




33 3142 


07402 


33 3142 




33 3143 07483 


33 3144 




33 3145 074«4 


33 3145 




33 314« 


074«5 


33 3146 




33 3147 




33 3148 e74«G 


33 3148 




33 3149 07407 


33 3149 




33 3150 




33 3151 


07410 


33 3151 




33 3152 


07411 


33 3152 




33 3153 




33 3154 


07412 


33 3154 




33 3155 


07413 


33 3155 




33 3158 




33 3157 


07414 


33 3157 




33 3158 


07415 


33 3158 




33 3153 




33 31E0 0741B 


33 31G0 




33 3161 


07417 


33 3161 




33 3152 




33 3153 




33«3164 




33n3164 




33 3155 


07420 


33 3155 




33 316G 


07421 


33 3167 




33 3168 


07422 


33 3168 




33 3163 07423 


33 3176 




33 3171 


07424 


33 3171 




33 3172 


07425 


33 3173 




33 3174 


0742E 


33 3174 




33 3175 


07427 


33 3175 




33 3177 


07430 


33 3177 




33 3178 


07431 


33 3178 




33 3179 




33 3180 


07432 


33 3180 




33 3181 


07433 


33 3181 




33 3182 




33 3183 


07434 


33 3183 




33 3184 


07435 


33 3185 




33 3186 


07436 


33 3186 




33 3187 


07437 


33 3188 




33ii3189 




33ii3189 




33B3189 




33 3190 


65566 


33 3190 




33 3131 


65567 


33 3192 




33ii3133 




33>3193 




33 3194 


07440 


33 3194 




33 3195 


07441 


33 3196 




33 3197 07442 


33 3197 




33 3198 


07443 


33 3139 




33 ^00 07444 


33 3200 




33 3201 


07445 


33 3201 




33 3202 




33 3203 07446 


33 3203 




33 3204 


07447 


33 3204 




33 3205 




33 3206 


07450 


33 3206 




33 3207 07451 


33 3Z08 




33 3209 07452 



540731170000^6055416162325420416000 
54073117000006055416162325420416000 
54073117000606055416152325420415000 
54073117000306055416162325420416000 
54054100000007355404562325760416000 
54054100000007355404562325760416000 

54054100000007354454162325780416000 
54054 1 00000007354454 1 523257504 1 5000 

54073117200007355415162325420416000 
54073117200007355415152325420416000 

540731 17200007355416162325420416000 
54073117200007355416152325420416000 

54054100200007355404562325760416000 
54054100200007355404562325750416000 

54054100200007354454162325750415000 
54054100280007354454152325750416000 



54073117000006055415162325420416000 
54073117000006055416162325420416000 
54073117000006055415162325420416000 
54073 1 1 70000060554 1 6 1 623254204 1 5000 
56054100000007355416162325450315000 
54014100000607355416152301420416000 
56054100600007354456162325450316000 
01033137000000001416152065431456000 
54073117206667355416162325420415000 
54073117200007355416152325420416066 

54073117200007355416162325420416000 
54073117206667355416162325420416000 

56054106200007355416162325460316000 
54014100200007355415162301420416000 
56054 1 60200007354456 1 623254603 1 6060 
01033137000000001415162005431456000 

54054100000007354456162325420416000 
54054 1 00200007354456 1623254204 16006 

54055317000006055404562325760415000 
54055317000006055404562325760416060 
54055317000666054454152325760416060 
54055317066606054454162325750416000 
! 054 1 0020000060 1 40455206577 1 456000 
01054100200000001404562065771456000 

01054100206000000454162065771456600 
01054100200000006454162065771456000 

54055317200007355404562325760415000 
5405531 72000073554045623257604 16006 
54055317200007354454152325760416000 



.opcodel6601 
ixi isi 

1 i si ] NEOI S 
;THN 
NEOI t 

NEOI t 



KEQI S 

DIIR] l1AS»C!ia.3 ALUCDUC] CONOSKPtM.U^] S 

DCiRi msic[i8. ] (Luiastci aM3SKPieut=e: s 

DtIR] ROTtlS. 1 MA5KILEFT] flLUCKfCJ aWDSKPtflLU=01 S 
DCIRI R0TI18.] nnSICtLEFT] ALUCO&ACl COM)SKP[ALU=0] % 



;TRJE 



;TLNE 



CONDSKPCALWrtrS) S 
;TRNfi 
CDKKKPCflLtWYS] S 



CONOSKP[flLUAYS] * 
;TLNfl 
CONDSKPtflLUflYS] $ 



OCIR] mSKtia.l ftLUCD&flC] aM)SKP[-flLU=01 $ 



;TR^W 



D[IR1 MflSKIia.) M_U[DaflCl CDND5iCPI-fiLU=01 $ 



:TLW( 



D[IR] ROTdS.l MfSKCLETT) flLUICfeflC) aMDSKP[-M.U=0] $ 
D[IR) EOTIia. 1 rWSKCLEFT) M-UID&fCl COCSKP t -«.U=0 ] $ 



.opcode[610] 
Ixlist 

list 1 NEOI t 
;TDN 
NEOI « 



NEOI S 

»£0I t 

OF/IF DLttnl flLUCD&flC) C0M3SKP [ flLU=0 1 t 

fCSELtnfl.ftC] SLUCAftBl OWDSKPIPLU-e) s 

DF/IF D[fETl] ROTtia. 1 flLUID&flCl CONDSKP[«.U=0) $ 

flLUIMEWCl DESTIflRl NORM JUMPITSNEll » 



;TDNE 



;TSNE 



CONDSKPI ALWAYS] « 
;TDW1 
CONDSKPtflLUflYS] » 



COfOSKPIALUAYS] S 
;TSNfl 
CONDSKPIALIWYS] $ 



;T1»« 



:T5I« 



DF/IF DCHEni ALUlDftACl a]W)SKP[-ftLl>=01 « 
flCSELCm.flCl flLUIfliB) CONDStCP[-M.U=0] S 
DF/IF DtMEm ROTtia. 1 ftLUCDiflC] COM)S»CP[-flLU=0] C 
ftLUtnEHflCl DEST[flRl W391 JUHPITSNNI] « 



.reloc 
CUSEtNOawL] 
[ xlist 

list ! ITSNEl: 

flLUCD&flCl C0ND5KP[flLU=ei « 
TSNNl; D[AR] ROTIia.l ALUIOtfC] ONSSICP [ -ALLX 1 C 



0[I«1 ROTllB.] 



.opcode[620] 
txlist 

list 1 D[IR] tWSXIia. 1 ALU[-0&AC] DCSTCACl »EOI • 

;TRH 
DIIR] llffiKtia.] «.U[-D4«:i DESTtfiC] lEDI $ 



;TL2 



;TRZE 



DtlRl ROniS.] IKBKCLEFTl flLUi-OsfiCJ DESTiflC] NEOI S 

DtlRl ROT[ia.] HftSKILEFT) flLUI-OlftC] DESTiflC) NEOI • 

ociRi nflSKCie. ] aluid&aci condcobus^i norti jurvLCiTRZii « 

OtIRl mSKIie. ] N.U(D£flC] CaK)IOeuS=0] now JttFLCITRZll • 



OUR] ROTEIB. 1 mSKILEFTl ALUIO&flCl 0aiS=8 NORM JUnPLCITLZll « 
;TLZE 

DtIR] ROTtia. 1 nfOCtLEFT] flLUtD&flC] CONDtOBUS-ei NORH 

JLTPLCtTLZll » 



;TRZfl 



DtIR] Mi:ia<tl8. 1 flLUt-DtflCl DESTtflC] OJOSKPtflLUflYS] « 
DtIR] MftSKtia. ] flLUt-O&flCl DESTtACl COUDSKPlALMflYSl * 
DtIR] ROTtie.l rmSKCLEFT] flLUt-IXACl OCSTCAC] CDDSKPtflLUflYS] C 



SLOE March 23, 1384 21:89:39 file DSK:F+INST.SLO — of 



33 3213 
33 3213 
33 321+ 
33 3215 
33 3215 
33 321S 
33 3215 
33 3217 
33 3218 
33i>3219 
33n321S 
33>>3213 
33 3229 
33 3221 
33 3222 
33 3223 
33 322+ 
33 3225 
33 3226 
33»a227 
33<n3227 
33 3228 
33 3228 
33 3229 
33 3230 
33 3231 
33 3231 
33 3Z32 
33 3233 
33 323+ 
33 323+ 
33 3235 
33 3235 
33 323G 
33 3237 
33 3237 
33 3238 
33 3239 
33 32+e 
33 32+« 
33 32+1 
53 52+2 
33 32+3 
33 32+3 
33 32++ 
33 32+5 
33 32+6 
33 32+G 
33 32+7 
33 32+7 
33 32+8 
33 32+3 
33 32+9 
33 325e 
33 3251 
33«32S2 
33n>32S2 
33n32S2 
33 3253 
33 32S+ 
33 32S5 
33 32SE 
33 32S7 
33 3258 
33 3259 
33 3250 
33 3261 
33 3262 
33 3263 
33 326+ 
33i>3265 
33n3265 
33 3266 
33 3266 
33 3267 
33 3268 
33 3269 
33 3269 
33 3276 
33 3271 
33 3272 
33 3272 
33 3273 
33 3273 
33 327+ 
33 3275 
33 3275 
33 3276 
33 3276 
33 3277 
33 3278 
33 3278 
33 3279 
33 3288 
33 3281 
33 3281 
33 3282 
33 3283 
33 328+ 
33 328+ 
33 3285 
33 3286 
33 3286 
33 3287 
33 3287 
33 3288 
33 3288 
33 3289 
33n3ZW 
3a»329e 



07+55 eias+1 

07+56 0165+190000000006+5+162065771+56000 
07+57 0105+100000000000+5+152065771+56000 



F+1I«F 

DtlRl MASKtie. ) «.UtD&flCl CCNDt-O8lJS=0] MORtl JUMPLCtTRZl] « 



05570 5+0553156000073S5+0455232S760+15000 

05571 5+055315600e073S++5+152325760+16000 

07+60 56055317000006055+16162325+50316000 
07+61 5+015317000606055+16162301+20+15000 
07+62 560553i70eee9605++56162325+60315006 
07+63 01033117200090001+151500+5+31+5G000 
07+6+ 0305+100200000001+16152065+71355000 
07+65 0101+J00200000001+151620+1+31+56000 

07+66 0305+100200000000+561620^+71356000 
07+67 01033117000000001+16150005+31+56000 
07+70 55055317200007355+16162325+60316000 
07+71 5+015317200007355+16162301+20+16000 
07+72 55055317200007^++56162325+50316000 
07+73 01033117000000001+161500+5+31+56000 
07+7+ 0305+100000000001+16162065+71356000 
07+75 0101+100000000001+161620+1+31+56000 

07+76 0305+100000000000+561620ffi+71K6000 
07+77 01033117000000001+16150005+31+56000 



05572 5+05531560060735+455162325+50515006 

05573 5+055315600007355+16162325+60516000 
0557+ 5+01531S600007355+1E162301+20+16000 

05575 0105+100Z000133e++5ei62065+71556000 

05576 0105+10000001336++56162065+71556000 

07500 5+056317000006055+0+562325760+16000 

07501 5+056317000006055+0+562325760+16000 

07502 5+0S631700000605++5+16232S760+16000 

07503 5+05631700000605++5+162325760+16000 
0750+ 0105+100200000001+0+562065771+56000 

07505 0105+100200000001+0+562065771+56000 

07506 0105+100200000000+5+152065771+56000 

07507 0105+100200000000+5+152065771+55000 

07510 5+056317200007355+0+562325760+16000 

07511 5+0563172000073S5+0+S6232S760+16000 

07512 5+ffi631720000735++5+162325760+16000 

07513 5+0S631720000735++5+162325760+16000 
0751+ 0105+100000000001+0+562065771+56000 

07515 0105+100000000001+0+562065771+56000 

07516 0105+100000000000+5+162065771+56000 

07517 0105+100000000000+5+162065771+56000 



DilR) RQT[18. J mSKlLEFT] flLU[D6ftCJ -aBUS=e NORM jUnPLClTLZli « 
;TLa 

D[II?1 ROTIia. ] riftSKCLEFT) flLUdXftCJ aWD[-nBUS=01 NQRH 

JUflPLCLTLZl] » 



•reioc 
[.USE[MORnM-] 
[ xlist 
list ] 



1 



TRHl: DtIR] mSKdB. ] flLUt-OiflC] DESKfiC] CDNDSKP[LfSTl t 

TL21: DtIR] RDTtia. 1 rj«KtLEFTl flLUHJiftC] DESUAC] CDNDSKPCLAST] t 

.opcode[630] 
[xlist 

list 1 OF/IF DtfCM] fSLUI-DSAC] OESTCflCl MEOI » 

;TD2 
flCSELtMfl.ftCl ALUS-AaSI DESTIAC] NEOI $ 



:TS2 



DF/IF DirEni ROTHS. J flLUI-DaACl DESTIflCl NEOI S 

ALU[«EnflC] DESTIHOLD] MORA FALSE JU«PLC[TSE1] $ 

DFAIT Dit^m ALUCDiAC] COND[QBLE=0] NCRM JUMPLCLTDZXll * 
:TDZE 
fCSELlm.AC! ALU[ftaBl aM3[OBUS=01 NORM JUHPLC [ TD2X2 1 » 



;TSZE 



;TDHA 



jTSZft 



;TD2N 



;T5ZN 



DF/UT DIHEH) ROTCIB. 1 ALUCOtftCl OBUS=0 NORM JUr»1.C[TS2n » 

ALUtrtmCl DESTtHQLDl MORfl JUnPtTSZEll « 

DF/IF OinEtM ALUUXfCl CESTIflCl CDHDSKP t ALWAYS ] f 

ACSELCnft.AC] ALU[-ft£Bl DESTCB] CCNKKPIALWAYSl $ 

DF/IF DlMEMl ROTIIB. 1 ALU[-0£flC] OEST[AC] CCM3SKP [ ALWAYS 1 * 

ALUtrEHACl DESTCHa-Dl KDRPI TRUE jmPLC[TS21] S 

DF/UT DEMEMl ALUCOiflC) COND [ K)aUS=0 ] NORM JUMPLCITDZXl 1 » 

AC5EL[MA,AC1 ALUCftiBl COND[-OBUS=01 NORM JUMPLC [ TDHXZ I » 

DF/WT OtftM) ROTdS. ] ALU[D£AC1 -CajS=0 NORM JUHPLCETSZll « 
ALUCrEMACl DESTCHOLD] NORM JLWITSZNl] * 



-reloc 
[.USE[NORmLl 
I xlist 

list ] ] 

T5Z1: DiPEM] ROTiiS- i «.Ui-OftAC; DESTiAC) COHCSKPtLAST; * 

TD2X1: DtHEM) ALUC-D&PCl OEST[flC] OMSKPtLflSTl « 

TDZX2! ftCSELEMA.ACl ftLU[-A£8) OESTtB] COHSKPCLAST] » 

TS2E1: OIMEM] ROTHS.) ALUCKAC] a»DIQBUS=01 NORM JUTPLCITSZl] » 

TS2N1! DtMEH] ROTEIS.J ALUCDMC] a»DI-DBtB=01 NORM JUrPLCITSEll « 



.opcode [6+0] 
[xlist 

list ] D[iRi nASK[iB. 1 alu[cmm:] dest[m:] neoi t 

;TRC 
D[IR] nA9C[18.] ALU[0MC] DESTIACI NEOI $ 



;TLC 



■AKC£ 



DtIR] R0T[1B.1 MASK[L£FT] ALUEOmACI DESTEAC) NEOI S 

OtlR) RQT[18.1 MASKILEFTI ALUEOartCl OEST[«:] ICOI S 

0[IR1 MASKdS.l ALU[DSAC] COND[OBUS=01 NORM JUnPLC[TRCll $ 

D[IR) MASK[1B. 1 ALU[IXAC1 C3M)[OBUS=01 NORM JUt«.C[TRCl) * 



D[IR1 R0T[18. 1 MASK[LEFT1 flLU[tXPCl OBUS=0 NQRH JUTPLCITLCll $ 
■,TLCE 

D[IR] R0T[1B. ] MASK[LEFT] ALU[IXAC1 a»0[C8U6^] NCRH 

JUnPLC[TLCl) » 



;TRCfi 



;TLCA 



;TRCN 



D[IR) nfiSK[18. 1 ALU[0>iflC] I5EST[AC) t2M3SKP[ ALWAYS 1 $ 

D[IR] nA5K[lB. ] ALU[>iAC] OEST[AC] CCNDSKP[flLUAYS] « 

D[IR] R0T[18. ] mSt([LEFT] dJilOlfCi OEST[AC] aMDSKP[ALUAYS] • 

D[IR] R0T[1B.1 nASK[LEFT] ALU[DMC] 0EST[AC1 CONDSKPE ALWAYS 1 * 

D[IR1 nASK[18. 1 ALU[D&AC] CnO(-OeU5=01 NORM JUVLC[TRCn * 

D[IR) MASKEia. ] ALUIDtACl [3IK)[-0aJ5=9I NORM JUtPLC[TRCl] t 



0[IR] ROT[lfl. J nASK[LEFri flLU[DtflCl -aBU5«0 NORM JUMPLCETLCII » 

;TL(J( 

0[IR] RQT[18. ] nASK[L£FT] fiLU[D«PCl COND[-OBUS=0] NORM 
JljrPLC[TLCl] « 

.reloc 
[.USE! NORMAL) 



SLCE narch Z3, 19B4 21:03:33 file DaC:F4INST.SLD 



F+INNF 



33 3235 
33 3236 
33b3297 
3303ZS7 
33 3298 
33 3238 
33 3293 
33 3388 
33 3331 
33 3301 
33 3382 
33 3383 
33 3384 
33 3384 
33 3385 
33 3385 
33 3386 
33 3397 
33 3387 
33 3386 
33 3389 
33 3318 
33 3318 
33 3311 
33 3312 
33 3313 
33 3313 
33 33H 
33 331S 
33 331B 
33 331E 
33 3317 
33 3317 
33 3318 
33 3313 
33 3319 
33 3328 
33 3321 
33«3322 
33i>3322 
33.3322 
33 3323 
33 3324 
33 332S 
33 3326 
33 3327 
33 3328 
33 3329 
33 3338 
33 3331 
33 3332 
33 3333 
33 3334 

33M3336 
33b3336 
33 3337 
33 3337 
33 3336 
33 3333 
33 334« 
33 3348 
33 3341 
33 3342 
33 3343 
33 3343 
33 3344 
33 3344 
33 3345 
33 3346 
33 3346 
33 3347 
33 3347 
33 3346 
33 3349 
33 3349 
33 3358 
33 3351 

33 3354 
33 3355 
33 3355 
33 3356 
33 3356 
33 3357 
33 3358 
33 3358 
33 3359 
33 3359 
33 3368 
33 3361 
33>3362 
33b3362 
33«3362 
33 3363 
33 3364 
33 3365 
33 3366 
33 3367 
33a3368 
33it33G8 
33 3369 
33 3369 
33 3378 
33 3371 
33 3372 



87528 56856317888006855416162325468316888 

87521 54816317088806855416152381428416088 

87522 ESeS£3i70ee0ee0E445S15232S4Be3!E0ee 

87523 81833117288888081416158045431456880 

87524 83854188208888001416162065471356080 

87525 01814188208000001416162841431456888 

07526 03054100288888880456162065471356000 

07527 81033117008808881416158085431456000 

07530 56056317200007355416162325460315000 

07531 54016317200007355416152301420416080 

07532 56056317288807354456162325460316088 
87533 01033117800000881416158045431456088 

07534 03054188800006001416162865471356088 

07535 01014100880000881416162841431456008 

87536 83854108888000888456162865471355800 

87537 81033117888008881416158005431456080 



05601 54056315688007354456162325460516888 
85682 54856315608007355416162325460516000 

05603 54016315688007355416152301420415000 

05604 01054100288013402456162065471556000 

05605 01054100000013402456162065471556000 



07548 54853317888806055404562325768416888 
07541 54853517000885055484552325760415880 

87542 548S331708880605445416232S7S0416008 

87543 S48S331788880G054454I62325768416808 

07544 01054100208888881484562865771456000 

07545 01854180200000081484552865771456888 

87546 81854180208888888454162865771456880 
07547 01854100200000000454162065771456000 

07550 540533172008073554845623^760416000 

07551 54053317200007355484562325760416888 

07552 S48S33172088073S44S41523257S8416000 

07553 54053317200007354454162325768416888 

07554 01854180000000001484562065771456880 

07555 01054100000000001484562865771455000 

07556 01854180000008808454162865771456880 
87557 01054188808888880454162065771456000 



.oPCodelSSe} 
Exlist 

list 1 Df/IF Olttrtl ALUtD»«:i DESTiflCJ HtOI « 
;TX 
fCSELCm.FC] ALU[A«B1 OESTIACl NEOI S 



85606 54853315680007355484562325768416000 
05607 54053315800807354454162325760416008 

07568 56853317888006055416162325468316888 

07561 54813317088806055416152381428415808 

07562 56053317000006054456162325468316080 



;TSC 



;TDCE 



;TSCE 



;TTXA 



;TSCft 



;TXN 



;TSCN 



OF/ir DEfEm ROTilS-J «.Ut[>»«:3 OESTEfiC] NEDI $ 
flLUtrBVC] DESTIHOLD] NORH FALSE JUTPLCCTSCl] $ 
DF ATT DEHEHl ALUtDtflC] aWD[DauS=01 NORM JUrW-CIIXXll $ 

fcsELim.ec) puiie&Bi caiO[ciBus=8] torn JunPLC[TKX2] * 

OF ATT DEMEM] R0TE18.1 flLUEDiACl CI8US=0 NORM JUnPLCtTSCll $ 

ftLUIHEMflC) EKSTEhBLD] NORM JLtPtTSCEll $ 

DF/IF DEOEMJ ALUEEJttftCI CESTEflCl OWDSKPEftLUfiYSl » 

fiCSELtm.flC] fILUEflitBl EJESTEB] COM)SKP E ALUflYS 1 t 

Df/IF DEHEHl ROTEia.l flLUEDm^l EJESTEfCl COCSKPEi^lBYSl $ 

flLUIIIERflC) DESTEHOLDJ NORM TRUE JUTPLCITSCl] $ 

DF/wT DEnErij HLLJiEj&fiCj CunDi-GSUS=0i HuRn JiJfFLC L TDCX 1 j 3 

flCSELEKA.flCl flLUEA&B] COM)E-OBUS=0] NORM JLTPLC E TDCX2 ) % 

E3F/UT OErEni ROTEIB. ] flLUECRACI -OaUS=0 NCRtI JUTtPLCETSCl] $ 
fLUtPBtfCI DESTiHOLDJ NDRf) JUrPiTSCMll $ 



-reloc 
E.USEENORrWLl 
E xlist 

list 1 ) 

TSCI: DEnert] ROTEIB. ] flLUEDitACl DESTEfCl aWDSKPELfiST] $ 

' . » 
TXXl: DEHEM] ALUEDnACI I3ESTEAC] CXfCSKP E LAST ] S 

TDCX2: ftCSELEm.flCl flLUEfwai E3ESTEB1 CtWDSKP E LAST ] $ 

TSCEl: DEMEHl ROTEIB.) fiLUEE&ACl aWDEQetJS=01 NDRH JUnPLCETSCll $ 

TSCNl: DEnenl ROTEIB.I ALUEEXACI aM)E-QBUS=0] NORfl JUtlPLCETSCll % 



.dpcdc1eEE60] 
Exlist 
list J DEIR] MASKE18.] ALUEDORftC] E3ESTEAC1 MEOI $ 

;TRQ 
DEIR] hASKElS.i ^ulOGRAC] DESTEnCi NEuI $ 



:TLD 



:TRE3E 



DEIR] ROTEIB.I mSKELEFTl BLUEOORACl DESTEACl NEOI $ 

DEIR) ROTEIB.) HASKELEFT) fiLUEDORAC) DESTEAC) NEOI » 

DEIR] HASKEIB. 1 ALUEDSAC) CXMDEOBL&=0] NORM JUTPLCETROl) $ 

DEIR] mSKElB. ] ALUED&ACI a>OEOBU5=0] NE]Rn JUTFLCCTROl] S 



DEIR) ROTEIB.) tWSKELEFT) ALUID&AC] OBUS=0 NORM JUTPLCETLOl) $ 
;TLDE 

DEIR] ROTEIB.) DASKELEFT) ALUEDafC] a)tCE0BUS=81 NORH 

JLfPLCETLOl] S 



jTROA 



;TLOA 



jTRON 



DlIk) f>^:)|;l15.j i^uEDCRAC) OESTEhC) CuN>:3|(P E I^hA t 5 ) $ 

DEIR] rtASKElB.) ALUEDORAC) (XSTEAC) COTOSKPIALUAYS) t 

DEIR] ROTEIB.) flAStCELEFT) ALUEDORAC) DESTEAC) CONDStCP E ALWAYS ] « 

DEIR] ROTEIB.) HASCELEFT) ALUEDORAC) DESTEAC) C0M3SKP E ALWAYS ) » 

DEIR] MASICEIB. 1 ALUED4AC) C0ND[-08US=8) NORM JUTPLCETROl] * 

DEIR] MASKlia. ) ALUEC&AC) CONDE-OBUS-e) NORti JUt1=LC[TR011 » 



DEIR] ROTEIB.) MASKELEFT) ALUEOCAC) -CaS-8 NDRTI JUTPLCETLOl] $ 
;TLON 

DEIR] ROTEIB.) flAStCELEFT] ALUEDWC) C0NDE-CBUS=8] NORH 
JUMPLCETLOl] $ 



.reloc 
E-USEENORflAL) 
[ xlist 

list ) ) 

TROl: OCIR] HftSKElB.) flLUEIXRAC) DESTEAC] CONDSKPELflST] $ 

TLOl. DEIR] ROTEIB.I mSKELEFT) ALUE(X)RAC1 DESTEAC] CONDSKPELAST) ( 

.opcooeL678] 

Exlist 

list ) DF/IF DErCni ALUEDORAC) DESTEAC) NEOI $ 
;TDQ 
AC^LEflA.AC) ALUEAORB) DESTEAC] NEOI * 

DF/IF DEMEfll ROTEIB.) ALUEDORAC] DESTEAC) NEOI « 



33 3373 07563 81833117208888881416158845431456808 



ALUEMEMAC) DESTEHOLD) NORM FALSE JUWVCETSOl] $ 



SLOE Harch 23. 1984 Zl:e3!49 file DSK:F+INST.SLO 



ad i:itf 
33 337B 
33 3378 
33 3379 
33 3388 
33 33B1 
33 3381 
33 33BZ 
33 3383 
33 3384 
33 3384 
33 3385 
33 3386 
33 3397 
33 3387 
33 3388 
33 3388 
33 3389 
33 3398 
33 339e 
33 3331 
33 339Z 
33x3333 
33>3393 

33 3394 

33 3336 
33 3397 
33 3398 

33 3399 
33 3400 
33 3401 
33 3402 
33 3403 
33 3404 
33 3405 
33 3406 
33 3407 
33 3408 
33 3408 



07S6e 03054100200600000456162865471356000 
07567 01033117000000001416150005431456000 

07570 560S3317Z00007S5416162325460316000 

07571 54013317200007355416162301420416000 

07572 55053317200007354456162325450315000 

07573 810331170008000ei416!59045431456000 

07574 03054100000600001416162065471356000 

07575 01014100000600001416162041431455000 

07576 03054100000000000456162065471356000 

07577 01033117000000001416150005431456000 



05610 54053315600007354456162325460516000 
0SE1I 54053315600007355416162325460516000 

05612 54013315600007355416152301420415000 

05613 01054100200013420455152065471555000 

05614 01054100000613420456152085471556000 



85615 01873057000036055416162364531416000 
0561B 01063157000006054760242425571417000 



;TDOft 



;TDON 



;TS£»4 



OF/uT D[rEni ROKia. 1 fojiowc] cbus=0 nobi jumplcctsoi] $ 

fiLU[fEmCl DESTtHOLD] NORM JUrPITSOEll S 

DF/IF D[nEft] ALUCDORfC) DESTJM:] CONDSKPCflLMflYSl « 

ftCSELtrtt.ftCl flLUtflORB] DESTCB] COCSlCPt ALWAYS 1 « 

DF/Ir DifER! f?OT[lS.i flLUiDQRACJ DtSTiACJ CONDSKP [ HLMflYS J * 

ALUirEMfC) cestejsxd; KRn true junPLCiTsoi] $ 

DFAtlT D[f1En] ftLUtDifC) COM5[-CBUS=0] NORM JUnPLC[TDOXl 1 « 

ftcsELtm.ficj ftLutftaai coNDi-aGus=0] norti jltplcitixixzi $ 

DF/WT D[nEMl R0TE18.] ALUIKAC] -OeuS=e NORM JUrPLC[TS01] $ 
flLUIMEMAC! DEST[K0'..D1 NORfl JlTPETSONl) ( 



.reloc 
(.USE [NORMAL! 
( xlist 

1 i st J J 

TSOl: DLMEM] ROTCIB. ] ftLU[DORAC] DESTCflC] COKDSKPILftSTl « 

TDQXl: DtnEni flLUtDQRflC] OESTIflCl Ct»BSKP[LASTl * 

TDCX2: ftCSEL[m,«:i fiLUCAORB] DESTIBl CDNDSKPCLflSTl $ 

TSOEl: DtMEM] ROTCIB.] ALUCD&fC] CaND[OBUS=03 NORM JUnPLCtTSOl) * 

TSONl: D[MEf1) ROTIia.] ALUED&flCl aM)[-OBUS=01 NORM JUtlPLCCTSOl] $ 



SET-HALF: ;Set the First Part Done flas (PC FLAGS bit 4). 
DtPC-FLAGSI DEST[ALU1 Ql NORM t 
DECQNST 11 ROItSS. - 4] ALUEALUl DORQ] DESTE PC-FLAGS 1 NORM PtPJ $ 



SLOE March 23. 198* 21:89:5Z f ile C5K:Fn(«.SL0 — of — F+INNF 

01 08B4 ;;The CPU instrs. 

ei eees 

ej eeGS .repeat M£GYF [ .INSERT F4MJG.SL0 ! 

gi 9@g? ;;the ausMent instructions 



SLDE Harch 23, 196* 21:99:52 file DSK:F+1NNF.SL0 — of — F41NNF 

02 aeeg .ipsert f-ubs 



SLOE March 23. 1SS4 21:03:52 file 0S(C:F41BS.SLD — of — F+INNF 

ei eeei 

ei eee2 

aiaeees .useLHiLoci 

6i«eee3 i xiist 

81 eee4 list i 

ei eeeS • i nsert F4fL0T 



SLCE March 23, 198+ 21:03:53 file DSK : F+FLOT . SLO 



of — F41W«F 



06ZS8 8ie731170e000e80HlSlEZ02S'»312SS0e0 

06ZS1 ei033ii7eeee008euiBisee0S't3i4S808e 



06262 ei073ii7e0eeeeeei+iBiG202s+3i2560ee 
96263 eie33ii7e0ee000ei'HGi50e05t3i45S0ee 



0G264 0i85ti00eee0aeeeH067S2i2472i455eee 

06265 01054100000000001406762124721456000 



01 0001 

01 0001 
91 0002 
01 8003 
01 0004 
01 0005 
01 0005 
01 0006 

eiaees? 

01 0007 

ei 0006 

01 0009 

01 0010 

01B0011 
01 0011 
01 0012 
01 0013 
01 0014 
01>ie015 

01 0015 
01 0016 

01 0017 
01 0018 
01 0019 
01 0020 
01 0021 
01 00^2 
011110023 
01 0023 
01 0024 
01 0025 
01 0026 
01 0027 
01 0028 
01 0029 
01 0838 
01 0031 
01 0032 
01 0033 
01 0034 
01 0036 
81 883S 
01 0037 
01 0038 
01 0039 

01 0040 
01 0041 

01 0042 
01 0043 
01 0044 
01 0045 
01 0046 
01 0047 
01 0048 
01 0049 
01 0050 
01bOO51 
OlaOOBl 
01 0052 
01 00G3 
01 0064 
01 0065 

01 eesE 

01 0057 
01 0058 
01 0069 
01 0060 
01 0061 
01 0062 
01 0063 
01 0064 
01 0065 
01 0066 
01 0067 
01 0067 
01 0068 
01 0068 
01 0069 
01 0070 
01 0071 
01 0072 
01 0073 
01 0074 
01 O07S 
01 0076 
01 0077 
01 0076 
01 0079 

oiaooao 

01 0080 

01 0081 
S! 0082 
01 0083 
01 0084 
01 0085 

01 oees 

01 0087 
01 0088 

01 0089 

01 0090 

01 0091 

01 0392 

01 0033 

01 0094 

01 0035 

01 0096 

01 0097 

01 0098 

Qi 9999 96954 0997311719999999141E16292547135SO99 

01 0100 06355 01033117000000001416150005431456000 



06300 0107311700000000141616202S4312S6000 

06301 01033117000000001416150005431456000 

06302 01073117000000001416162025431256000 

06303 01033117000000001416150005431456000 

06334 03073117100038001415162025471355000 

06305 01033117000000001416150005431456000 

06306 030731 1710000000141G1G202S4713S6000 

06307 01033117000000001416150005431456000 

SS31S 31873117303088eei41SlS2e254312EEae0 

06311 013331170000000014161S000S4314S6000 

06312 01073117000000000454150025671456000 

06313 01073117000000000454150025671456000 

06314 030731 171000000014161G20254713SG000 

06315 01033117000000001416150005431456000 

06316 03073117100000001416162025471356000 

06317 01033117000000001416150005431456000 



06320 03171117000000001415150025471356000 

06321 01132117008009001416150005431456000 



06322 03171117000000001416150025471356000 

06323 01132117000000001416150005431456000 



06324 03171117100000001416150025471356000 

06325 01132117000000001416150005431456000 



06326 03171117100000001416150025471^6000 

06327 01132117000000001416150005431455000 



06330 0317111700000000141615002S4713SG000 

06331 0113211700000000141B150005431456000 



05332 01171117000000000454150025671456000 
06333 01171117000000000454150025571456000 



06334 03171117190000001416150025471356000 
06336 01132117000000001416150005431455000 



063X 03171117100000001416150025471356000 
06337 01132117000600001416150005431456000 



06340 01073117000000001416162025431256000 
3S341 01833117900000801416150005431455000 



06342 01073117000000091416162025431255000 

06343 01033117000000001416150005431455000 



06344 03973117100000001416162025471355000 

06345 01033117000000001416150005431456000 



06346 03073117190000001416162025471356000 

06347 01933117909000001416150005431456000 



06350 01073117000000001416162025431255000 

06351 01033117000000001416150005431456000 



06352 01073117000000000454150025571455900 

06353 01973117900009000454150025571455000 



.opcocJetl30! [xlist 
list ];UFA 
UFA: DFRQ JLWEUFftl] $ 

ALUCnEMfC] DESTCHOLDl JlWtUFflll $ 

.opcodeC131] Cxlist 
list ];DFN 
DFN: DFRQ JUTPtOFNOl $ 

ALUiMEMACl OeSTIHOLDl JUMP[DFN01 t 

.opcode[1321 [xlist 
list 1;FSC 

FSC: DCMflSK 27.1 ALU[D&flCl aM3[-OBUS=91 LaJlff CFSCEflPl C5S9 » 

DtriASK 27.1 flLU[D&flCl CaND[-0BUS=9) LEJUHP [ FSCZflP 1 C550 S 



FftD FAOL f(tm FflOe FflOR FflORI FflDRM FflDRB 



.opco<te[1401 txlist 
list I ;Qpcodes 140-147 

DFRQ JUMPtFAOSlJ * 
ALUEtEMACl OESTtHQUJl JUMPEFMKll « 

DFRQ JUWCFflOS2] * 

fUMnEfteCI OeSTCHOLDl JUMPCFMJS2] t 

DF.'yr R-fl-W DtrEH} JU?P[FACE31 s 
flLUtrEnfCl DESTEHOLD) JUrff'[FflOS31 « 

DF/WT R-rt-M DtrtFI] JUHPiFflOS41 S 
ALUlrEMACl DESTCHOLDl JLHPIFM3S41 S 

DFPQ JUfPEFftOSll $ 

ftLUtrEttftCl DESTtHOLDl JUTPlFfCBU « 

0[Hfll R0TC18.1 DESTCHOLDl HflStC[LEFTl JUMPCFAOSS) NORM t 
OCMfl) ROTCIB.I DESTCHOLDl MflSKCLEFT] JUHPCFfOSS] NDRM * 

DF/UT R-n-W DCrtfl] JUff CFflOS31 $ 
flLUIfEmC] DESTCHOLDl JUTfCFflOSSl » 

DF/MT R-n-H DCnEMl JUrPCFA0S41 S 
ALUCnEPIfiCl DESTCHOLDl JUnPCF(fflS41 * 



jFsa FSBL Fsan fsbb fsbr fsbri Fsasn fsbhb 

. opcode C 150] 
Cxlist 

list ] DF/WT oirEni flLuc0-O) oesTiHCLOi jurprFAosii * 

ftMi^ntSVCi DESTCHOLDl JUTPCFflOSll » 

DF/WT DCMEMl flLUC0-Dl DESTCHOLDl JUffCFfCIS21 « 
fiLUC9-fEmCl DESTCHOLDl Jin>CFM3S21 « 

DF/WT R-n-W DCflEm ALUC0-O1 DESTCHOLDl JljrP[F(CIS31 * 

flLuco-riEmci destcholdi junpcFftOS3i * 

DF/WT R-rt-W DCHEtll flLUC9-Dl DESTCHOLDl JCJMPCFflOS41 » 
ALUCO-HEHACI destcholdi JLrPCFM3S4] % 

DF/WT DCfEM! ftLUC0-Dl DESTCHC1J31 JUMPCFMKll » 
flLUCO-nEMflCl DESTCHOLDl JUTPCFflOSll % 

DCnfl] R0TC18. 1 mSKCLEFTl ALUCO-Ol DESTCHOLDl JUnPCFflOSSl NORM « 

Dtrwi R0TC18. 1 nflSKCLEFTl ftLUCO-Dl DESTCHOLDl JUnPCFAOSS! N0O1 $ 



DF/WT K-n-M DCrOll flLUCO-Ol DESTCHOLDl JUHPCFMBSl $ 
ALUCO-MErVCl DESTCHOLDl JUf>[FMS31 * 



DF/WT R-fl-W DCrtm flLUCO-Dl DESTCHOLDl JUrPCFflOS41 * 
ALU[0-flEmC3 DESTCHOLDl JUnPCFflOS41 * 



;Frf' FHPL FHPn FHPB FHPH FHPRI FfWBI FTPUB 
; 

.opcodeC160] Cxlist 

list 1 .-Qpcods-: 150-167 

DFRQ JUfPCFrPll t 

fL'JirEnKI DESTftSLD! JUnptFnPll $ 

DFRQ JLWCFMP21 $ 

ALUCfErBKl DESTCHOLDl JUrP[Frf»21 t 

DF/WT a-n-U DifEH] JUrPCFfFSl $ 
ALUCHEHflCl DESTCHOLDl JLrPCFMP3] « 

DF/WT R-n-W DCMEni JCJTfCFrt^l t 
flLUCnEMfCl DESTCHOLDl JUPlFrtHl t 

DFRQ JUnPtFrPll $ 

ALUCnEHflCl DESTCHO-D] JUnPCFMPll « 

DCriAl ROTCia.l DESTCHOLDl rtfiSKCLEFTl JLTftFnPSl NDRfl * 
DCMfll R0TC18.1 DESTCHOLDl HfSKCLEFTl JUTFCFff^l NORtI » 

np/uT R-M-y DcnEni jiffCFnpsi s 

flLUCnEMflCl DESTCHOLDl JUtPCFW^l * 
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ei 0196 
81 8107 

eiaeiee 
ei 0198 

01 0199 

01 0110 063SO 

01 0111 06361 

91 01 IZ 

01 0113 06362 

01 01 H 0G363 

01 0115 

01 0116 8636-( 

01 0117 06365 

01 0118 

01 0119 06366 

01 0129 06367 

01 0121 

01 0122 06370 

01 0123 06371 

01 012^ 

01 912S 06372 

01 9126 06373 

01 0127 

01 9128 06374 

01 0129 06375 

01 9139 

01 0131 06376 

01 0132 06377 

01 0133 

01 0134 

01B0135 

01II0135 
01u>0135 
01 9136 
01 9137 



01073117908e3080HlElS202543125600e 
01033117000000001416159085431456006 



01073117000000091416162025431256000 
81833117000090001415150005431456090 



83873117100000001416162025471356000 
010331 1700000000141S150005431456000 



030731 171000000014161620254713SG000 
81033117000000081416158005431456800 



8107311700000000141S162025431256098 
01033117000090001415150005431455000 



01073117000000000454150025671456800 
81873117000000080454150025671456800 



03073117100000001415162025471356000 
01033117000600001416150005431455000 



03073117100066661416162025471356006 
01033117600000001416150005431456000 



of — F41WF 

;FW FDVL FDVtl FDVB FOUR FDURI FDWRtI FDVRB 



.opcodctlTei Cxlist 
list ] jOpcodes 170-177 



DFRQ JL?PtF0V13 $ 

ftLUCrChflC] DESTIHOLDl JUflPIFDyU $ 



DFRQ junptFoyzi s 

ALU[^E^w:] deskhdldi jurpCFDV2] $ 



DF/WT P.-M-W DCtlEfl] JUf1P[F0V3] t 
ftLUIttEflM;] DESTtHOLDJ JUnP[F0V3) $ 



DF/WT R-n-U D[l1En] JLWIFDWl t 
ALUinEHflC] DESTtHGLD] JLrP[FDV4] S 



DFRQ JLMP[FDyi3 $ 

ALUIfEmC] DESTIHOLDl JUMP[FDyi] $ 



D[mi ROTtlB. I KSTIHOLDl MASKILEFT] JUMPIFDVl] NORH » 
D[rW] RQTCia. ] DeSTtHOLD] nflSKtLEFTl JLTPIFDVl] NORft $ 



DF/WT R-n-U DIMEn] JUrP[FDU3] $ 
flLUIttmC] DESTIHDLD] JUnP[FDV3] « 



DF/WT R-n-W DCrtni JUtfCFDWI t 
flLUtnEfWCl DESTIHOLDl JLrPIFDV4] * 



•rcloc 

[.USEIHILX] 
t xlist 
list 1 
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82 8138 
82 8139 
82 8148 
32 8141 
02 8142 
02 8143 
02 8144 
02 814S 
82 8146 
02 0146 
02 0147 
02 0147 
02 0148 
02 0149 
82 0150 
82 0151 
02 0152 
82 0153 
02 8153 
82i>0154 
02»0154 
02 0155 
02 0156 
02 0157 
02 0158 
02 0159 
02 0159 
02 0160 
O2B0161 
02100161 
02 0162 
02 0163 
02 0164 
02 0165 
02 0165 
92 0166 
02 0167 
02 0168 
02 0163 
02 0170 
02 0171 
S2 S172 
02 0173 
02 8174 
02 0175 
02 0176 
02 0177 
02 0178 
02 0179 
02 0130 
02 0181 
02 0182 
02 0182 
02 0183 
02 01B4 
02 0184 
02 0185 
02 0186 
02 0187 
02 0188 
82 0189 

0Z 0190 

02 0191 
02 8132 
02 8133 
02 0134 
02 0135 
02 8135 
02 8136 
02 0137 
02 0197 
02 0138 
02 0139 
02 0200 
02 0201 
02 0202 
02 0202 
02 0203 
02 0204 
02 0205 
02 0206 
02 0206 
02 0207 
02 0206 
02 0206 
02 0210 
02 0210 
02 0211 
02 0212 
02 0212 
02 0213 
02 0214 
02 0215 
02 0216 
02 0217 
02 021B 
02 0219 
02 0220 
02 0221 
02 02Z2 
02 0223 
82 0224 
02 9225 
02 022E 
02 0227 
02 0227 
02 0228 
02 0229 

02 0231 



11552 01073117004636055402246365571417000 

11553 01833137800000001416100225431456060 

11554 01873237008006055416162366037416000 

11555 74873317000086855416162315420416000 

11556 01171120300000001406762125451556000 



U5G0 81037317008023345416162025431456000 
11561 8113231700000G055416162365437416O00 
11552 01073017000006055415162365477516000 
11SG3 01864017000006054662362364737416800 
11564 81863131800022665406756125430456000 



11566 74024317000006055416162325420415000 

11567 01033137000006055416162365431416000 

11570 01873037800006054222362365437416008 

11571 01855300600000008662162024721456000 

11572 e!865e378e0e06e5S40236236473?415000 

11573 O10S331700000G0S4662152354737416000 

11574 610501 170000060S54045443G5S77416000 

11575 01024017000000001416162225431456000 

11576 01073017000000000676162225431456000 

11577 54073117060006055416162325420416000 



11600 01033137000000001415162225431456000 

11601 54073117000066055416152325420416000 

11602 01833137000000001416162225431455006 

11603 01073317000000601416162015431456000 

11604 8103313700O8060SS416162365431416000 

11605 01073117004866055482246355577417800 
H68G 81033117000000001416106225431455000 
11687 81873231800022665416156126030456000 

11610 01033137000000001416162225431456000 

11611 01033131800022665416156125430456000 



11612 81833137066000001416162225431456380 

11613 54073117800006055416162325420416006 

11614 01833137000660001416162225431456000 

11615 01873317060000001416162015431456000 

11616 01833137860006055416162365431416000 

11617 01073117804005055482246365577417000 

11620 01033117006660001416100225431456000 

11621 01073231000022665416155126030456000 

11622 01033137860006601416162225431456000 

11623 01033131000022665416156125430456066 



11624 01073117064606055402246365571417000 
11525 01073100280006061406762025461555000 

115Z6 01856137000000001416162225471556000 
11627 54073117860006055416152325420416000 



11630 81073117864006055402245365571417000 

11631 8ie73!00280e80^14867S282S4S15SS8ee 

11632 01056137000006055416162365477516000 

11633 61073117000066054020344365437416000 

11634 81854137060666055406752354737416006 

11635 01073317000066054236152355437416000 

11636 01033120600000001415102025411456000 

11637 01132300200623503415152015421456000 

11640 81037337080023565415162025437455006 

11641 01132337000066055415152365431415000 

11642 01050137066666054650362355571416006 



11643 01033117000066055415114355431415800 



11CAA aia-r7i I'Taaaoocacc^^Aoiacacirc'^iAicaaa 



;F1-CWTING PCINT, KfllB STYLE. 

;NCM)ISPftTCH CnDE- 

.DEF!!C CFPLQWn lOimi ftCSELrftC+l] DESTtfC] JUMPtFPLOU] NORM 1 

.DEFINE JINSEXPtl lOlfiRs R0TC27. 1 iDESTCOl JlTPEINSEXl] NORfl 1 

.OEFIfE CINSEXPCl [DIARl R0TC27. ] DESTIQ] PUSHJ[INSEX11 NORM ] 

.DEFINE CFDSt] [DCMEMl fILUtDitftC] DEST[AR] PUSHJCFOSl] NORfll 



:«»■ DON'T U5E fi-r^M FOR ANYTHING BESIDES DISPATCHES 
;UXH This Bust be fixed!!!! 



! ! ! TyR-ScpSO 

TVR-ScpOO 



UFfll: D[CQNST 11] DESTIDEU-flOR] * 

ftLUIfC) DE5T[DSflltn0 (Wl PUSHJIFflOSUB] NORM S 
DtOWMEtW] DEST[flR O-i^l SHKT » 
D[ftR! ftCSEL[flC+lJ DEST(flC Mfl] NEOI » 

DFN0: R-H-W DIMEMl MASK [ 27. ] flLU[0-D] DESTlflfi) CONDt08US=01 
LBJUnP[DfNl] CS00 $ 

.pair 
[:. \ 2 + . 

JDFNl: ALUINOTM:] DESTIACl JUWt. + 21 NORfl » 

fiLUtO-ftC] DEST[(«) SHORT S 
DEMEMl DESTIQ) SHCKT $ 

DtmSK 3] R0TE27.1 ALUIDiQ] DESTtQ] SHORT t 
DIflR) MftSK[27.] M-UtDOROl SdfiC [ IFRQ DESTIMEflSTO flRl 
CQND[Hfl<201 LBJUMP[SEOn 1$ 

.pair 
I:. \ 2 + . 

IFSCEAP: «.U!0) DESTtMfl ftCl HEOI $ 

«_U[flCl DESTIfiR] NORM * 
DIflRl MA9CI31 R0T[9] DEST[Q AR] SHORT $ 
DLMASK 81 R0T[27.] ALUI-O&AC) OESTIACl CtSC[-OBUS<01 JUr*'[FSC21 



C550 » 



DCnftSK 91 ALUEDaQ] DESTtQ AB) SWRT S 

DtnfiSK 81 R0TI27. 1 ALUIDORflCl DESTIACl SHORT t 

DCtWl MASKIlB.l ALUED+Q] DESTEIR-flORl SHORT * 

flLUEOl DESTtQ] PUSHJE^RnLI^l NDRfl $ 

CINSEXP IDtARl R0TI27. 1 DESTtQl PlBHJtlMSEXl) NORM 1$ 

NEOI S 



FSC2: 



FAOSl: 
FA0S5: 

ALUIACl DESTIARl PUSHJEFADSUBl NORM $ 

NEOI $ 

ALUEAC! DESTEARl PUSHJ I FfOSUB 1 NCRM $ 

CFPLOU IDEflRl ACSELEAC+11 DESTEACl JUMPEFPLOHl NORM 1* 

ALUEACl DESTIARl NORM S 

DICONST 111 DESTIDEV-ADR] SHORT $ 

ALUIACl DESTEDSaWEnOl PUSHJEFAOStBl NORM « 

DIDSftftnOl DESTE0-(^1 SttAC E IFRQ DESTErEMSTO ARl CONDEHfi<20! 
LBJLWESEOIl 1$ 
FA0S4: ALUfACl DESTEARl PUSHJEFADSUBl NORM S 

ALUEAC] SMAC t IFRQ DESTIMEMSTO ARl Ct«Dt(1A<2ei LBJUTPtSEDI] 1« 



FA0S2: 
FACS3: 



FMPl: 
FMPS: 

ALUEftCI DESTEAR] PUSHJIFMl NORR S 

NEOI % 
FnP2! ALUEAC] DESTEAR] PUSHJEFMl NORM » 

CFPLOU IDIARl ACSELIAC+ll OESTtSC] JUMPIFPLOUl NORM ]» 
FTP3: ALUIACl DESTIARl NORM S 

DICONST 111 DESTIDEy-flORl SHORT « 

ALUIACl PUSHJIFM] DEST I DtPMEMO 1 NORM $ 

DID*AftEM01 DESTtO-«:i SMAC t IFRQ DESTIMEMSTO ARl COHDtMA<201 
LBJUMPtSEOIl 1$ 
FHP4: ALUIACl DESTIARl PUSHJIFMl NORM » 

ALUIACl SMAC I IFRQ DESTIftHSTO ARl C0miHA<201 LBJUMPtSEOIl 1* 



;Macro to test for divide by zero 

-DEFINE DIUTSTIl IDIMEMl MASK 1 27. 1 CDNDIOBUS-Ol JUMPIFPtOIVl CSSOl 



;;;FD5: DEHAl R0TE18.1 DESTEHOLD] SPECILEFT) NORM $ 
TWi-Apr80 



;Not needed. 



;FDV,FDWR 

FDVl: DICONST 111 DESTIOei^AORl » 

FDl: DIVTST IDIMEMl MASK 1 27. 1 COM)I0BU5=61 JUMPIFPNDIW) CSSOIS 
;Chcck for divide by zero 

CFDS IDIMEMl ALUIDnACl DESTEAR] PUSHJtFDSll NORMIS 

NEOI t 



:LONG MODE FLOATING DIVIDE. 



FDV2: DECONST HI DESTEDEU-AORl « 

DI'v'TST EDEfEMl MASK E 27. 1 OSCEOBUS^e! JtWEFPNDTyi CSSOIS 
:AR.0.IR.35:=XOR(OIUIDCNO SIGN. DIVISOR SIGN). 

DIMEM) ALUID»AC1 DESTEAR) SHORT * 

DEARl MASKEll ROTIll DESTEIR-ADR) SHORT t 
;Flush sign Z. exponent froa Dividend Lou 

DEMASK 27.) ALUEOiACl ACSELEAC+11 DESTEAR] SHORT t 

DEARl R0TE91 DESTEACl ACSELEAC+11 SHORT « 
;Positive form of Dividend to AC. AR; original for* to AftMtl] 

ALUIACl DESTEAR D^flftMl 1 C0M)E-08US<e] JUW[F02A] CrLENEC450) « 

ALUEO-AC) ACSCLEAC+11 DESTEACl CONDEOBUS^O) JUTPt. * 2] C550 S 

ALUINOTAC) OeSTEAC ARl JUrt>[. * 2] SHCRT t 

ALUtO-AC) DESTIAC ARl NORM $ 

DICONST 11 R0TI27.1 ALUEAC+Dl DESTEARl NORM « 
;Add 1 to exp. of dividend, since ue uill do only ■ 27H3it 



FD2A: 
divide 



ALUEAC) ACSEHAC+11 DESTEDtAttMBl NORM « 

;Put lou-order aantissa in AfEME6] for FD. 
ALLJE-13 I3ESTEDt.^?EMl?3 * 

;Fla9 t do only a 27-bit divide, so remainder mIII comc out 
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F-tlNNF 



eZ 0Z3G 
92 eZ37 
eZ 3238 

ez ez39 

02 62+8 

ez 0241 

0Z 024Z 
az 0243 
82 024* 
82 0245 
02 0246 
02 0Z47 
0Z 0Z48 
02 0Z49 
02 0Z50 

0Z ezsi 

02 8252 
0Z eZS3 
02 8254 
02 8255 
82 eZ56 
e2>8257 
e2»02S7 
82i«0Z57 
e2»>0ZS7 

ez»0ZS7 

82 0ZS8 
8Z 02S3 

ezaezea 

0Z>iO260 
8Z>0Z60 
0Z>02G0 
82BOZE0 
eZ 0261 

ez 0ze2 

02 0Z63 
02 0Z64 
ez 0Z65 
8Z 02G6 
02 0ZS7 
82 8268 
ez 826S 
82 8269 
8Z 0Z70 
8Z eZ71 
0Z 0Z72 
8Z 0273 
az 0273 
82 eZ74 
ez 0275 
02 0276 
az 0277 
02 0Z78 
ez 0Z79 
ez 0Z80 
ez 0280 

ez 0zai 
ez ezez 
ez ez83 

82 02S4 
0Z 0284 
0Z 0285 
02 0286 
02 0287 
02 0286 
ez 0Za9 
82 8Z90 
02 0291 
82 0Z9Z 
02 0293 
02 eZ94 
0Z 0295 
02 8296 
02 8297 
02 8298 
02 0299 
02 0308 
02 0301 
02 838Z 
02 8383 
02 0304 
0Z 8306 

02 eaee 

02 0307 
02 8308 
02 0389 
02 e310 

ez eau 

02 8311 
02 0312 
02 0313 
02 0313 
az 8314 
02 6315 
02 8316 
02 0317 
02 0317 
ez 0318 
02 0319 
02 0319 
02 0320 
02 8321 
02 0322 
02 0323 
0Z 0324 
0Z 032S 
02 0326 
02 0326 



11S47 81073000600023525*16162026061456880 

11650 81122117000006055416102365431415000 

11651 81132317000606055416162355431416800 
116SZ 81873017000086054222152366071416066 



11653 81073186600623533416162026361456080 

11654 011610176088050S54003623GSS77416006 

11655 01161062666600061406562025551456006 



11656 01033137000006055416162355437416068 
11557 010732370000060SS416162365437416000 
11666 01073317066666055416162355437416000 

11661 01023137006600061416162225431456060 



11662 01033137000806055416162355437416606 
11563 61673237666006055416162365437416066 

11664 81073317060666055416152355437416066 

11665 54073117606606055416162325420416008 

11566 54024317066666655415162315426416068 

11667 816731 1700400605540ZZ463655714170e0 
11678 81873100286606661406762625461556008 

11671 81033117000600061416106225431456006 

11672 61673231866022665416156126830456688 



11673 01073117004066655462246365571417666 

11674 61873100260060061466762025461556000 
11575 81056137006066661416162225471555866 
11676 01033131000022665416156125430456066 



11677 01073017666666655416162364637416666 
11766 81053817006600666566362225571456666 
11701 54073117860066855416162325428416068 



11702 81663128286666855415162425421416808 

11703 61633137806660681416162225431456068 
11764 81873100000006655404562425761416000 

11705 81833180406606001416162825411456800 
11786 81654186666666054640362425561416006 
11767 0ia7Z1376ee6e6e5541616Z365437416668 

11710 0ie436170006Z361541656Z0ZS431456e66 

11711 ei054iaeze00e000664e36Z0ZS561456060 
1171Z 0187Z137e00086e55416162365437416ee0 

11713 01843617006623623416562025431456686 

11714 81854186600606055466762424721416668 

11715 81853317000666854646362365577416806 

11716 01178137066666855416162425431416666 



;CalcLilate exponent of reaiainder. 

DtDSsftTEMll DESTCO! C550 -Oa)S<0 JUI1P[. + 31 « 

:Check si9n of dividends jump if positive. 
flLLit0-Sl DES7 [ MMfCMi J NORH S 

;Ne93te the dividend (so the exponent will be in pos. for«) 
ftCSELIftC+n flLUle-ACl DESTCftCl NORM % 
jNesate the renainder. 

D(o*flrEm] KOTts.) nfSKtsi OESTia] 1035 * 

iR&cavbr exp. of dividend. 
;l^-n01[7] has (dividend HCIU)-(divisor ) . 

D[0%mEM71 C0l«J[-0aB<81 JUtPt. + 2] C556 S 

0[CQNST 11 ftLU[Q-D) DEST(Q] SHORT S 
DJCCBST 26.] ALU[Q-0] 0CST[Q1 CDM3[(HJSia) JUnP[FD2C) C600 * 
;Junip if exponent underflow. 
.DEFINE SWflPflCn C .-Interchange KC) and (flC+1) 
ALUtACl flCS£Lt(C+l) DESTtflRl SHORT S 
D(fl(?l DESTIflR ChAC] SHORT $ 
DtflRl ACSEL[flC+l] DESTCACl SHORT « 
1 

;SUflP (MJOTIENT (flC) (WD REMAINDER (AC+l) 

SUflPAC 
[ .-Interchange (ftC) and (flC+1) 

flLUtfCl fCSEL[fCtll DESTIAR] SHORT $ 

DIflRl DESTIflR 0-«Cl SHKT $ 

DtflRJ ACSEL;AC+11 DEST(flCl SHORT ( 
] ; INSERT EXfWENT INTO REMAINDER. 

rt.UiQl DESTtftR] PUSHJIINSEXP] NORM $ 

SUPPfiC 
t ;Interchan9e (AC) and (AC+l) 

ALU[AC] ACSEL[AC+n DESTtAR] SHORT S 

DtftR) DESTEAR 0-ACl SHORT $ 

D[flR] ACSELtftC+n DESTIACl SHORT « 
1FD20: »EOI % 

FS2Z: ALUO: aCSEL!AC*l! OESTtACi SEOI S 

FDV3: DtCONST 111 DEST[DEV-ADR] » 

FD3: DIVTST [OtHEH] mSK[27. 1 CI»CI(DBUS=01 JirPtFPNDIWl CSS01t 

ALUtACl DEST[ff»»En0] F=USHJ[FDS] NORM $ 

DCD*AMEn0] DEST(0-ACJ SMSC [ IFRQ OESTtfEMSTO AR) CONDtHA<201 
LBJul^[3EuIi jS 

FCIV4: DICC»ET 11] DESTCDEV-AORl $ 

FD4: DIVTST tDlrEM] nflSK[27. 1 COM)(OBUS=01 JUfPCFPNDIUl CS50]» 

CFDS CDEMEHl ALUIDwAC] DESTtAR] PUSHJ[FDS1] NORTDS 
«.U[AC] SflAC [ IFRQ DESTIMEMSTO AR] CONDIWX201 LBJUnP[SEOI) ]* 



jHERE ON DIUISOR=0. SET NO DiyiCe, Oyf.FLOy, RETURN. 
FPNDIV: DtPC-FLAGS] OESTIQ] SHORT * 

DECOPET 1) R0TI23.] fLUCDOROl DESTtQ) PUSHJ t SETFOU 1 NORM » 

NEOI « 



;NORnALIZE DOUBLE PRECISION NUMBER IN AC.O 1*DSE EXPONENT 

; IS IN IR-ADR. LEAVE EXPWCNT IN («. NORflfiLIHED NUMBER IN AC.Q. 

> IF NUMBER IS 0. LEAVE 8 IN AR.rC. AND Q- 



.DEFINE OOail] [DtlWl DESTIAC] PUSHJtMWLIE] NORM] 

;A. Return inBediately if 8. 

NRMLIZ: ALUCOORACl DESTtAR] CONDtOBUS^] POPJ C550 « 

:B. Check for Mantissa overflow. Bove exponent to AR. 

ALUtAC] DESTtAR] PUSHJ t NORTDV ] NORM S 

;Check Mantissa and shift right if necessary 
DtlRl HftSKtlB-] COM3I-OeuS=01 POPJ CSS0 » 

;If we adjusted riglnt. then ue definitely don't 
;shift left. We're done here. 
;C. Left shift until normalized. 

ALUtAC] CONDtOajS<0] JUHPINEGNOR] CYLEN(C450] $ 

{Separate into two cases* positive and neaative 
POSNOR: DICDNST 11 RaTt26. 1 ALUtOWC] C0tCII-OBUS=ei POPJ C550 » 

;If high order bit of Mantissa is one. Me're done 
DtARl ALUtO-ll DESTtAR] SHORT t 
;DecreMent the exponent 
ALUtSH-ACl ENOCONNtLSHl 0ESTID6] JUTPtPOSNORl NORTI t 
;Shift left and try again. 
NEG^DR: DtCa^ST 11 ROTtZB. 1 ALUtD&ACl CaNDtOBU&=61 JUMPCNNll C550 $ 
;If high order bit of Mantissa is zero. Me're done 
OtAR] ALUID-ll DESTtAR] SHORT S 
;E)ecre3ient the exponent 
ALUISH-ACl ENOCOmtLSHl DESTt061 JUnPtNEGNOR] NORM $ 

;Shift left and try again. 
DtMASK 27.1 ALUID&ACl CONDI-OeuS=e] POPJ CSS0 « 

;Oicck for case of exactly -(2tn). If It isn't* hc 



have to 



mi: 



done 



DICO^ST 11 R0Tt2S.l ALUtDORACl DESTtAC) SHORT « 

;Ue Ment one too far. backup by siMpIy QR'ing 



In the 



reievani 



;bit in the saae Manner as shifting Mould. 
;(«« What about Q?? TUR-Jul80) 
DtARl ALUtD+1] DESTtAR] POPJ NORM S 

; Increment exponent to account for siaulated left shift. 



jCHEOC for MANTISSA W^RFLOH INTO EXPOfENT FIELD. CALL WITH 

; AR&AC.O: • TO NORMALIZE. IR-AOR: ITS EXPONENT. 

: LEAVE EXPONENT IN AR. SET IR-ADR-« IF NO OWERFLCU. SET IR-flOR<>e 

; IF OVERFLOW. AKO NORMALIZE. 

;H.O. <=> tf«0<>AR81 OR t(AR8=l) AND (AR9-3S=e)] 



02 8328 



;Check to Make sure AR<a>:<«R<8>. If they don't, the 



SLCE March 23, 138+ 21:16:27 file DSK : F+FLQT . SLD — of 



U722 61843417e88e^0S541E3S23S5*37'*lEe38 

117Z3 Gii7ei3?00ee0Ge5540+S't+'*2577HiBee0 



1172+ 0167313706000685549+562365777416080 
11725 61024117000006055416144+25431416000 



117Z5 0107301700000605467E16236543H1S000 
11727 01064617006606054662162364737416000 

11730 01006317000006055416162365437416000 

11731 01073102000000001416162925421456000 

11732 01073100200606054702562425421416000 

11733 010730170000060S54151623E4637416000 

11734 01063117000006055002242365561417000 

11735 01073057000000004716162367031416060 

11736 01060157004406055060362425571416000 

11737 01073017000006055416162364637416000 
11740 01063017000023670600362025571456000 



02 0333 
02 0334 
32 0335 
82 8336 
02 0337 
02 0338 
02 0339 
02 6333 
62 0346 
02 6341 
62 6342 
62 6343 
62 0344 
02 0345 
02 0346 
02 0347 
02 8348 
62 0348 
02 0349 
02 9356 
02 6351 
02 0352 
02 6352 
02 6353 
02 6354 
02 6355 
02 6356 
62 6357 
62 6358 
02 6358 
02 6353 
62 6366 
62 6366 
02 6361 
62 6362 
92 9362 
62 6363 
02 6364 
02 0365 
02 0366 
62 6367 
S2 636S 
62 6369 
92 0376 
02 0371 
62 0372 
92 0373 
02 0374 
02 0375 
02 0376 
02 0376 
02 0377 
02 9378 
62 0379 
62 9379 
92 9386 
02 0381 
eZ 9381 
62 9382 
02 8383 
02 0384 
02 6385 
02 6388 
62 6387 
62 6388 
02 6389 
02 0330 
02 0391 
02 6392 
92 6393 
92 0394 
92 0395 
62 0396 
92 0397 
92 0398 
62 6339 
62 0406 
92 0401 
92 6462 
62 0403 
02 9404 
02 0405 
02>94e6 
62>e486 
62b9466 
02Be466 
62a94e6 
62Be406 
6Za6466 
e2Be466 
62 9467 
92 9467 
62 9468 
62 6469 
02 6410 
92 9411 
02 6412 
02 9413 
02 6414 
02 0415 
02 6416 
62 9417 
62 0418 
62 9419 
02 9426 
62 6426 
02 9421 
02 9422 
92 9422 
02 9429 11774 01073317000023685416162225431456000 



>i£cl< ftR<8>. If zero. 



OC 



\ / 



11741 01073037060006054222362365437416000 

11742 01864100200000000200362025561456000 

11743 01066137006006055402^2364737416606 
117+4 61073017000006654222362365477516000 

11745 01064100200000000200362025561456000 

11746 01066017600606055+02362364737+16000 



117+7 
11750 
11751 
11752 
11753 
1175+ 
11755 



61023117000606055+161+4365437+16000 
61161080600000061416162625+11+56000 
61073117000606055+161++365+3741E000 
01073217000006055+16150365471516060 
01122017000006055416162365+31+16000 
01021137000006055+16162365431+16000 
0107311700180605+016600365+31+17000 



11756 01053300+000237+0G621B202+721+56000 

11757 01055317000006054662162364737416000 

11760 01073000400023745416162025461556000 

11761 01065117600623746652150624731456600 

11762 0106311708006605+66215636+731+16066 



11763 01178886200000001+16162025+11+56006 
1176+ 01161106460000001+17762025551+56000 

11765 01024317000006055+16162365+37+16000 

11766 0102+017000000001416162025431456006 

11767 01024017000066055416162365437416006 
11776 01043407688623761+16352625+31+56060 

11771 61656137600666655416162365477516060 

11772 81873317380086^5415162365777416000 

11773 01054100200066001000382025561456006 



;ttant!ssa has overflowEd, adjust it. Right by one should be enough. 
HiO'JYES: ftUISH-ftC! ENDCOWilfiSKI D£ST[D4] SHORT S 
;Shift mantissa right (i thinl<?) 

DciRi npsKcia.i i^u[D+i] dest[(w ir-adr) popj norm % 

; Increment mantissa and flag that Me changed it hy 
setting ^ 

;IR<18:3S> to be non-zero. 

;nantissa has not overf lowed. 

NDVNQ: DCIRl MflSKtlS. 1 DESTCftRl 5HQRT $ 

;Save exponent in PR 
ALU[01 DEST[IR-«»1 POPJ NORM » 

;Hero IR<ia:35> to signify success 



; INSERT EXPONENT IN (W INTO WORD IN ftC. 
;SET FLOy,FLUN,OVF FLfGS fS REOJIRED. 
: PRESERVES eft, aOBKRS Q. 



INSEXP: DIPlRl R0T[27.1 DESTIQ] NORM $ 

;nove exponent into position 
INSEXl! OtMflSK 8.1 R0T[Z7. ] flLUID&O] DESTIQ) SHORT « 

;riush stuff in mantissa area 
flLUIQBflC] DESTdC) SHORT $ 

;Fill in exponent (complement ins it if (AC) is ncsative 



!) 



offset) 



OIAR] CCM3E0BUS18] JUMPEEXPUFl (S50 S 

;Check for underfloH (i.e. belou range of exponent 

DtflR] PWSKI10. ] R0T[28.1 COND[0euS=61 PCPJ C556 t 

;Checl< for overflow (i.e. above range of exponent offset) 



DCPC-FLAGS) DESTIQI SHORT S 

;Setup to set floating overflow 
SETFOV: DtCONST 11] R0T[32.1 fiLUIDORQ! DESTIPC-FLflGSl C556 « 

;Turn on overflow and floating overflow 
SETOVX: 0[flM£H-fleS APR-STATUS) R0T[28. ] OESTIALUl 0) f 

;Qst the Floating Overflow Interrupt Enable bit in 068. 
DtCONST 1] R0T[35.1 «_U[M_U1 D+01 SET-PC -FLAGS POPJ $ 

;ThiE causes an AfiOV trap if the enable bit is on. 
EXPUF: D[PC-FLAGS] DESTIQI SHORT S 

;Setup to set no divide and floating overflow 
DICONST 1] R0Tt24.] ALUIDORQ) DESTIQI JUHPtSETFOUI NGRfl* 
;Turn on no divide, then do overflows 



;FLDfiTING ADD PCtfiR TO tCH. 
; IF REQUIRED IN ACQ. 



RESULT, NGRIWLIZEO AND ROUtCEO 



.define BLEXPStDESl Tilt DES2] [ 

DtrnSK 81 R0TI27.] ALU[DCKAC] DEST(DeS2] QeUS<6 JUnPI. ♦ 2) CSSe 
* 

OlneSK 81 R0TC27.] ALUI-C&ACl DeST[DeS21 SHORT $ 
DtfEni C£STIQ1 CD^E!D8US<0] JllPE. + 23 C550 S 

DIHASK 81 R0T[Z7.1 ALUt-D&Ql DESTIDESll JUTfC. ♦ 2] NORM « 

DimSK 81 R0TIZ7.1 M.UID0R01 OESTtOESll CYLENtTirt) « 
iJblexps 

;A. + form of exponent of ACfEfl to AR,Q resp. 
FADSLB: DtftR] MASKOl ROTOl DESTIQ ARl SHORT t 
FAOSUl: DICONST 11 RQTI81 ALUID&Q] CONDtOBUS=6] JUMPCFSll C550 $ 

DIMAStC 31 ALUIDsQl DESTIARl SHORT t 
FSI: DtnEM) flASKISl RDTI31 DESTIQI SHORT $ 

DICOiST 11 iWTtSl ALUID&Q) CGM)IOBU5=0] JUMPIFS21 C5S6 $ 

DIMASK 91 ALUIDoQl DESTIQI SHORT $ 
;B. Compute difference, swap oprands if AC has larger exp. 

; Leave + difference in Q, diff -1 in LOOP CTR. 

', Leave larger exponent in IR-AOR. 
FS2: ALUIQl DESTllR-flORl SHORT S 

DIARl ALU[Q-0) DESTIQI C0NDI-aBUS<6] JUWCFS3] C60e $ 

DIARJ DESTIIR-flORl StCRT S 

dimeu) destihold d-ac) ndrti » 

ALUt0-Ql DEST[Q1 NORM % 
FS3: ALUIQ-11 DESTIAR] NORH $ 

DIARJ ROTILLDAD-ROTl LLOAO » 
;C. 61anl< exponents. 
8LEXPSIH0LD NORtl ACl 
[ 

DIHASK B) ROT127.1 ALUIDORACl DESTIAC) aBUS<6 JUMP!. ♦ 21 CS50 * 

DirWSK B] R0TI27. 1 ALUI-OaACl DESTIAC) SHORT t 
DirEOl DESTIQI C0ND[DBL)S<6J JUnPI. + 2) C556 S 
OIMASK 6) R0TI27.1 ALUI-DSQ) DESTIHOLD) JUMPt. + 2) NORM t 
DIMASK 8) R0TI27.] ALUIDQROl DESTIHOLD) CYLENINORMl ( 
1 ;D. If difference between exponents >62., AC soes to oblivion. 

OIARl ALUID-i-l) DESTIQ] CaM)[aBU5=0] JUtFIFSS] C600 $ 

DICONST 63.) ALUtQ-D] COND[DeuS<01 JUMPtFu',) C606 t 

flLU[ei D£ST[AC1 SHORT % 

ALUI01 DEST[Q] JUWIFSS) NORtI $ 
FS4: ALUt8) DESTIQI SHORT « 

ALUISH-ACl DESTID4] EMXOWIASH) LOOP I.) NORM « 
jE- Add- 
FSS: Dirttl) ALUID+ACl CESTtflRl SHORT t 
;F. Normalize result. 

OUR! DESTIAC) SHORT » ;CHECK FOR UFA 

DICONST 11 ROTI401 ALUiosACi a)mtQeus=e] junpiuFANOR) esse « 



;ENTER HERE WITH RESULT IN AR,Q, EXP IN IR-(W?. 



FPNflfi: CNORH IDEARl DESTIAC) PtJSHJIWnLI21 NDRt1)« 



SLOE March 23, ISB't 21:16:38 file DSK:F+FLDT.SLO 



of 



F'liwr 



82 0*28 
82 8423 
82 8439 
32 8431 
82 8431 
82 8432 
82 0433 
82 0434 
82 043S 
02 0436 
02 0437 
02 0438 
02 0439 
02 0+39 
02 0440 
02 0441 
82 8442 
02 8443 
82 8444 
02 8445 
82 0446 
82 0446 
02 0447 
02 0448 
02 8449 
82 8450 
02 0451 
82 0452 
02 0453 
02 0454 
02 0455 
02 0456 
02 0457 
02 0458 
02 0459 
02 0459 
02 0460 
02 0461 
02 04E2 
02 0463 
02 0463 

a? 84G4 

02 0465 

02 0465 

02 0466 

02 0466 

02 0467 

02 0468 

02 0459 

02 8470 

82 8471 

82 8472 

02 0472 

02 0473 

02 0474 

82 0475 

02 0476 

02 0476 

02 0477 

82 9477 

02 0478 

02 0479 

02 0480 

02 0481 

02 0481 

02 0482 

02 0483 

02 0484 

02 04BS 

02 0466 

02 0486 

02 0487 

02 0488 

02 0489 

02 0490 

02 0491 

02 0432 

02 0432 

02 0433 

02 0494 

02 0495 

02 0496 

02 0437 

02 0498 
02 0498 

02 0499 
0210500 
0210500 
02110500 
02*0500 
02-0500 

e2Be6ee 

02II0500 

02-0500 
02 0601 
02 0501 
02 6602 
02 0602 
02 0503 
02 0503 
02 0504 
02 05BS 
02 0506 
02 0507 
02 0508 
02 0509 
02 0510 
02 0511 
02 0512 
02 0513 



1177B 01873017000606055416162365771416000 

11777 01064100206000000720362025551455000 

12000 010730170000060SS4161S2355477S16000 
12801 01064100000000001410762024721456008 

12002 01033100400023655415152025411456000 

12003 51073117000006055416144355437416000 

12004 01130317800023S0S41516222S431456000 

12005 01073017000023556676152025431456000 
1200G 01073017800023655416162025471556000 



12007 01063300200006055416162425411415000 

12010 01073317000023537416152225431455000 

12011 01073017000023656675152025431456000 



12012 0115133790000G05S48S7SZ35557741S008 

12013 01054100000000000208352015551455000 

12014 81073000200000000556752025461555000 

12015 010733170000060S4676152355437416000 
12015 010S43170000060S46621623S4737416000 
12017 54003317000006055416162315420416000 
12020 54024317000005055415152315420415800 



12021 01073037000066054222362365431415000 

12022 01064100200000000200362025561455000 

12023 81066137000006055402362354737416000 

12024 01073017000006054222362365477516060 

12025 010641O02060000002003620Z5561455000 

12026 01066017000006055402362364737415000 

12027 01150017000006055415152365437416000 
12030 61151117000006054160344365577416000 



12031 01053120400624066552162024721456000 

12032 01055137000666054552162364737416006 
12833 ei073e0e4e0024e?341E!62SZS4SlSS6a06 

12034 01065017000024074662162024731456000 

12035 01063017000006854652162364737415000 



12036 01024317080000001416162225431455000 

12037 010^037000006055401762364737415600 

12040 01060617080066055416162365437416000 

12041 01033137000023771416152025431455006 



;SavE Q in HOLD Ci.e. rtfl) 

;If Q<8> is zero, don't round 
DlIRl DESTIQI NORH * 

;Get Q so we check bit meaninQ rounding C?"?? Can't this 
be 

;done with DCIR] RaT[7] COND[OBUS<0] . . . 77?) 
DLCONST IJ R0TI351 ALU[D£a] a]NO[OBUS=01 JUtlPtNORNDl C550 * 

;Ched< opcode to see if roundijs is requested. 

;If not, we're done 
D[nEMl DESTtQl SHORT * 

;Restore Q 
DEMftSK 431 fLUtOiOI CaNDi-OajS=ei JUMPEYESRNDJ CS50 $ 

;Round if 0<1:35> is non-zero (? liiat does this 
s i 9n i f y??? ) 

fLUtAC; CDND[[»US<01 JUfTEINSEXP] CYLENCC4501 * 

;If -antissa is negative, we don't round (???) 
; \ / 

YESRM): DIfiR] DESTEIR-fiORl SHORT S 

;Setup IR for MRHLIH 
ftLU[ftC+ll DESTIflC] PUSHJtNRfLIZl NORM J 

;Increaent hish order word and normalize once -ore (???) 

JINSEXP [DtARl R0T[27. 1 DESTCQl JUffEINSEXll NORM ]$ 
;NoM stick in exponent 



NORM): 



DIMEMl DESTIOl JUHPIINSEXP] NORM * 

iRestore Q and insert exponent(?) 



;UFA NORHALIZfiTION — ONLY ON HfiNTISSA OyERFLOU. 

UFhni^: DlhRj h^ulDGRQ] DESTlhC] Cu^[G6US=0j POPJ lo06 » 

D[i«] DESTII^l PUSHJCNORfUV] NORM * 

JINSEXP tD[fiR] ROTC27.) DESTCQ] JUTPCINSEXll NORM 1« 



SETUP LOJ ORDER FP RESULT, STORE BOTH IN ACAC+l 
ENTER UITH LOU UORD IN MEM, HIGH UGRD IN PC, HIGH 
UORO'S EXPOtilENT IN ftR&AC*l. 



FPLOH; DfCnST 77.) flCSEL[fiC+l! flLU[fiC-0! DESTtfC «] SHORT t 

DtCDNST 11 R0TC81 flCSELIftC+l] fiLUtlXflCl CONDC-OBUS-OI JUHPtHLOW 
CSSd S 

DIttm R0T[27.1 MASKI27.] DESTIQ] COM)[OBUS=01 JUnP[2LCUl C550 » 

D[ftRl R0T!2?. ) flCSEL[AC*ll DESTIACl SHORT $ 
D[nftSK 81 R0T!27. ! (4_U[I»(C] ACSELCftC+U DESTIAC] SHORT $ 
flCSELCflC+n ALUIQORflCl DESTIflCl NEOI « 
2L0H: (CSELCfiC+n flLU[0] DESTtflC] »EOI « 



FLOl^TING MULTIPLY. (CiffR BY fBI. 

«K« This code produces non-zero results if HEI1=-1.0 and AC=0 !!! 
TW?-JunB0 



:ft. sun OF + FORM EXPONENTS -129. +1 TO IR-flOR. +1 HECflUSE 28 
> STEPS (WE USED TO PROVIDE ONE GUflRD DIGIT. 
Fri: DIflR] MfSKtgi ROTO] DEST[Q (*] NORMS 

^Extract the exponent froa 1^ (which was copied into fiR) 

OtCONST 11 R0TI8J RLUIC&QI CONDCOGUS^Ol JUnPIFMlI C550 * 

:Check sign bit of nunber. Nothing special if positive 
DIMASK 31 flLU[D«Q] DESTtflRI SHORT $ 

;Si9n is negative, we want the one-coaple-ent of the 
exponent 

;field to get the actual exponent. 
FMl: D[HEM] WiSKOl R0Tt91 DESTIQ] SHORT S 

;Extract the exponent fro- fOI 
OICONST 1] ROTIBl nLU[0i(31 C0N0[0aUS=01 JUnP[Fn2] C550 « 

;Check sign bit of nu-ber. Nothing special if positive 
DIMf^iSK: 3] flLUIDwSI DESTIQ] SHORT $ 

;5ign is negative, we want the one-co-ple— ent of the 
exponent 

;field to get the actual exponent. 
FM2: DIAHJ M.UID+Q1 CflRRY KSTIQ) SHORT S 
;Pldd the two exponents 
;+l. FOR GUflRD DIGIT. 
DECONST 1] RQTI71 flLU[Q-D] DEST[IR-«»R] SHORT t 

; recount for exponent bias. Put exponent in a safe 
place. 
jB. BLftNK EXPONENTS. 

SLEXPSia SHCKT «?] 
[ 

D[MASK 81 R0T[27.] ALUIOORflC] OESTIAR] OBLS<0 JUtPt. + 2] C550 * 

D[MftSK 8] R0TI27. 1 flLUI-DaftC] DESTtfiRl SHORT « 
DIMEM] DESTtQl Cae[OaB<01 JUMP!. * 21 CS50 * 
DtmSK 81 R0TI27.1 flLU[-D&OI DESTIQ] JUMP!. + 2] NORM « 
DCMASK 81 R0TI27.1 flLUIDOROl DESTIQ] CYLENtSHDRTl « 

;Extend the sign to blank out the exponent field. 



] 
ill 



Ue 



27 bit 



-agn i 
with) 



;noM have perfect!/ good integers here, of 
ude 

t(as5u-ing that the nu-bcrs were nor-alizcd to begin 

flLUIOl DESTIfiCl PUSHJtTESnULl MORM $ ;28. STEPS. 

flLUIQl DESTfflHl SHORT * .-FLUSH SIGN IN LO WD. 

DCMASK 7] flLUI-OeOl DESTIQ flRl SHORT S ;FLUSH SIGN IN LO UD. 
;Flush remenants of -ultiplicr in low order part of 
;uord. MASK field deter-ined nviirically (35-28???) 

DtflRj flLU[[>*ai DESTIQ] SHORT % 

.'Ma^e low order word unsigned. 

fiLUIflCl DESTIH?] JUMPCFPNfIR] NORH » 



;28. STEP INTEGER MULTIPLY FOR USE BY FH. 

TrCMII . .1 fsnO 7Q TThtC 
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F'ilMNF 



82 ^18 
62 8513 
82 8528 
82 8528 
82 8521 
82 8522 
82 8523 
82 852+ 
82 8525 
82 8525 
82 8527 
82 8528 
82 8529 
82 8529 
82 8538 
82 8531 
82 0532 
82 8533 
82 053+ 
02 053+ 
82 8535 
82 8536 
82 0537 
02 0538 
82 0533 
02 05+8 
02 05+1 
02 05+2 
02 05+3 
82 0S++ 
82 05+5 
82 86+6 
82 06+7 
82 05+e 
82 85+9 
82 0658 
82 8551 
82 8652 
82 8553 
82 055+ 
82 0555 
62 855S 
82 0557 
82 0558 
82 0553 
02 05E8 
82 85S1 
02 85E2 
82 8563 
02 855+ 
82 0565 
02 0568 
02 8567 

02 8563 
02 0570 
02 8571 
02 0572 
02 8573 
02 057+ 
02 0575 
02 0S7S 
02 0576 
02 0577 
02 8S7B 
02 0579 
02 0588 
02 0580 
02 0681 
02 0682 
02 0583 
02 068+ 
02 8685 
02 8585 
02 8686 
02 0687 
82 8588 
82 8688 
82 0589 
02 8598 



SHORT STYLE FLOATING DiyiDE flC BY MEM. 
XDR OF DIUISORiBIUIBEND SIGHS IN ftR BIT 8. 



120+3 0105613708eeaG055+lElG23GS+77516000 
120++ G10731170e0e0605+0203++3ES+37+lG080 
120+5 8103312860882+117+16162025+21+55088 
128+5 81132337080006055+16162365+37+16000 
128+7 8102+117000006055+1611+365+31+16000 
12050 0102+117000006055+16136365+31+16000 



12051 81873117000086055+0+510365771+16000 

12052 0107300060002+131+15162025+61556000 

12053 01171017800006055+16150365+71516000 
1205+ 610731 170e000e0S+2221++365+71516000 
12855 8186511786086605+66215036+731+16000 

12056 0107381700000605+222162365+31+16000 

12057 01073317000006055+06762365+37+16000 

12060 01161017000006055+8+562365777+16800 
12S61 SlSS8117SS888SSS+lS03++3SSS71+lSe8S 

12062 01073017000006055+16162366337+16000 

12063 01151100600080881+16116025+51556000 

1206+ 01073117800006055+15112365771+16006 

12065 01073117000011+51+16162225+31+56000 

12066 010331 17000006055+161 1+36S+31+16000 

12067 01023337000006055+1G162365+37+16000 

12070 0102+817008066055+16162365+37+16000 

12071 010+3+17000086855+16362365+37+16086 

12072 E1872117808823771+1S14+225271+5S0S8 

12073 81073100280006855+00362+26221+15000 
1207+ 01132317000006055+16162+25+31+16000 



12075 010+3+17000066055+16562365+37+16800 

12076 01151100600023677+16152825+51556000 



12077 6117011700002+1S1+0+5++02S771+5G000 



FDS: 
FOSl: 



DlrEH] aLUlDsfCJ DESTLftR] SHORT S 

Dt«?l MASKtll ROTil] DEST[IR-M»1 SHORT $ 

flLUIflCl DEST[lW] COND[-O8US<0) JlffPI. + 21 C550 * 

fiLuie-ftCi DEST[«: (wi short i , 

PLUieU OE.ST.OtftlEnS'i MM! * 
PlLUCe] DESTtD4finEni71 » 
;Fla9 to do a 28-bit divide- 



Float ins Divide 

DIUIDEffi HIGH ORDER WtJRO IN flR, LCM IN fl-nEniBl. DIVISOR IN MEtl. 
BOTH IN POSITIVE FORH. IR.3S=X0RCDIVIDEND SIGN, DIVISOR SIGN). 



FD: 

!e\. PUT DIVISOR IN ♦ FORM. GET DIVISOR EXPONENT. 

;.l Shuffle IR.3S into A-nEnt+l. 

DCIR] mSKtia.l DEST[D*flMEn+l NORM $ 

;Save lft-(Cf( in ft-TEH 
D[!1EH3 DESTtQl COND[-O8US<0) JUOPt. + 2] C550 « 

;Checl< for negative divisor 
DCrEHl ftLU[0-Dl DESTCQ HOLDl NORM $ 

;Ne9ate divisor 
DCnEni RDT19J rwSKIBi DESTtlR-flORJ NORfl f 

;Extract exponent froa divisor, store in IR<18:35> 
DlmSK 81 ROT[27.3 flLU[-€KQl DESTLHOLD] NORM $ 
;Extract nantissa froB divisor 
;B. Fetch and blank HOU Dividend exponent. 
D[AR1 ROTO] WSKCSl DESTIQl NORM $ 
^Extract dividend exponent. 
DCftRl t1ASK[27. ] DESTtftC) SHORT $ 

;Extract Mantissa froM dividend 
;C. CoiBpute resultant exponent. 

DIIRl MftSKElB. 1 flLUtO-Dl DESTIQ] SHORT $ 

;Subtract divisor exponent fro* dividend exponent 
D[CGKST II RGT[?] fiLU[0+0] D£STIIR-fiDR] NDRTI $ 
J Include exponent offset 
:D. Move LOW Dividend to Q. 

D[05;fll1En61 DESTCQ] SHORT $ 
;E. If di visor<=^ividend. shift dividend right, increment the 

; resultant exponent, save diff. in A-MEM[7] for long Mode. 
DCfEM] «-U[AC-D] DEST(DW)fEn7] COND[-OBUS<0] JUnPCFDflDl C600 * 
;F. Save exp in A-ftf1[S] 
FDSHFT: DdR] DEST[D*Art!15] NORM « 
PUSHJ[FDQDIU] NORM $ 
;Do the divide. Result DOCS NOT have signs adjusted. 
;G. Save reoainder in A-fEn(61> put quotient in (C, RR: put in Q. 
fiLULfCI DEST[D*flrEn6] IWRtl $ 
flLUIQ) DESTCAC ftR] SHORT $ 
ALUiei DESTCQ] SHORT $ 
;H. Prepare to round 28. bit result. 

ftLUCSH-fCl ENOCONNCftSH) DESTCD+] SHORT $ 

;Shift PC.O rt 1 bit 
D[03a:i«ErSl fiLUtD-13 DESTIIR-ftORl NORH PJSHJCFPNflR] S 
;nove exp for FPNf^. nornalize and insert exponent into 
quot ient . 

DiOifTEm} msKti! c:s50 obus=0 popj $ 

;0one if positive result. 
ALUC0-«:] DESTCAC] NORtl POPJ « 
^Negate quotient. 



;HERE WHEN DIVIDEND IS >- DIVISOR. SHIFT DIVIDEND RIGHT 
; AND IttREriENT RESULTANT AC. THIS WILL ALLOW DIVIDE TO 
; SUCCEED IF BOTH DIVISOR t DIVIDEND HERE NDRt1ALI2ED 
: A^D DIVISOR <> 0. 



FDAO: ALUCSH-flCl ENDCOWILSH] DESTtD+J SHORT * 

Dcren] alucac-oi acselcac] aK)c-OBus<0] jutpcexpuf] C600 » 

;If divisor is still too big, give up and set no divide. 
etc. 

DCIR] MASKCIB. ] ALU[D*1] OESTCIR-flOR] JUffCFDStf T] NORM « 
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@3 8531 
83 8532 
83 8533 
83 85at 
83 8535 
83 8536 
83 8537 

83 esse 

83 8538 

83 8533 

83 8533 

83 8688 

83 8681 

83 8682 

83 8683 

83 8684 

83 8685 

83 8686 

83 8687 

83 8686 

83 8689 

83 8618 

83 8611 

83 8612 

83 8613 

83 8614 

83 8615 

83 8616 

83 6617 

83 8617 

83 8618 

83 8616 

83 8613 

83 8628 

83i>8621 

83118621 

83in8621 

83me621 

831118621 86516 

83me621 

e3ii>e621 86517 

83k8S2! 

83iii8621 

83in8621 

e3ro86Zl 

8308621 

83018622 

83»8622 

8311.8622 

83m8622 

83in8622 

83ina623 12188 

83«i8623 

e3in8623 12181 

e3n8623 

83*8623 12182 

e3ae623 

83ii«e23 

83na623 

8300623 

83i>ee23 12183 

83i»e623 

83m8623 

83m8623 

e3me623 12184 

e3me623 

831116623 

83n8623 

83 8621 

83 8622 

8308623 

83o8623 

83 8624 86254 

83 862S 86255 

83 8626 

8308627 

8308627 

8308627 

83 8628 

83 8623 12185 

83 8638 12186 

83 8631 

83 8632 12187 

83 8633 

83 0634 12110 

03 0635 

03 0636 12111 

03 0637 

83 8636 

83 8639 12112 

83 8648 

83 0641 12113 

83 0642 

83 0643 12114 

83 0644 

83 8645 12115 

03 0646 

03 0647 121 IE 

83 8648 

03 0649 

83 8658 

83 0651 

03O0652 

83o8652 

83 8653 86244 

83 8654 86245 

03 0655 

03>0656 



31033120608880081416150125421456008 
01033128600600081416150125421456080 



01132137080808001416162025431456000 
1 073000000808800662362225771 456088 
01023317088822711416152825431456808 

8 1 873^008000000065236222577 1 456000 
01067317800022711412152024731456000 



1 0730 1 700000000060 1 1 £202557 1 256880 
81873817800000000601152025571455000 



01033117006808001416150605431456000 
81873100408888081416162825461556000 

81868337808023782744152225571456800 

81873817808006055406762365577416008 

81833137888000881416150025431456000 

81162337000023782754162225571456800 
81 0738 1 700880605548676236^774 i 6800 
81863817000006054140562365577416000 
0113213700O0000O141615O22S4314S6000 
01122317000022711416162025431456000 



01073017000000801486762825571256000 
01073017000000001486762025571456880 



;Strays fron Kl instructions 



.REPEAT tWITS [ 

.opcode[2471 ;CKAFIX at SAIL: 'ft. Kotok should have done this*) 

flCSELd^] fILUIflC] CeST[HOLD IWl C0ND[-0aUS<8] LBJUOPIKl^Ixn C558 

ftCSELCACl ftUtAC] DESTCHOLD (Wl CDfe[-DBUS<81 LBJUHPCKftF IXl I CSSe 

s 

;Load up things for FIXER* check for positive oantissa 
.reloc 

;KflFIX (Opcode 247) continued 
;Positive number to fix 

• even 
KAFIXl: fiCSELtfCl ALUie-AC] DESTtARl JUnPtKPflXNl NORM S 

:Ne9ate AR so that its exponent car be used- 
KAFIXP: DtIR] R0T[27. ] nflSKtS-I OESTCQ] CDNO [ -08US=8 ] PUSHJEFIXERl S 
^Extract exponent adjustaent factor and do fixing 
ACSELIACl ALUIOl C£ST[AC1 JUnP[nAIN] NORM $ 
;Put result into AC and we're done 
,-x«» Here's aiother JUTPlrtfllN] that could be faster 

jNesative nuober to fix 

KflFIXN: DdRl RaT[27.] HASKtS. 1 XSKOl aM)[-0euS=8] PUSHJ[FIXER] S 

;Extract exponent adjustnent factor and do fixing 
>:; ACa:L[ACl OCMASK Rl ALUtD/nQI CESTCAC HA] ;™ Assembler 

loses! 

ACSEL[AC] DCriASKRI ALUCD/nQl DESTIACl JUnPLMAIN] S ;Si9h... 

;Put sign extended result into AC and ue're done 
;*■« Here's another JL»1P[nAIN] that could be faster 
l;t 

.opcodet247] [xlist 
list );(KAFIX at SAIL: 'A. Kotok should have done this') 

flCSELCfiCl ALUti^l KSTrHOLO AR) C0ND[-0aJS<8] LBJUIPI KAFIXl ] CS58 

$ 

ACSELEfiCI ALUCACl 0£ST[HOLD ARl CQNDl-OeUSO) LBJUflPCKAFIXl ] C550 

« 

:Lo3d up things for FIXER- check for positive mantissa 
.reloc 
[.USE[HILDC1 
t xlist 

list J ] 

.•KAFIX CDpcode 247) continued 
:Posit!ve number to fix 
.even 
[:. \ 2 + . 

IKAFIXl: ACSEL'AC) ALUI0-AC1 DESTIAR] JUnP[KAFIXNl NORfl » 
:Nc9ate AR so that its exponent can be used. 
KAFIXP: D[IR1 ROTIZ?.] MASKIS.] DESTIQl COND [ -OBUS=0 1 PLI5HJ t F I XER ] * 
;Extract exponent adjustment factor and do fixing 
ACSELtACl ALUIOl D£ST[AC) JUTPEMAIN] NORfl « 
;Put result into AC and we're done 
;»« Here's another JUflPtrWIN! that could be faster 

^Negative nuaber to fix 

KAFIXN: D!IR1 RGT[27. 1 flASKO.] OESTCQ] CONO1-OBUS=01 PUSHJ[FIXER1 $ 

;Extract exponent adjustment factor and do fixing 
:;; ACSELtACJ DtHASK RJ ALUID/nQ] DEST[AC MAI ;»«» Assembler 
loses! 

ACSELEACl DimSKRl ALUED/nQ] DESTEACl JLUPEMAHi] S ;Sigh... 

;Put sign extended result into AC and we're done 
;»» Here's another JLMPIMAINl tliat could be faster 
]REPEAT WAITS 

.opcodei 125) 
[xlist 

list IFIXR: DFRa DECCNST 04) R0TC24.] DESTEQ] JUTPCFIXRll $ 
DECDNST 041 R0TE24. I DESTEQ] JUnP[FIXR8] NCRTt S 
;5tart making constant 8.5 
.reloc 
[.USEEHILQCl 
[ xlist 

list ] ] 

FIXR8: ALUEMEUAC) DESTCHOLD) JUMPEFIXRll NORM S 
FIXRl: DEMEMl CONDEOBUS<01 JUHPCFIXRN) 0558 $ 
;Round different directions 
DICONST 28) R0TE38.1 ALUCD+QJ OESTCAC AR) PUSHJCFADSUB) NORM $ 

;Positive. Finish making constant 8.5 and add it 
DCCONST 33) DESTCOl SHORT $ 

;5tart making magic constant 
ALUCAC) DESTCAR HOLD) JUnPCFIXR21 NORM $ 

:Setup for FIXER. Rest is sane as KIFIX 

FIXRN: DECONST 68] ROTCM. ) ALUED-Q) DESTCAC fiR) PUSHJCFADSUB) NORM $ 

;Ne9ative. Finish making constant -0.5 and add it 
DiCCSST 33) DESTEQ) SK)RT t 

;5tart making magic constant 
DCCONST 2) ROTES) ALUEDORQl DESTCO) SHORT t 

;Finish making magic constant 
ALUE8-AC] DESTEAR HaOl PUSHJEFIXER] NORfl t 

;Setup for FIXER 
ACSELEAC) M_UE8-Q) DESTEAC) JUfPEfWIN) NORTi t 

JNegate it back again and start next instruction 
.-nn Here's another JUMPEMAIN) that could be faster 



.opcode[122) 
Cxlist 

list IKIFIX: DFRQ DCCONST 331 OESTCQ) JUfVCKIFIXn NORM S 
DECONST 33) DESTCQ) JUfFCKIFIX8] NORfl t 

;5tart making oagic constant and start fetch 
.reloc 



83O0656 



t xlist 
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03 0682 
03 0663 
93 0SS4 
83 8665 
83 0666 
83 0667 
83 0668 
03 0663 
83 0678 
83 0671 
03 0672 
03 0673 
03 0674 
03 0675 
03 0676 
03 0676 
03 8677 
03 0678 
03 0679 
03 8680 
83 0681 
83 8682 
83 8683 
83 0684 
83 0685 
83 0686 
83 0687 
83 8688 
83 8688 
83 8683 
83 0689 
03 0698 
03 0691 
03 0692 
03 0693 
03 8694 
03 0695 
83 8696 
83 0697 
03 069B 
03 0699 
83 87^ 
83 0701 
83 0702 
83 0703 
03 0784 
03 0705 
83 0706 
03 0707 
03 0708 
83010709 
03 0709 
03 0718 
83 0711 
83 0712 
83 8713 
03n0714 
03m0714 
03m0714 
03 0715 
83 0716 
03 0717 
03 8718 
83 8719 
03 07Z0 
03 8721 
83 8722 
83 8723 
83 8723 
83 8724 
03 0725 
03 0726 
03 8727 
83 8728 
83 8729 
03 8738 
83 8731 
83 8732 
83 8732 
83 8733 
83 0734 
83 8735 
03 0736 
03 0737 
03 8738 
83 8739 
83 0748 
83 0741 
83 0741 
03 0742 
03 0743 
03 0744 
03 0745 
03 0746 
03 0747 
03 0748 
03 0748 
03 0749 
03 8758 
03 0751 
03 0752 
03 8753 
83 0754 
03 0755 
03 0758 
03 8757 
83 0758 
03 0759 



12121 01063317000000800140552225571456000 

12122 ai8233178S8e2271141S1528254314SSeee 

12123 01063017000886054140562365577415080 

12124 eil71137ee8S3e©8141S15e22S471SS£0ee 

12125 01122317000022711416162025431456000 



12126 011 6208040000000022224402542 1457880 

12127 81860117000006055406650365571417000 

12130 01073117000006055406750365471515000 

12131 01151108400000001402362025561456000 



12132 01170117004406055410762364731416000 

12133 01073117000086055411050365571417000 

12134 01073017080006055212152425471516000 

12135 01060100400000801406850025571457000 

12136 01060117000024271411044025571457008 

12137 01824017000006855416050425437417000 



06256 01073017800000001406762025571256000 
86257 81033137000000001416162005431456000 



12140 01073017000000001406762025571456000 

12141 01073137000000001416162025471556000 

12142 61063117088806054140544365571416000 



12143 01024017080023771416162225431456000 



12144 81873117000022711416162025431456008 



;;; Set 

since 



FIXR2: DEnWST 23 R0T[5] flLUIDORQ] DEST[Q1 PUSHJ[F!XER] NORM $ 
;Finish Making nagic constant and do fix. 
ftCSELtfiC) ftLUtQ! DEST[«;3 JUMP[rtflINI MO*! S 
;P'jt result into ftC and we*rs done 

;xx» Here's another JUnP[nnIN] that could be faster 

KIFIXN: D[Ct3NST 21 R0TC51 flLU[DORQ] DESTIQ] SHORT $ 
;FinJ5h isskins Magic constant 
DtrEMl ALUE8-D] DEETfHOIl SSI PlSIJtFIXER! NORM * 

:ABS to both nen aid PR. Fix the nuaber 
fCSELtftC] fiLU[8-Q] CIEST[flCl JUTPtrwINl NORM $ 

;Ne9ate it back again and start next instruction 
;«»> Here's another JL»1P[(1flINJ that could bpe faster 

;Fix a nuBsber (without sign extension) in MEM. AR=AeSCMEM), Q=nagic 
number 

:(233 for normal fix) 
FIXER: DtflR) ROTOl n<«Kt91 flLUCD-Ql DEST[ROTR Q] 

a»D[cajs<0i junp[FixER2i ess© % 

.'Calculate nuaber of positions to BOve 

;Ju«ip if we'll be shifting ri^t (n<2f26) 
DtCmST 27.] flLULD+01 DEST[MASKR] NORM $ 

;Con5truct appropriate aask 
DttEHl MflSK[27.] DESTIHGL01 NORM $ 

;Flush exponent, our mask Mon't reach- 
DCCQNST 9-] «.U[0H31 COM)[C]eUS<01 JUMPCFIXERll C550 » 

;Check for overflow 
overflow here. What kind? (Me can live without it for KAFIX, 
t 

:;; never did check, but when KIFIX is done, this will have to be 
corrected. ) 

DtPC-FLflGS] DEST[Q] NORM $ 

0[CDNST 1] R0TI35. ] ALUCOORQl DESTt PC -FLAGS] NORM « 

;Set overflow flag. 
DERflSK 35.] I«_U[D+1) SET-PC-FLflGS $ 

.•This causes an APOM trap if the enable bit is on. 
DICQNST 44] DESTttlflSKR] NORM $ 

;For those losers i.^ want to see some of the number.. 
:Now that we know how much to shift things, do it and return. 
FIXERl: DEMEM] ROT[i?l rK«K[Rl DESTIQ] NORM POPJ t 

:Gee. that was fast, 
■e . shift count, the easy case- 
DfCONST 27.1 ftLUID+Q] DEST(MASKR1 CO»ffltOeUS<0] JUMPIFIXERS] $ 

.'Construct appropriate mask- If !x!<l. return zero 
D[CONST 36.] (^U(D+Q1 DESTIROTR] JUMPIFIXERl] NORM S 

.■Hardware doesn't believe in negative shift counts 
fractional, i-e- shift would go off the end. Return zero 
FIXERS: fiLUt01 0£ST[0 MftSKR] SHORT POPJ S 

;Just return zero. Set mask just in case 

.opcode!1271 [xlist 
_ _list _1.-FLTR 

rLiK: uFRQ D[COf«ST 33] DESTiQ] JiJfFErLTRlj S 
;Setup magic constant 
flLUCHEMfC] DESTCflR] JUMPIFLTR0] S 
;5ctup for normalize 
.reloc 
[.USE[HILOC] . , 

[ xiist 

list ] 1 

FLTR0: OECCNST 331 DEST[Q] JLrF[FLTR2] $ 
FLTRl: OtrtM] DESTCfWl JUnP[FLTR21 » 
FLTR2: DECONST 21 R0TE61 rt_UE[X)RQ] OESTEIR-flOR] NORM $ 

;Make magic constant for exppnent 
;;; ALUE0] OeSTEQ] PUSHJ E FPNARL ] * 

ALU£0] ESeSTEQ] PUSHJEFPWR] » 
;Clear low order word 

;^klrmalize and round (happens to have same bit on as 
FxxR) 

;Result goes to AC 
JUMPIMfilNl WCRM $ 

;Start next instruction fetch 
;hxx Another Jl^tPEMAIN] 

.REPEAT WAITS i 

Checksum user memor/. It is used as follows (note: PROG=OOB+1): 



sltegat I 
FIXER2: 



."Number 



now DOS, DOB 



-SI2E OF CORE IMAGE,, = AOBJN POINTER TO CORE 



nOVEI PRQG.0 

XCTR xa.TR,iCHKINS DOB,] 



; CHECKSUM! 



.even 

;CAUTION: Do not add/delete instructions from here to CKINSl i ! ! 
CHKINS: ALUEACl DESTEMA] CONOEKBUSO) JUWEMAINl $ 
:If UCMA exhausted, instruction done 
DFRQ C0NDE-nA<28] JEjrPECKINS2] « 

;Fetch first word. Ue make sure we get in at least one 
word 

;E3cfore taking interrupts 
;Jump if not referencing real ACs 
.repeat 1 - waits E 

.error S ;WaRNING: CHKINS doesn't know about ACBASM! 

]:. repeat 1 - waits 

CDNDEUSER] JUnPECKINS2] NORM $ 

.'If we're referencing Exec memory, take the AC after 
all!!! 
; \ / 

DCINSl: ACSELIMAl ALUEACl DESTEHOLDl JUMPECKINSZl NORM % 
;Cop>' specified AC 
DErejl] ACSELlAC+ll ALUED+ACl OESTEAC] NORM $ 

;Add into checksum 
DEI, ,11 ALUED+ACl OESTEAC MAI CONDt-OeUSOl JUMPEmiNl C550 $ 

;Update unCA. Done if exhausted. 
CONDEINTRPT] JUTPECKINSll 0588 S 

;Ses if there's an interrupt pending 
CONDEnA<201 JUnPEOCIHSl] C508 « 

;Check to sec if we stay in AC checking loop 



83 8761 



CKINS2: DEr^M] ACSELEAC+1] ALUED+flCJ DESTEAC] NORM $ 



SLX March 23, 1984 21 = 11 = 11 file DSKsF+FLOT.SLO 



of — FnmF 



03 8767 
es 9788 
83 8783 
83 8778 
03 8778 
83 8771 
831110772 
a3m0772 
S3n!0772 
83m8772 
03.10772 
031110772 
031110772 
03iii8772 
03iii8772 
03iii8772 
03010773 
031110773 
03i»0773 
03010773 
03010773 
03010773 
03010773 
03010773 
03010773 
03a0773 
03010773 
03oi8773 
03010773 
03m0773 
83010773 
03010773 
83o«773 
830.0773 
030.0773 
03B0773 
830.8773 
030.0773 
830.0773 
030.0773 
03010773 
S3n.S773 
03010773 
030.0773 
03o«773 
03010773 
83o«773 
83o«773 
83010773 
83100773 
03010773 
83(»0773 
03m0773 
03n0773 
03 0772 



12H6 7103310e600eZ271141SlB202S43HSE000 
121+7 01073111200000001416162025431256000 



12150 01073112400600861416162025431456000 

12151 01033117000000001416150005431456000 

12152 8105031700000G05S4161S2355471S16000 

12153 7185e3e8S837227114883S28255£14SS8e8 

12154 01073110400024323416152025421456000 

12155 01073111006624323416152025421456000 

1215? 01050317000006055416162355471516000 
12157 71050300603722711400362025561456006 

12160 01073110600024335416162825421256000 
12151 61072117000022711416146025631456000 



fUait for next word. Junp if not interruptina 
D[PCi flLU[D-l] DESTEFCl JUnPIHfilNl NORM » 

;Soiaeb3dy wants to take s aiicro- interrupt. 

;85Ci<up PC so t^e can finish later, arid do instruction 



fetch 



;ritual just in case we don't interrupt 
[ 
; Checksua ussr taztaary. It is used as follows (note: P90G=OOB+13: 

; MOW DC9,DD8 :-SIZE OF CCSS IMAGE,, 8 = MBJN POINTER TO CORE 



MC<,tI PROG. a 

XCTR )(Ea.TR,ICHKINS DDB.l 



; CHECKSUM! 



.even 
C:. \ 2 + . 

l;CflUTION: Do not add/delete instructions from here to CKINSl ! ! ! 
CHKINS: ftLU[l^] DeST[Mfl] COND[-aBLG<0] JUMPIMfllN] $ 
;If HCMA exhausted, instruction done 
DFRQ CDiCi[-MA<20] JLrPtacINS2] * 

;Fetch first word. Ue oiake sure we set in at least one 
word 

^before talc ins interrupts 
;Juov} if not referencins real ACs 
■repeat 1 - waits [ 

.error S ;UARNIKG: CHKIMS doesn't know about flCSAS!!! 

];. repeat 1 - waits 

CCNDtUEERl JUnP[D<:NS21 NORM $ 

;If we're referencins Exec meoiory, take the AC after 
all!!! 
; \ / 

CKINSl: M;SEL[fml PLUIPCI DEST[hDLDl JW«Wa«6£] NORM S 
;Copx specified AC 
DIMEfl] ACSELEAC+l) ALUID+AC) DESTIACl NORM % 

:Add into checksuffl 
D[1,,1J ftLUED+ACl DEST[AC Wtl Ca»£![-0BUS<8] JLTPtMfilK] CS58 S 

jUpdate litCA. Done if exfTausted. 
CDNDLINTRPJ] JLMPECKINSl 1 C500 S 

;See if there's an interrupt pending 
COND[rK<20) JUtlPICKINSll C50e $ , 

; Check to see if we stay in AC checking loop 

CKINS2: DIMEMl ACSEL[AC+1] flLUCD+AC] DESTIACI NORM $ 
;Add into checksum 
Oil, ,11 ALUtD+AC) DEST[AC MA] COND[-CBUS<01 JUnPCMAINl C550 S 
;Update UfCA. Done if exhausted- 
; \ / 

CKINS3: DFRQ CDJiD[-INTRPT] JUnPtCK:iNS21 C500 t 

;Uait for next word. Junp if not interrupting 
DIPCl fiLU[D-n DESTIPCJ JUMPCMAIN] NORM S 

;Sonebodx wants to take a Micro- interrupt. 
^Backup PC so we can finish later, and do instruction 
fetch 

;ritu3l just in case we don't interrupt 
]. REPEAT WAITS 



SLOE rlarch 23. 198+ 21:11:15 file DSK:F+1BS.SLD 

81 eees 
ei eees 
01 eee? 
81 eee? 

81 8888 

81 8883 

81 8818 

81 8811 

ei 8812 

81 8813 

01 8eH 

01 8815 

01 8816 

01 8017 

01 8018 

01 8013 

01 8028 

01 8021 

01b8022 

01118022 

01ib8022 

81 8022 

01 0023 

01 8024 

01 8025 

01 8026 

01 8027 

81 8028 

81 8023 +847 ILLINS = ITRflP 

01 8030 

01 0031 



3f — F41MNF 

;Flo3tin9 Point stuff 

;Ti'iese definitions alloM selected ■icrocode to asseablc for either sn F2 
or 
;an r4. dependins on r4SW. Sec VC-SLO for an exaople. 

.DEFI^E DEFI^E-fl-nEt1[SY^ UftL] [ 

SYM = ^jfiL * D«flrEn0 

):.C€FINE-fl-rEM 

.OEFIFC HEHST [1 I SrttC ] 

.DEFINE FIXMl ii [ DFRQ ALUtrtfifCJ DESTtHOLDl J 

-DEFINE FETCH-ICXT-INST [I [ JLTPCMAINl 1 

.DEFINE FETCH-hEXT-INSTl [1 t JUtlPEmiN] 1 

.REPEftT 1 + (flW-ROT > 0) [ 

.DEFINE XDISP [] [ ODISP LONG 1 

.DeFI^E XDISPl [] t GDIS' LONG ] 

];[ 

.DEFINE XDISP H [ OOISP LONG ] 

.DEFINE XDISPS [1 ( OOISP LONG ] 

). REPEAT 1 + (nUA-ROT > 8) 

.REPEAT - (HUA-ROT > 0) [ 

.DEFIfC XDISP (1 [ DESTIAR] S D[f«l ROTEHUA-ROTl OOISP LONG 1 

.DEFIKE XDISPl [) [ ROT [ MUfl-ROT 1 ODISP LONG 1 

];. REPEAT 8 - (flUAH?OT > 8) 



. insert F4I0 



SLOE March Z3, 19&* 21:11:17 file DSK:F^IO.SLa — of 



F41WJF 



81 eeei 
01 eeez 
01 eeea 

0! 0004 
ei 088S 
81 0008 
81 0807 
81 0008 
01 0009 
81 0018 

01 8011 
01 001Z 

01 8013 

01 0014 

01 8015 
01 8016 
01 8817 
81 0018 

01 0013 

81 0020 
81 0021 
81 0022 
01 0023 
81i»0024 
ei>«024 

01.0024 

81B0024 
01 [110024 

01ID0024 
01010024 

01B0024 
01 8024 
01 0025 
01 00ZB 
01m8e27 
01111002? 

01010027 

01100027 
8 1010028 
01018028 
01010028 
01oi8028 
01010028 
01010028 
81018828 
01 0828 
81010029 
81010829 
81o>8e29 
81010030 
01010838 
81010030 
01»a838 

01>«030 
01n0038 
81n0030 
01 0029 
01 8030 
81OI0S31 
01m0031 
01n0031 
01010831 
0100032 
01010032 
81010032 
81010832 
01010032 
81018832 
8100832 
01010032 
81010032 
81018032 
81010032 
81010032 
8ioi8i032 
81010032 
81010832 
81010032 
81100032 
01010032 
01010032 
01110032 
81ioO032 
01010032 
01 0032 
01010033 
01010033 
01 0834 
81 0035 
81 0036 
01010037 
31n0e3? 
01010037 
01>e037 
01o«037 
01B0037 
01010037 
01 0032 
01 0033 
01 0034 
01 0035 
01 0038 
01 0037 
01010038 
01o«03e 
01 0039 

01 0040 

01 0037 



07682 01873112688000001415162125431456000 
07503 01073112600000001416162125431456080 



07606 81073112600030001416162125431456000 
07687 81073112608000001416162125431456000 



87518 01073112600000001416162125431456000 

87611 01073112680000001416162125431456000 

87612 01073112600000001416162125431456000 
07613 01073112600O0O00141616212543145G0O8 

87614 01073112600000001416162125431456000 
07S15 010731126000000014151621^3431455808 

07616 01073112680000001416162125431456000 
07S17 81873112680000001416162125431456000 

07620 01073112600000001416162125431456000 

07621 01073112600000001416162125431456000 

07622 01073112600000001416162125431456000 

07623 01073112600000001416162125431456000 



07626 01073112600000001416162125431456000 

07627 81073112500000001416162125431456000 



07630 01073112600000001416162125431456000 
07831 81073112600006801416162125431456000 



07676 018731 1708002271 141616202S4314SGO0O 

07677 01073117000022711416162025431456000 



j<XF4-niCROCDDE>F4I0.SL0.S, 22-Jan-B3 13:14:33. Edit by FRENCH 
;BE SURE (VP OFF FOR RESETIHG OF TYrWET PTRS 



.REPEAT 1 - STftNSW t 
-define ILLIOTIFIRST LAST] [ 
.opcodetFIRSTl 

.receat tl + LAST - FIRST) [ 
JLTPilTRSPl * 
JUMPCITRAPl $ 
J 
1 
];. REPEAT 1 - STANSU 

.REPEAT STflKSU t 
.define ILLIOTLFIRST LAST] [ 
.opcode[FIRST] 
.repeat (1 + LAST - FIRST) t 

aMD[-USER] LBJUnPIPANIOT] 
CONDE-USER] LBJUtlPtPANIOT] 



] 
1 
];[ 

.define ILLIOT[FIRST LAST] I 
.opcodeTFIRSTl 
.repeat (1 + LAST - FIRST) [ 

CtM3[-USER] LBJUnP[PANIOT) 
COND(-USER] LBJUrP[PANIOTl 

1 
I. REPEAT SlfHSU 



ILLIDTtTSl 701] 
t 

.opcode[781 1 
[xlist 

list 1 -repeat (1 ■>■ 781 - 781) ! 
CGND[-USER] LBJUtPIPANIOT] * 
CONDt-USER] LBJUnPtPANIOT] $ 



1 



[ 



CONDI -USER] LBJUMPIPANIOT] S 
CCM)[-USER] LBJUHPIPfiNIOT] $ 
] ] 
.repeat 1 - JSYSOF I ILLIOTI703 7031 ] 
.opcode [703] 
ixlist 

list ] .repeat ( 1 + 783 - 703) I 
CONDI-USER] LBJUHPIPANIOT] % 
CONDI-USER] LBJUMPIPANIOTl S 
1 

I 

CONDC-USER] LBJUHPIPANIOT] $ 
CC»C[-L'SER] LBJUflPIPANIOT] $ 
] ]];JSYS DEVICE lOT 

^LLI0Tl784 7' 1 j 
I 

.opcode [704] 
Ixlist 

list ] .repeat (1 + 711 - 704) [ 
CCKDI-USER] LBJUr!P[PANIOT] $ 
CONDI-USER] LBJlJW[PANiaT] « 
] 

CONDI-USER] LBJUnP[PANIOT] $ 
COND[-USER] LBJUWIPf»IIOT] $ 

[ 

CONDI-USER] LBJUMPIPANIDT] $ 
Caei-USERl LBJUMPIPAHIOT] $ 

[ 
CDND[-USER1 LBJUnPtPANIOT] $ 



[ ILLIOT[703 703] [ 



t 



01 0039 



CaND[-USER] LBJUnPIPANIDT] * 
CDND[-USER] LBJUMPIPANIOTl * 
][ 
COND[-USER] LBJUMPIPANIOT] * 
CONDI-USR] LBJUHPIPANIOT] S 
][ 
COND[-US£R] LBJUnPIPANIOT] $ 
CON0[-USER) LBJUnP[PANIOT] % 
] ] ILLI0T[7i3 7143 I 

.opcode[713] 
[xlist 

list ) .repeat (1 + 714 - 713) I 
CC»ID[-USER] LBJUrP[PANIOT] t 
CONO[-USER] LBJUPP[PANIOT] S 
] 
r 

C0M3[-USER] LBJUnP[PANIOT] $ 
COM)[-USER] LBJUfflPANIOT] t 
][ 
CONDI-USER] LBJUfPIPANIOT] $ 
COK)I-USER] LBJUnP[PANIOT] $ 
] 1 
.repeat 1 - DLS t 
.opcode [7371 
JUnPinAINl t 
JUfPlrSAIN] $ 
];[ 
.opcode [7371 
[xlist 

list ] JUtf[miNl $ 

JUnPItlAIN] c 

]. repeat 1 - XS 
-REPEAT S - UftlTS I 

ILLIOT[750 752] 

A < ThKa r Tl I TnTr-Jcrr Tcn i 



SLOE March 23, 138t 21:11:25 file DSK:F4ia.SLD — of — FntWF 



ei 8645 

81 eets 
ei 08+7 
ei ee'ta 
ei eM3 
ei eese 
ei eesi 

81 8852 

ei 8053 

81 8854 

81 8855 

81 8856 

81 8867 

81 eeea 

81 8053 

81 8868 

81 0061 

81 8862 

81 8063 

81 8064 

81 8065 

81 8866 

81 8067 

81 8068 

81 8063 

81 8063 

01 8878 

01 8071 

01 8072 

01 0873 

01 8874 

81 8875 

81 0076 

01 0077 

01 0078 

81 0878 

01 0079 

01 8068 

01 0061 

01 0862 
81 0962 

31 eeea 

81 8064 

01 0665 

81 8065 

01 8067 

81 8066 

eiB00e3 

811110083 
01i>0e83 
Olm80e3 

0U0030 

eiB0030 
0iB8e30 

01110830 

8i>i0e3e 

01BO030 

01110898 

01>O030 

siaaaaa 

011118898 
81n8090 
81m80ge 

01B8090 

eim8098 
vIrkKKjo 
81110098 
81 8063 

01 0030 

01 0031 
01 0032 
81 0833 
81 0032 
01 0833 
81 0094 
01B8095 
01n>e895 
81n8e35 
81ii>0e96 
81ri>0096 
ei>i8036 
eine09E 
01B0036 
01>iO09E 

01B009G 

01n0036 
01n003G 
01110096 
01 8036 
01 0096 
01*8837 

0lBa03r 

01 0038 
01 0033 

01 0100 

0i>ei0i 

01l>0101 

81n0101 
01m0101 

01010101 

01m8181 
01n0101 
01 0036 
01 0037 
81 8038 
01 0039 
01 0180 

01 0101 

81 0183 



87666 81073112600000801416162125431456000 
07667 81073112500800001416152125431456000 



87670 01073112600080001416162125431455008 
07671 010731 1260000000141615212S43145G000 



07672 010731 1250080000141616212S43145S000 

07673 01873112600000001416162125431456000 



07674 01073112600000001416162125431456068 

07675 01073112600000881416162125431456000 



07720 
07721 



07722 
07723 



01073112600000001415162125431456008 
01073112500000081415162125431456008 



810731 1260000000141616Z12S431456000 
01073112600006801416162125431456000 



87724 
87725 



87726 
0772? 



01073112600080001415152125431456000 
01073112500800001415162125431456008 



01073112600000001416162125431456000 
01073112600000001416162125431456000 



];. REPEAT 1 - WAITS 

.REPEAT UAITS [ 

ILLI0TE733 735] 
.REPEAT 1 - DLS t 
; ILLI0T[737 7371 
];. REPEAT 1 - DLS 

[740 7431 
I ILLI0T[744 747! 

ILLIDTE750 7511 

IU.iaT[7S2 7531 
.REPEAT UC [ 

.0Pa)DEt7541 



;rrencn s ta 



;XS 



;IMP (ctevice 558) 

;unused 

;Tire:R 

;unused (fornerl)^ extravansent 



;FOOVision (opcodes 766 thru 773) 



;Di£l< 
.: Tynnet 

;Dia9nostic instructions? 
:SAnx (devicn 528 to 534) at COaw 
;^'ersatec 
.'Undefined 
DtCaeT UCDEy] DESTCDEV-AOR] NORTI COWI-USERJ LBJUnPtUCIOTl s 
DtOJNST VCOEVl OESTCDEV-AORl NORH CCWD[-USER1 LflJUnPCVCIOTl S 
;Set aicro device address for Uersatec and check for 
;IOT-User aode 
];. REPEAT VC 
.REPEAT 1 - yC C 

ILLIQT!754 7541 
];. REPEAT 1 - VC 

ILLI0TC7S5 7551 
ILLI0Tt7S6 757J 
; [750 7561 

ILLI0T[761 7671 
lots) 
;Note: [TRTIA uses [TA = 770 
.REPEAT 1 - STflNSU [ 

ILLIDT[771 7711 
];. REPEAT 1 - STANSH 
.REPEAT ST ANEW [ 

.opcodet771] 
DtCONST AS-UOEVl DESTtDEV-ADRl NCRtI COND[HBER] LBJUrP[ftSIOT] S 
D[(»fiT ASHBEVl DESTtDEV-AOR) NORtI CDNDI-USER] LBJUfP[ASIOT] S 
;Set Micro device address for audio suitch and check for 



;IOT-User mde 
];. REPEAT STANSU 
.REPEAT 1 + CDIAGDEV > 0) [ 

ILLIQT[772 7731 
device) 

3;. REPEAT 1 + CDIAQ^.' > 9) 
.REPEAT 1 - STANSU [ 

ILLI0T[774 774) 
];. REPEAT 1 - STANSH 
; [775 7761 

ILLI0T[777 7771 
1;[ 

ILLIDTI733 7351 [ 
.opcode[7331 
[xlist 

list 1 .repeat CI + 736 ■ 
CCiND[ 
CCINO( 



iDiagnostic instruction (for arbitrary 



;FO[WET 
; unused 



USERl LBJUMPIPANIOTl 
USER] L8JUfP[PANI0T] 



733) 

* 



1 



[ 



CONOI-USER] LBJLnP[P(WIOTl $ 
CCi^«)(-USER] LBJUtlPEPANIDTl $ 
H 
C!]NC[-USER} LBJUIPIPANIOTI S 
COSEl[ -USERl LBJUnPIPANIOTl S 
H 
Ct3ND[-USER] LBJUrP[PANIOT] « 
C(»fO[-USER] LBJUnP[PANIQTl $ 
)[ 
C0NO[-US£R) LBJUtr(PANIOT) S 
COND[-USER) LBJUnP[PANIOT) S 
1 3 ;French*s tape IDTs 

.REPEAT 1 - XS [ 

; ILLI0T[737 7371 ;DLS 
];[ 

; ILLIQT[737 7371 ;DLS 
1. REPEAT 1 - OLS 

; [748 7431 .-Disk 

; ILLI0T[744 7471 ; Tymnet 
ILLIOT[7S0 7S11 [ 
-opcode! 7581 
[xlist 

list 1 .repeat (1 + 751 - 750) [ 
CONO[-USER1 LBJUI1P[PANI0T1 t 
CC1N0[-US£R] LBJUrPtPANIOTl $ 



1 



[ 



CCIN0[-USER1 LBJUnP[PANiaTl 
COMJE-LiSERl LBJ[jnPLPANIOTl 



[:CNn[-USER] LBJLiHP[PANIOTl 
CONOI-USERl LBJUtlPCPANIQTl 



1 1 ;Di33no5tic 

ILLIDT[7S2 7531 [ 
.opcode[?S21 



instruct ions? 



list 1 .repeat ( 1 + 753 - 752) [ 
CaSI[-USERl LBJUnPIPANIOTl $ 
C0N0[-U5ER) LBJUnPtPANIOTl » 



CDN0[-LSER1 LBJlJf1P[PANIDTl 
C0ND[-L'SER1 LBJUnP[PANIOTJ 



H 



C(MD[-USER1 LSJUf*>[PANIDTl S 
CONDI-USERl LBJUnPIPANIOTl S 
1 3 ;SAt1x (devices 528 to 534) at CCRfIA 

.REPEAT yC I ;yersatec 

.OPCODE [7541 ;Urdef,ned 

D[CCWST UCDEUI [JEST t DEK-ftOR 1 NORM C0ND[-USER1 LBJUMPtVCIDTl $ 
D[CDNST XDEU) D£STt[Xy-AORl NORM C0ND[-USER3 LBJUMPIUCIDTl $ 
:Set micro device address for yersatec and cl^eck for 



1;[ 



Ver sat ec 



SLOE narch 23, 1384 21:11:35 file STRING: 



o-f — F+lWf 



ei eies 
01 ei03 
31 eim 
ei eies 
ei eiee 
eiiieie? 

91B0107 

ei>aia7 
eiaeies 
eioeiee 
eineies 
eineiea 
eiiiQiee 
eiaeiee 
eineiee 
61 ei07 
01 0iee 
0iipei09 
0iii0ie3 

01 0110 
01 0111 

01 0112 
01aeil3 

0ii!ieii3 

01E0113 

01«0113 
01a0113 

01B0113 

01a0113 
01 0106 
01 0183 
01 0110 
01a0111 
01aeUl 

ei 0112 

91 0113 

01 0114 
01II0115 
01B0115 
01B0115 

01ri«115 

01a0115 
01ri>0115 
01B0115 
01a0115 

01B0115 

01a0115 
eiB0115 
01n0!15 
eim0115 
eiia011S 
01*0115 

oiaaiis 

011110115 
01B0115 

01a0115 
01>ieil5 
01m011S 

01 0110 

01 0111 
01 0112 
01 0113 
01 0114 
01 0115 
01 0116 
01 0117 
01 0118 

01 0113 

01 0113 
01 0120 

01 0121 

01nO122 
01n0122 
01 0123 
01 0123 
01 0124 
01 0125 
01 0125 
01 0126 
01 0121 
01 0122 
01 0123 
01 0123 
01 0124 
01 0125 
01 0126 
01 0127 
01 0128 
01II0123 
01x0123 

01B01Z3 
01M0130 
01B0130 
01B0130 
01l>ei30 
01l>0130 

01n013e 

01B0130 

01 0129 
01 0083 
01 0030 

01B0031 

eii»0e3i 
0iii>0e3i 

01 0032 
01 0033 
01 0034 



07732 
07733 



010731 12E0000000141S16212S431456000 
01073112500000001416162125431+56000 



07734 
07735 



07736 
07737 



0107311260000000141E1S2125431456000 
01073112500000001415152125431456000 

01073112600000001416162125431456000 
010731 12800000081416162125431456068 



07742 
07743 



07744 
07745 



07746 
07747 



07750 
07751 



077S2 
07753 



07754 
07755 



677SS 
07757 



810731 12680800001416162125431456008 
81073112608888801416152125431456088 



01073112500880801416162125431456088 
81073112608880001416162125431456008 



81073112600000081416162125431456808 
01073112600800001416162125431456000 



01073112600000881416162125431456808 
81073112600000081416162125431456000 



01073112600000001416162125431456000 
01073112680880001416162125431456888 



01073112600000001416162125431456000 
81073112608880881416162125431456088 



01073112600000001416162125431456000 
01073112600000081416162125431456000 



07762 
07763 



010731 126040000014068461Z5571457000 
01073112604800881406046125571457008 



07776 
07777 



01073112600090081416162125431456000 
01073112500000001416162125431456008 



;I07-Dser scde 
]. REPEAT VC 
.REPEftT 1 - UC [ 

ILLI0T[754 7543 ;'JC 
];. REPEAT 1 - VC 

lUIOTtTSS 7551 [ 
.opcode[755] 
Exlist 

list 3 .repeat (1 + 755 - 755) I 
C0ND[-US£R3 LBJUTPEPANIOTl $ 
CtB«P[-USER3 LBJUtPtPANIOTl t 
3 
[ 

C0ND[-USER3 LBJUMPtPANIOTl $ 
C0ND[-USER3 LBJUHPtPfWIOTl * 
1 1 tinP (device 558) 
ILLI0TI7S5 7573 [ 
•opcode[75£3 
txlist 

list ] -repeat CI + 757 - 756) t 
C0NDE-USER3 LBJUnP[PANIQT3 * 
CaC[-USER3 LBJmP[PftNI0T3 * 



1 



t 



C0ND[-USER3 LBJUnP[PflHICIT3 
CCM)[-IKK3 LBJUnP[P»II0T3 



3t 



C0ND(-USER3 LBJUnP!PANI0T3 $ 
CaND[-USER3 L8JUnP[PfiNIOT3 $ 
3 i ;unused 

; [768 7603 ;TItER 

ILLIQTt761 7673 I 
.opcodc[7613 
[xlist 

list 1 .repeat CI + 767 - 761) t 
CO«3[-USER3 LBJLrPtPf»liaT3 $ 
awD[-USER3 LBJUnP[PANIDT3 $ 
3 



[ 

CaND[-US£R3 LBJUnP[PANI0T3 « 

C0ND(-USER3 LBJUHPIPANI0T3 « 
ir 

CONDC-U^R) LBJUMP[F»ANIDT3 * 

a»D[-USER3 LBJljrP[PflNI0T3 $ 
3[ 

CaND[HISER3 LBJUMP[PAmOT3 $ 

CDN0[-USER3 LBJUnPtPANI0T3 S 
3C 

CC»D[HfSER3 LBJUf«=(PANI0T3 * 

CC»0[-USER3 LBJUnP[P(*II0T3 « 
3[ 

[:0ND[-USER3 LBJlJnP(PAHI0T3 $ 

C0NDCHSER3 LBJUnPlPftNIOT) « 
3[ 

C0ND[-USER3 LBJUrP[PflNI0T3 $ 

CQNDC-USER3 LBJLWCPANI0T3 S 
3[ 

C0NDE-USER3 LBJUrP[PflNI0T3 « 

□M)[-USER3 LBJUrPCPANIDTl » 
3 3 ;unused Cforaerly cxtravansent tiaer iots) 

;Note: tXRMA uses DCA = 770 
.REPEAT 1 - STANSU [ 

ILLIDT[771 7713 iFOOVision (opcodes 766 thru 773) 

3, -.REPEAT 1 - STANSW 
-REPEAT STANSW t 

.opcode[7713 

DCCONST AS-UDEU3 DEST [ DEU-ADR 3 NORM Ca«[-USER3 LBJUHP[ASI0T3 t 

DCCONST AS-UCIEU3 [5EST[DEV-ADR3 NORM CCWDt-USERi LBJUnP[ftSI0T3 S 
;Set aicro device address for audio switch and c>ieck for 



3;[ 



;IOT-User sode 
.opcode [771 3 



:Dia9nostic instruction Cfor arbitrary 



TrPGRN 
FOCNET 



[xlist 

list 3 D[C(3NST A5-UOEy3 OEST I OEV-flOR ) NORM C£nOl-USEI?3 

LBJIJnPtASI0T3 $ 

DICONST AS-UDEVl DEST[DEV-A0R3 NORM C0ND[-US£R3 LBJLrP[ASI0T3 « 
:5et micro device address for audio SMitch and check for 

;IOT-User node 
3. REPEAT STANSW 
.REPEAT 1 + CDIAGOEW > 0) I 

ILLI0TC772 7733 
dev i ce ) 

3;. REPEAT 1 + (DIAGDEU > 0) 
.REPEAT 1 - STftfSW [ 

ILLI0T[774 7743 
3, -.REPEAT 1 - STANSW 
; [775 7763 

ILLiaT!777 7773 [ 
.opcode [777 3 
[xi ist 

list 3 .repeat [1 + 777 - 777) [ 
C[»C[-LISER3 LBJUt1P[PANI0T3 S 
C0ND(-USER3 LBJUrP[PANI0T3 $ 
3 
[ 

CQN0[-L'SER3 L8JL*1P[PANI0T) » 
C0N0[-USER3 LBJUrP[PANI0T3 $ 
3 3 :unused 

3. REPEAT WAITS 

-reloc 
[.USEIHILOC) 
[ xlist 

list 3 
.repeat VID [ 

. insert F4'JID 



01 0836 



3 



SLDE March 23, 138+ 2l!ll:++ file DSKiF+ID.SLO — of — F+lWf 

8! 0192 

@1 0183 .repeat DCfl [ 

0! 010+ .insert DCA 

0! 019S Jflltsrnate scanner code CF2 

eie0ie6 j 

0110106 I 

01b8106 . insert DCA 



SLOE March 23, 1384 21:11;+S file DSK:Xfl.SLO 



of — F^NHf 



XflSTflTE » 1 + DwnEne 

XftCPR = z + mflfiEne 

XflSEL = 3 + D»flrEf18 

DCAJflP == ■» + OtfTEne 



eineeei 

eiaeeei 

ei-eeei 

eiaeeei 

8ia0eei 

eiaeeei 

eineeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaaeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eimeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eimeeei 

eineeei 

aineeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaaeai 4e oaosp - & * oxetiEm 

eieieeei 

eiaeeei 

eiaeeei 41 

eineeei 

eimeeei 

eimeeei +2 

eiaeeei 

eineeei 

eimeeei 43 

eineeei 

eineeei 

eiaeeei 44 

eineeei 

eineeei 

eineeei 

eimeeei 

eimeeei 

eineeei 19 olscsr = le 

eineeei 14 dlsnosel 

eimeeei 

eimeeei 

eimeeei 

eiaeeei 

eineeei 

eineeei 

eimeeei le iackut = 

eimeeei 

eimeeei 3 nols 

eimeeei 

eimeeei 

eineeei 

eiaeeei 

eiaeeei 

eiaeeei 

eiaeeei 

eimeeei 

eiaeeei 

eineeez e77Be eie73ii2S840aeeei494e4sizss7i4S7eee 

eineeez 

eineee2 e77si eie73ii2Ee40eeeei404e4Bi2557i457eee 

eiineee2 

01me8e2 

eineeez 

ei eeei 

ei eeez 

eimeees 

eimeees 

ei eee4 12152 0i073iee20eeie2ieiG03G2e24sii45seee 

ei eee4 

ei eees 

81 SaeG 121B3 61873017a0000S8S43'fli£2KS77i4i6e00 

ei eee7 

ei eee7 

ei eeee 

ei eees 

ei eeie 12ib4 eie60ii7eeeeeeee044480e72Beii4568ee 

ei eeii 

81 8812 

81 eei3 
ei eei4 

ei 8815 

ei eeiG 

81 8017 

81 eei7 
ei eeia 
ei eei3 

ei 8828 
01 0622 



(V~fJ ~ ^fi 



DCft simulator for ITY scanner 



eaented for more than on* TTY 



; Caveats: 

; Hzt f ii^ ^ y i — ' 

to fix 
; code near OCfCDZ to do IflCK to more than one card, wid define 

NDLS to 
! be number of TTY cards used. These are the knoun problems; 

others nay 
; exist, especiall). for neuer version of TTY card- 

; 1^ select COMO Hith bit 28 off will senerate an i lleaal 

instruct ion 

; error. Also, a DATfll follouins a non-select CONO that had IflOC 

off 

; will Generate an iUesal instruction error as uiU ■ DATAO i*ien 

lAOC 

; has not been cleared by a non-select CONO or either a OflTAI or 

DftTAO 

i when CS is not set. 



Fornat for wr I te 

Bit(s) Meaning 

9:14 TTY nudser C9:18 com 

IS CS 

IE UE 

28:35 Data 

Format for CSR 

Bit(s) Meaning 

8 Interrupt Enable 

11 MR 

;A-Men usase 
DEFINE-fl-MEHIDCflOSP 8] [ 

] ;IDT dispatch. . iritErru"t disp; 

DEFIJC-fl-MEMtXfiSTflTE 1) [ 



];Microcode status (most of what CONI returns) 
XFINE-fl-MEMCXflCPR 21 [ 

1 .-Card. Port. Register 

XFINE-A-MEMIXftSEL 3) [ 

1 ;Hardwarc select word 

XFI^E-fl-M£M[XflJ^^p 41 t 



red with GRP NO switches) 



] 



; Saved dispatch address for register select 



8 XSSEL - 8 
4 XSIflCK = 4 



;MftPF fields 
;5elect TTY and register number 

;Interrupt acknowledge (also, interrupting line) 
; Interface Command/Status Register 
;Don't select anything 

;Load write data in above format if MAPF not eq XSCSR 

;A write effects every card. A CSR write effects every ca-d. 

;fi MAPF select of JACK effects only the selected card. 

;A read effects only the selected card. 



18 ;.Z*1E = 3.2 + 

Number of XS ca-ds in LLL F2 



Number of microseconds to wait for lACK 
rgin 



.REPEAT F4SU [ 

.opcode [770] 

DECONST XA-UOEV] XST(Xy-ADRl CQND[-US£R1 LBJUMPtXAIOTl * 
DtCONST XA-UOEU] D£ST(XU-ftDR] CONDC-USERJ LBJUMPtXAIDT] $ 
.reloc 
];[ 

.opcode [7781 
[xlist 

list 1 DtCONST XS-UDEV) XSTtXV-ADR] COM) I -USER] 

LBJUMPtXAIDT] $ 

DtCONST XA-UDEV) DESTtXU-ADCl CONOt-USERl LBJUMPtXAIDT] $ 
-reloc 
t.USEtHILX] 
t xlrst 

list ] ]]. REPEAT F4SW 

.PAIR 
t:. \ Z * . 

JDCAIOT: DtPC -FLAGS) ROTIB + 1) MASKIll CONDt[BUS=01 JUMPtHUUO) 

LONG i 

;Trap if User and not lOT-USER 
Dili<i kuTiiZ. * 1 + Ij riASKi4) XSTtO) NORM % 

;Extr3ct lOT decode « Z. Note we can do this because the 

.'machine has already done indexing/ indirect ion and bits 
:13:17 are guaranteed zero 
DiXADSP] R0TI18.] MftSKtlB.] ALUtD+Ql XDISP I ODISP LONG 1$ 
;Dispatch of type of IDT 

^Allocate space for dispatch table 
XA-OISPATCH: . , 

!. + Z0 



CONI IC10, 



SLsE Plarch 23, 198* 21:11:52 file DSK:Xfl.SLD 



of — FMHf 



SI ee28 
ei eeze 
eiBe829 
eiasezs 
81 eeae 
ei ee39 
ei eeai 

ei 6632 

81 ee33 

ei 6634 
ei 6635 
61 6636 
61 663? 
61 6638 
61 6633 
ei>6e46 

einaeie 
eiBa646 

61 9641 
61 6642 
61 6642 
61 6643 
61 6644 
61 6645 
61 6646 
81 884? 
61 6648 
61 6643 
61 6656 
61 6651 
61 6652 
61 6853 
81 8054 
61 8655 
61 665E 
8! 6657 
61 6657 

eioaesa 

8106658 
61 6659 
61 6666 
81 9651 
61 8662 
61in6663 
61n8e63 
eiB8663 
61 8664 
61 8664 
61 86G5 
61 8656 
61 8067 
61 8668 
61 8669 
61 8678 
61 8671 
61 8072 
81 8073 
61 6074 
01 0075 
81 0876 
01 6877 
81 6078 
61 6079 
81 6086 
81 6081 
61 6082 
61 6083 
81 8084 
81 6885 
81 6086 
81 0887 
81 6688 
81 8083 
81 6636 
61 6031 
61 8632 
61 8633 
61 8094 
01 8095 
01 8096 
01 8097 
81 8038 
01 8098 
01 0039 
01 8188 
81 8186 
01 0181 
81 0181 
81 0182 
81 0183 
81 0184 

01 010S 

81 8166 
61 8186 
81 8167 
81 6167 
81 6188 
81 6109 
01 6116 
61 6111 
01 6112 
81 0113 
81 6113 
01 8114 
81 8115 
81 8116 
81 8117 

81 eiiB 



12177 81673131600022665416156125070456000 



12266 8ie7311?e00086055415!6236543141S000 
12281 ei87381788600SeS541ElE236E07141Seee 

12202 01073117000006001416162025431456000 

12203 81673017600006055416162366071416800 
1Z204 01073117600000001416162025431455086 



12175 61873180400000000616162825761456000 
1217S 919?30!?a09080eei482SS282Se?145S0ee 

12205 81865017000886055402162364731416600 

12206 01063817000086055482102365771416000 

12207 0107310060000000077616222S7614S6006 
12216 01073188686000001016162025761456088 

12211 81873117803106054620152365571415000 

12212 01073117143006055416162365421416000 

12213 81873100G0000060043616282S7114S6880 

12214 81073117803186854628352365571416800 

12215 01073117143006055416162365421415000 

12216 0107310060000000043616282S71145G000 

12217 0107311700318G054620552365571416000 
12226 01073U714300G05541616236S421416000 

12221 01073180600000000436162025711456000 

12222 01063817000006054240302365571416000 

12224 81178117803106054500352365571416000 

12225 01073117141006055483200365551417000 

12226 91024107640624455415152025421456^ 

12227 01073017043606055482162366861416800 

12230 61873137043106055416162365711416000 

12231 81873117140006055415152355411415000 

12232 81863117000606054220302365571416000 

12233 01073817000006055402162365437416000 

12234 81873137000080001408162825571456000 



.DRGrDCft-DIS^TCH -i- 121 
[ xlist 

list IDCflOlI: DIDCASTflTE] DEST t HEfSTO 1 lEtlST 
DESTEMEMSTO (W) C»D[W1<20] LBJUMPCSEDIl ))S 
;StDpl>' read back saved state 
NCP t 
Ororcj. njXfiSTATE] K^STEG] MGRfl S 
JLK>[XXa»BZl Ksm s 

;Go do generalized C0N52. 
DCflCSD: OCDCftSTflTEl DESTCOl NQRtI S 
JUnPlXXCDNSO] NORn S 

;Go do generalized CONSO. 

.RELX 
I.U^[HILX] 
[ xlist 

list 1 J 



t SmC t IFRQ 



; CONO K10, 










! ! Unused 


!DflTfl!(»Tft 
! 28 ! 29 


1 

TEST! EN 
! 


! 

HACK 
! 


PI CHANNEL ! 


! 1 ! CARD FILE • 


! 1 ! 


PORT » 




REG o ! 


; 24 25 25 27 


28 29 


36 31 


32 


33 35 



.cs;gixa-oispatch + i8i 

! xlist 
list IDCAOe: DCIRl R0Tt24.] CC»C[0BUS<6] JUnPCXASRGI CS56 $ 

;Ju9iP if setup CCMO 
DEXASTATE] f¥^SK[36. - 26.1 XSTIQ3 JltfCXACQll HJ9\ S 

;Get old state of device, excluding CS and lACK RTN 
.RELX 
t.USEtHILXl 
[ xlist 

list ) IXACOl: DIMfiSK (36. - 28. 11 

ALUC-DaOI XSTIOl NORfl $ 

;ReKvc old state (keep onlx RPLY and PIR) 
D[IR] HASK[3S. - ZB.l ALU[KRQ] XST[Q Xft5TATE] N0RT1 $ 

;Put in relevant bits in Q to construct the status 

;Mord to be stored back into A-fleia. 
DIIRl R0TI31.1 C0NO[-OBUS<ei PUSHJIXflRST) CS56 % 

;If enable bit is off, gronU state of scanner 
DdRl RGT[32.1 CC»ei-0aUS<8] JUrt>[XAC03) C550 t 

;If not doing lACK, thien skip this business 
DCCONST 0] R0TI3S. - 18.1 XSTIKBl SPECI ICB-OUTl NORPI S 

;Select card 8 but don't run the ASTRA chips 
nAPFEXSNQSELl SPECIIDB-IN] CS00 C 

;Read - INTR bit froa card 8 
CYLEN(IC8-IN1 DIIOOJ R0T[17.1 C(WDI-CeUS<81 JLWCXACOSl $ 

;Ju«p if card has INTR on 
DtCONSl 11 ROTtaS. - 18.1 XSTtI(»l SPEC[ ICB-OJTl NORft $ 

;Select card 1 but don't run the ASTRA chips 
mPF[XSNOSELl SPECLIQB-INl C500 * 

;Read - INTR bit fron ca-d 1 
CYLENCIOe-INl DCIOOl R0T[17.] COND[-OBUS<01 JUnPtXAC061 $ 

;Juinp if card 1 has INTR on 
DCCONST 21 R0Tt35. - 18.1 XSTCICBl SPECC lOB-OliT) NORM S 

;Select card 2 but don't run the ASTRA chips 
MflPF[XSNOSELl SPEC[ICIB-IN1 C500 t 

;Read - INTR bit froa card 2 
CYLENdQB-INl DdCDl R0TC17. 1 CaM)[-(HJS<01 JLrP[XAC071 S 

;Juiip if card 2 has INTR on 

;No one responded. Set lACK RTN, clea- RPLY, set NO AOOR 

XACQ2: DICQNST 11 R0T[3S. - 25.1 ALUIOORQl XST[Q XASTATEl NORfl $ 

;Turn on lACK RTN 
DtCOteT 11 R0TI3S. - 24.1 XSTIXACPRl JUnP[XAC031 NORM $ 

;Set NO AOOR 



XACQ5: DCCONST 11 R0TI35. 



15.1 ALU[D+1] XSTdOOl SPECI lOe-OUTl NORM $ 



jAssert CS and set card file for card 
;Mith invalid address (Iom bit) to sake sure no one 
responds 

nfVFtXSfffiStLl CYLENt I OB-OUT 1 DCCONST ((2 » lACKUT) - 3)1 LLOAD % 

;Set max. time for ASTRA to respond 

;XH I think DLSNDSEL allows setup time for IAC< on 

;»»» ASTRA'S Ion order data bus bit. 
f1i*T[[XSlMCJ.'l ftLUiei DEST[ia01 LOOPE.l CiLENiCSe©! $ 

;Wait for slowest. Load up 1(30 with CS off for use 
later. 

flAPFEXSIACKl DlXASTATEl MASK[36. - 28. 1 XSTIQl SPEC[IDB-IN1 
C500 S 

;5tart read and restore state Mord, 

;clearin9 CS, lACK RTN, RPLY and PIR 
HAPF[IX.SIACK1 CYLENt IDB-INl DdOOl XSTIARl SPEC[I0B-XT1 S 

:Finish read. Start clearing CS 
flflPF[XSNOSELl CYLEN[ I OB-OUT 1 , , 

.REPEAT F4SW i S 1 i * l;9ug: Can't do A-flEH store and lOT at sane 

tine! 

D[CONST 1] R0T[3S. - 26.1 ALU[OORai XSTlXASTATEl t 

;Finish clear mg CS, set RPLY 
DIAR] hrtSKESl DEST(Q1 SHORT t 

;Extract PORT » 
D[CDNST 0] ALU[D1 DESTCARl JUTPCXACOJl NORM $ 



01 8120 



SLOE narch 23. 1984 21:12:03 file D9C:Xfl.SL0 — of 



12236 810731 l?14100BeS5+0320e36S55U17008 

12237 0102'H0704002447741S15292542145S00« 

12240 0107301704300B0SS4021SZ3G50ei416000 

12241 01073137043186055416162365711416000 

12242 8107311714000605541B152365411416000 

12243 01863117000006054220302365571416000 

12244 01073017000086055402162365437416000 

12245 01073137000000001400352025571455000 

12247 01160117003186054500352365571416000 



01 0124 

01 0124 

01 0125 

01 012E 

81 0127 

81 0127 

01 0126 

01 0128 

01 0129 

01 0130 

81 0131 
81 8132 
81 8133 

01 8134 
81 0134 
81 0135 

81 0136 

81 8137 

81 8138 

81 8133 

01 8140 

81 8141 

01 0142 

01 8143 

01 8144 

81 0144 

81 8145 

81 0146 

01 0146 

61 0147 id^so oiof j 

01 0147 

01 8148 

01 0149 

01 0150 

01 0158 

81 8151 

81 8151 

81 8152 

81 8153 

01 0154 

01 0155 

01 0156 

81 0157 

01 0157 

81 8158 

81 8159 

81 8168 

81 8161 

01 0162 

01 8163 

81 8164 

81 8165 

81 8166 

01 8157 

81 01^ 

01 0169 

01 0170 

01 0171 

81 8171 

01 0172 

01 8173 

81 8173 

01 0174 

01 8174 

01 8175 

81 8175 

81 0176 

81 0177 

01 0178 

01 0179 

81 0180 

01 0181 

01 0182 

01 0183 

31 0134 

81 0185 

01 0188 

81 8187 

81 0188 

01 0183 

01 0190 

01 0191 

01 0132 

01 0193 

81 0134 

01 0195 

01 0135 

01 0196 

01 0197 

01 0198 

01 0198 

01 0199 

01 0199 

81 0200 

01 0201 

01 0202 

81 0203 

01 0204 

01 0204 

01 0205 

01 0206 

01 0207 

01 0208 

01 0209 

01 0209 

01 0210 

01 0211 

01 0212 

01 0213 

01 0214 



117141ot60554 






12251 01024107040024523415152025421456000 

12252 01073017043006055402162366061416000 

12253 0107313704310605541615236571 141B000 

12254 01073117140006055416162365411416000 

12255 01063117000006054220302365571416080 

12256 0107301700000605540216Z365437416000 

12257 01073137000000001400562025571456000 

12260 01063017000006854160362365571416000 

12261 01063117000006054215104365431416000 
122S2 010730170000060S541S16236S07141B000 

12263 01073100600022710776152025761456000 

12264 01073100400022710676162026061456000 



122E5 01073117003106054BS03523E5571416000 

12266 01073117100022711416162025411456080 

12267 01073100600010116716162025761456008 
12276 81873617806886355432752355771415888 

12271 01065117000006055400304365571415000 

12272 81073137000006055021162365771416000 

12273 81073017000006054536162365431415000 

12274 018731378000060547007B236577H16000 

12275 01053017800606054536185365431415000 



F41NNF 

MfPFtDLSfflSEL] CYLEN[I09-OUT] DICQNST (!2 « lADCUT! - 3)! LLOfO * 

;Set max, tine for ^TRf^ to respond 
MflpniXSIAO:] ALU[03 DESTIIODl LOQPt . 1 CYLENtC5001 $ 

;Uaii for sloMest. Load up 100 uith CS off for use 
later. 

naPFtDLSIACK] DtDCftSTfiTEl mSK[35. - 28.] DESTtQ] SPEC[I0B-IN1 
C500 % 

:Start read and restore state Hord.- 
;clearin9 CS. IfCK RTN. RPLY and PIR 
fIftPFtXSIflCK] CYLENIIOB-INl DdOD] DESTtflRl SPECtlOB-OUT) $ 

;Finish read. Start clearing CS 
MAPFIDLSNOSELl CYLEHdOB-OUT) 
.REPEAT F4SH t « 1 t » 1 ;Bug: C»i't do fHBI store and lOT at sane 

tine! 

OICDNST n R0Tt35. - 25.] flLU[DORQ] DESTIOCflSTATEl t 

;Finish clearing CS. set RPLY 
DEAR] mSKtei DESTIQ) SHORT S 

;Extract PORT » 
a(KMST 1] flLU[D] DESTEflR] JUOPIXflCOJl WKM $ 
;card file 1 

DDC07: D[CtWST 23 R0TC35. - 18.] ALU[D1 OESTCQJ NORM * 
;5et card number to 2 
OICDNST 11 R0T[35. - 15.1 flLU[D+0+l] OEST[I0O] SPECtlOB-OUTl NORM 
* 

;Assert CS and set card file for ca-d 2 
;t4ith invalid adck'ess (lou bit) to ma(<e sure no one 
responds 

mPr iDLStBSELj CYLEN[ ICS-njUTj OtCunST ((2 " IhCKmT) - 5) J LLDrD * 

:Set Bax. time for ASTRfi to respond 
flftPFtDLSIftCK) ALUIO) DESTIIOO] LOCP[ . 1 CYLEN[CS00] $ 

.•Wait for slowest. Load up lOD with CS off for use 
later. 

MflPFIDLSKCK] D [ DCflSTflTE ] nASIC[36. - 28.) DESTIQl SPECIIOB-INl 
CS08 $ 

;Start read and restore state Mord. 
;clearin3 CS. IPCK RTN, RPLY and PIR 
nftPFtXSIflCK) CYLENCI08-IN) OtIQD] DESTtflRl SPECtlOB-OUTl S 

;rinish read. Start clearing CS 
MAPF[DLSNOSEL) CYLEN[ I OB-OUT 1 
.REPEAT F4SU [ $ 3 [ » l;aug: Can't do ft-HEfl store and lOT at saw 

t ioe! 

D[CCWST 11 R0T[3S. - 26.] ALU[DORQ] DEST [ DCflSTftTE 1 S 

;Finish clearing CS, set RPLY 
D[ftRl mSKESl DESTIQ] SHORT * 

;Extract PC«T ■ 
OtCONST 2] flLUIDl DESTCflR) JUMPIDCflCOJl NORM « 
;card file 2 

KACOJ: DICONST 11 R0TI35. - 28.1 flLU[OORQl DESTIQ] NORM $ 
;Set stray bit 
DCARl RDT[3S. - 27.1 ftLUCOORQl DESTIDCiCPRl NORM » 

;Fill in CfWO FILE » 
D[DCftSTflTEl DESTtOl NCS?M S 

.-Restore DCASTflTE in Q, do rest of CONO 
DCflCDS: OtIRl R0T[31.1 COND[-CajS<01 FETCH-NEXT-INST ( JUflPCmlNl 1C550 
i 

;If EN is not on, then don't enable fflicro- interrupts! 
DCOCftSTflTEl RDT(27.) CCS«)[OBUS<0] FETCH-NEXT-INST t JUMPirWINl 
1C550 $ 

:If we've already planted an interrupt request, wait 
until 

;it is acknowledged by CONO KIO.KIOIAK (Usually CONO 
K10,3x) 

DCCONST II R0T[3S. - 8.1 DESTIIOOl SPECCI08-0UT] NORM S 

;Set micro-interrupt enable. 
MAPF[DLSCSR] CYLENI I OB-OUT 1 FETCH-NEXT-INST [ JUnP[rWINl 1$ 
:And we're done. 

;S€lect a chip 

XASRG: D[IR1 RDTI28.1 COND[-O8US<01 JUMPtlLLINSl CS50 S 

;If bit 28 is not set, then complain bitterly. 
uiIRj iImSKlSG. -25.1 DEST [u J riORfi 5 

;Retteinber register select ion- 
DCCONST 11 flLUI-DSQl DEST[DCfCPRl NORM % 

:After offending register select bit. 
DtIR! ROTtl + 32.1 nflSK[41 DEST(flR] NORM $ 

:Extract PORT «, which here is the chip within a boa^d. 
DtftRl RaT[3S. - 14.] DESTOl NORM » 

;Put it in format that tiTe hardware understands. 
D[IR1 RQTCl + 27.1 MftSK[31 DESTCftRj NORM $ 

;Extract CARD FILE it, which here is the board 
D[f«l ROTOS. - 14. + 4.1 ALUiOOROJ DESTIO OCASELl NORM $ 

:Construct full TTY number, in left half, where hardware 

:expects it. 
.REPEAT OLDDLS [ 

DtCONST 11 RaT[35 



* 

sat isfy 



9.1 ALU[[X)RQ1 DESTtQ lODl SPEC[IDB-0UT1 NORM 
;Turn on bit thjst sets TTY nusiber and aake sure we 

."setup time in the hardware 
MAPFIDLSNOSELl CYLENI I08-0UT1 fLUIQl OESTIQ DCASELl * 

:Turn on bit that sets TTY number 
DIDCAOSPl MASK! IS. 1 DESTIQl NORM S 

;Offsets from interrupt dispatch are negative at start at 

;thc first location preceding the interrupt. 
DIDCACPRl ROTtl * 34.1 W1SKI21 rt.U[D*lJ DESTIf*] NORM $ 

;Calculate dispatch address while we have Q available 
DIARl ROTIll ALUtO-01 DESTIDCflJMPl fORM $ 

:nultiply by two to get offset for address to select 
registers 
];. REPEAT OLDOLS 
.REPEAT 1 - OLDOLS I 

DtCONST NDL31 R0TI3S. - 14. + 4.1 ALUIO-01 

cnNDr-nHiK<B) jLwrnCflSGZ! C550 * 

;Check to make sure the port really exists 

... nrrmilCT 11 Dnrroc _ a ^ rtjiimnom nrcTrri rv-ftrri i tmriM » 



SLOE March 23. 1984 2l!l2;l+ file DSK:Xfl.SLO 



of — F41NNF 



81 ezia 

81 8213 
81 8228 
91 0229 
91 8221 
91 8222 
81 8223 
81 8224 
81 8225 
81 8225 
91ii822E 
81n82ZE 
ei>ieZ26 
eiaa226 
81ae226 
81aeZZG 
81iie22E 
8lBe22G 
8lBa226 

8iBe22e 
eiaezzs 

8lBa226 
81i>e22E 

eiBe226 

eine226 
eine226 
81ne226 
8lBa22B 
01«a22B 
81 8225 
81 0227 
01 0228 
01 0229 
01 0229 
01 0230 
01 8231 
01 0232 
81 0233 
81 8234 
01 0235 
01 8236 
01 vHif 
81 8238 
01 0233 
01 0240 
01 0241 
01 0241 
01 0242 
01 0243 
01 0244 
01 0245 
01 0245 
01 0246 
91 8247 
91 8248 
91 0249 
91 0250 
01 0251 
01 0252 
81 0253 
01 0254 
01 0255 
01 0256 
01 0257 
01 0258 
01 9259 
01 0260 
81 8261 
81 8262 
01 0263 
81 8264 
81 8265 
81 8266 
01 026? 
81 8267 
01II0268 
01n0288 
01 0269 
01 9270 
91 9271 
91 9272 
01in9273 
01m9273 
01m9273 
01 9274 
01 0274 
01 0275 
91 927G 
01 0277 
01 0278 
91 0279 
91 0280 
01 0281 
01 0282 
01 0283 
01 0284 
01 8285 
81 8285 
01 0286 
01 9287 
91 9288 
01 8288 
01 0289 
01 0290 
01 0290 
01 0291 
01 0291 
01 0292 
61 6ZS3 
91 0294 



;Ci think) 
D'CCfSSPl MfiSKElE.] DEETES] MORn S 

;Offsets froB interrupt dispatch 



are nesativc at start at 



12276 01181106608008000820762025561456000 



12277 01073017000006055404152366031416000 



12300 01170137000006055060562366131416080 

12301 01161117000006054036110365431416000 



12302 01973817080086055402362366071416000 

12303 01963117000022710221302025571456000 



12304 01073017800006055402362366071416000 

12305 01063117000806854221102365571415000 

12306 01073017000806855416162366131416000 

12307 01063117000022710260304825571456000 



12167 01073100490000001015162026061456000 
12170 01073017000000001402762026071456000 

12310 01973100600010116616152026061456000 

12311 0192311700000G0SS41B10236543141S000 

12312 91073017000000001415162225171456000 

12313 01073017000006055416162366131416000 

12314 01065017003006055402162364731416000 

12315 01063017003106055402162365711416000 
12315 01023131000022555416156125410456000 

12317 01073131000022665416155126130456000 



unt i 1 
DCfiSLR 



;the first location preceding the interrupt. 
D[DCPCPR1 ROTtl + 34.] t1fSK[21 flLU[0+l) DESTtftR) NORtl % 

;Calculate dispatch address t^ile ue have Q available 
OiiW] ROTdi flLUCa-Dl OESTiOCAjrPi NORM t 

;hultipl/ b>' tuo to set offset for address to select 
resistors 
];[ 

DfCCWST NDLS] R0T[35. - 14. + 4.1 flLUIQHJl 

COK)[-{»JS<e] jmP(0D4SG21 C550 $ 
;ChGck to aake sure the port really exists 
;;; DCCONST 11 RQT[35. - 9.1 fiLUIDORQl OEST[0 XfSELl NORtl $ 

;;; ;Turn on bit that sets TTY nuaber and save select word 

.-DATAI/DATAO is done. Ue'U have enough setup tiae at 

;;; ;(i think) 

DtXflDSPl mSKtlB.] CC5TIQ] NDRfl $ 

^Offsets froa interrupt dispatch are negative at start at 

;the first location preceding the interrupt. 
DtDCftCPRl ROTCl + 34.1 nASK[21 flLU[D*ll OESTLARl NORtl $ 

;Calculate dispatch address tiiilc Me have Q available 
D[(W1 R0T[11 rt-ULO-Dl DESTLKfUtPl NORtl $ 

;P1ultipl>' by two to get offset for address to select 
realist ers 
l.i?EPEi^T 1 - XDOLS 

D[DCftSTflTEl nASKI36. - 27.1 OESTCQl NORtl » 

;Get current CONI uord. turning off CS, lACK RTN, RPLY 
DtCONST 51 RQTtSS. - 26.1 fILUCDORQl DESTIOCfSTflTEl JUt*>[tWINl 
NORtl S 

;Turn on CS and RPLY in CONI word 
.-Done Hi in COKC 



;Re«^ested port doesn't exist. 

0Cf6G2: DtDCflSTflTE] MASK[36. - 27.] DESTIQ] NORtl « 

;Get current CONI Mord, turning off C5. lACK RTN, RPLY 
DiCOroT 4j kGTl35. - 26.] i^UtOORQ] CESTiDOHSTiHlEl nuRfj $ 

;Turn on CS. but not RPLY 
DIDCACPRl DEST[01 NORtl $ 

;Setup to indicate lack of card to respond 
OrCONST 11 RQTC3S. - 24.1 fiLUtDOROl OESKDCACPRl JUtPIfttlN] NORtl 
$ 

;Turn on HO ADDR 
;Done Hith CONO 



DATftI KIO, 
After select CONO 




NO 
ftOOR 



CARD FILE » 



PORT « 



! FLAGS 

I I I 



24 25 26 27 28 29 30 



32 33 



.ORGCDCA-DISPATCH + 21 
I xlist 

list IXADTI: DIDCASTATEl R0T[32.] COND[OaiS<01 JLTPCXADIAl C550 S 
:Juw if last CONO did an lACK 
DECCASTAIEl nA5K[3S. - 25.1 DESTtQl JUtPIOCADIll NORM $ 

;Clear CS 
.RELCC 
t.USE[HILX] 
[ xlist 

list ] IDCADIl: CXDCASTATEl R0T[24. 1 

CONO(-O3LS<0) JUflPIILLIMSl CS50 $ 

;nake sure CS was set. If not. complain 
ALUtQl DESKDCASTATEl NORM S 

;Set status with CS clear noH that Me know it Mas set ■ 
D[DCASEL] DESTtQl PUSHJ [ DCASLR 1 NCRM S 

;Gei ready to set CS 
r1APF[DLSS£LI DIDCACPRl DEST[Q1 NORtl S 

;Get CARD FILEn 
tlAPFCDLSSELl DtftASK S. J ALU[-OaQl DESTCQl SPEClIOe-INl NORfl S 

;nake space for data and start reading it. 
tWPFEDLSSELl CYLEN(I08-IN1 

DIIODl HASK[B1 ALUIDOROl DESTtQl 5PECII0B-0UT1 $ 

;Return port and data. 
;Start turning off CS in hardware- 
tlftPF(DLSSELl CYLENtI08-0UTl ALUtQ) SHAS t IFRO DESTLriEnSTO ARl 
CaNDCnA<201 LBJUnPtSEOIl 1$ 

;Last operation Mas an lACK. Return result of If^K. Mhich Has saved in 

A-rEPI 
KftOIft: DIDCACPRl DESTttlEnSTOI fEMST t StlAC [ IFRQ DESTiriEnSTO ARl 

COND[t1A<201 LBJUtPCSEOIl 1]» 

;Just return saved thing. 



SLOE March Z3. 198t Zl:12:22 file STRING: — of — F41Mf 



eiaezss 

eir.e233 

81 esee 

01 8301 

01 e30z 

01 0303 
01 0304 
01 0305 
ei 0306 
01 0307 
01 0306 
01a0303 
01*0303 
011110303 
01 0309 

01B0310 

01110310 
01a0310 
01 0311 
01 0311 
01 031Z 
01 0313 
01 0314 
01 0315 
01 031G 
01 0317 
01 0318 
01 0313 

01 03Z0 

01 03Z1 
01 03ZZ 
01 03Z3 
01 03Z4 
01 03Z5 
01 03ZS 
01 03Z7 
01 03Ze 
01 0328 
01 03Z9 
01 0330 
01110331 
B1B0331 

eiB033i 

01a0331 
01*0331 

01B0331 

01x0331 
01a0331 
01IK0331 
01ID0331 
01 0331 
01 033Z 
01 033Z 
01 0333 
01 0334 
01 0335 
01 0335 
01 0336 
01 0337 
01 3338 
01m0339 
01n0333 
01 0340 
01 0341 
01i«034Z 
01ni034Z 
01 0343 
01in0344 

01B0344 

01«.0344 
01 0345 
01 034E 
01 0347 
01 0348 
01 0349 
01 0350 
01 0351 
01 0352 
01 035Z 
01 0353 
01 0354 
01 0354 
01 0355 
01 03Se 
01 035E 
01 0357 
01 0358 
01 0353 
01 0360 
01 0360 
01 0361 
01 0362 
01 03SZ 
01 03B3 
01 0384 
01 0364 
01 0365 
01 0366 
01 0366 
01 0367 
01 0367 
01 0368 
01 0369 
01 0370 
01 0371 
01 0371 
01 037Z 
01 0373 

01 0374 



12173 01973109400010117015152025061456000 



12174 01033117000000001416150005431256000 



1Z3Z0 010731006000101 1661E1620Z60614560e0 



12321 010?30170e0e0000141SlB222617l4SS00e 



1Z3ZZ 01063ei700310605446035Z365571415000 



1Z3Z3 011G11170031060S44E03523GS551416000 



1Z3Z4 010730171400060S54027SZ36605141S000 



1Z3ZS 01023117140822711415102025431456000 



121GS 01073117000010117415162025431456000 



12171 01073117000010117415152025431456000 



12326 01063117000006054500352365571416000 

12327 01073117003100001416000726211456000 



12330 01063017030006055402162365451516000 



12331 01073117830006055415152426171415000 



12332 01063017020606055402152365451516000 



12333 01073117020006055416152426171415000 

12334 0i8530178i00e56554821G23554Si5iS0e0 



12335 0107311701000505541E15242B171415000 
1Z336 01063017000006055402162365451516000 



12337 01073117000006055416152426171416000 



.[KGtDCfl-OISPftTDH * 6] 
C xlist 

list IKfOTQ: DEOD^TflTE) R0TE32. ] COND[OBUS<0! JUTPCILLISSl CS50 S 
sCaaplzin if last COHD did an IftCK 
.REPEAT 1 - F4SHC 

Fixni jurfiDCflOOi) * 

;Taka nap fault if necessary 
1;. REPEAT 1 - F4SW 
.REPEftT F4SH [ 

onta fLuinEivc} oestchold] junpcDCflooii s 

;Get CCEl froa cither Menor}' or AGs. 
];[ 

OFRO MJJlfBVCI DESTIH0U3] JLTPIDCflCXIl] ( 

:Get C(E) froa either aeaory or AGs. 
1. REPEAT F4SU 
.RELX 
[.USE[HILOC] 
[ xlist 

list ] IXfCOl: D[DCASTflTEl R0TtZ4.] 

CONDI-OaLS<0] JUHPriLLINS] C550 S 

;nad<e sure CS uas set. If not* coaplain 
.REPEAT OLDOLS [ 

OCDCASELl DEST[0] PUSHJCXASLRl NORM S 

;Get selection bits* 90 do select 
tIAPFtDLSSEL] D[Ct»BT 411 R0T[3S. - 15.) ALUtOORQ) 
DESTdODl SPECdOB-OUTl $ 
;Sct CS i It and start w-ite. 
MAPFCDLSSELl CYLENI ICB-OUTl ALUIOl DESTIIOOl SPECI IC8-0UT1 $ 
;Finish writCf clear tC 
i;.i?EPEAT OlDOLS 
.REPEAT 1 - OLDOLS [ 

DCDCASELl DeST[0] NQRfl PUSHJ [ DCflSLR ] S 

;Get selection bits 
riAPFtOLSSEL] DICONST 1] R0T[35. - 16.1 ALUIDORQ] DEST[Q 100) 
SPECdOB-OUT) NDRn t 
.:Set£ l*JE and clears CS 
mPFtXSSEL) CYLEN(ID9-DUT) DCCONST 1) R0TI35. - 16.) ALUtQ-D] 
OeSTIIOD) 

SPECI I08-OUT] $ 
;Clear UE to finish urite. 
);I 

d[xas:li xst[Q} now plshjixaslr) s 

;Get selection bits 
MAPFIXSSEL) DCCONST 1) R0T[35. - 16.) ALUIDORO) XSTIQ 100) 
SPECII08-OUT1 NORM $ 
;Sets UE and clears CS 
RAPFIXSSELl CYLENIIDB-XT) OICONST 11 R0TC35. - 16.) W.UIQ-D) 
XSTIICD) 

SPECdCB-XT) $ 
;Clear I^JE to finish M-tte- 
1. REPEAT 1 - aXILS 

t1APF[XSN0SEL) CYLENC I OB-OUT) DIXASTATE) tlASKISS. - 25.) 
XSTCOIS 

;Finish clear. Clear CS in microcode. 
rttfTIXSNOSEL) ALU[Q) XST[XASTflTE] JUnPtMAIN) NORM $ 

;Ue have to keep the MAPF field at NOSEL to keep data up! 



;IOTs rot supported CBLKI and BLKD) 
.ORGtXA-DISPATCHl 
[ xlist 

list ] JUMPIILLINSl NORMS 

.ORGIXA-DISPATCH + 4) 
[ xlist 
list ) JUMPIILIINS) NORM S 
.RELX 
(.USEtHILX) 
[ xlist 

list ) ] 

;Set CS. then dispatch accordins to register nuaber 
XASLR: DtCCJBT 11 R0TI3S. - 15.) ALUCOORQ] XSTIIOO) NORM $ 
;Set CS then dispatch 
DtXAJMP) SPECtlOB-OUT) XDISPl [ ODISP LONG )$ 



;Following locations must be in order, up to and including XAINT> as 
they are 
;dispatch£d to based on the register number. 

MAPFIXSSEL + 3) CYLENI IQ8-XT1 DCMEMl MASKtSl ALUIKIRQI XST[Q1 
$ 

;Finish setting CS in hardware 

;Combine data and selection stuff in case we're writing. 

MAPFIXSSEL + 31 OCXASELl XSTtlODl PDPJ NORM S 

;One more cycle for register select Csigh...) 
'"Set lOD to turn off CS in case we're reading. 
MAPFIXSSEL * 21 CYLENI lOB-XTl DIMEMl MASKI81 ALUIDORQl XSTCQl 
S 

MAPFIXSSEL + 2) DIXASELl XSTIIOOl POPJ NCRM $ 
nAPFiXSSEL * 15 CYLENilOe-XTj OifEMl MASKtSl ALUiiXjRQl XSTiS} 
S 

MAPFIXSSEL + 11 DIXASELl KSTIIODl POPJ NORM t 
MAPFIXSSEL + 01 CYLENIIQB-XTl DIMEM) MASKI8) ALUIDORQ) XSTIQl 
S 

MAPFIXSSEL + 0] DIXASELl XSTIIOOl POPJ NORM $ 
;Preceding locations must be in order, and must iBunediatcly preceed 
XAINT 



XA ■ icro- interrupt code 



12340 01024117003106055416152365431415000 



DCAINT: ALUI01 XSTIIOOl SPECI lOB-XTl MORH % 

;Disable further micro- interrupts until this interrupt 



;upon by the macrocode 
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ei 9380 123+3 2ie7312e0ee02e343+0e7E2026e61+5S8ee 

01 0381 

01 0382 123+4 01073U70e4a2Z71141BlS202S«l+S6a0e 

01 0383 

01 038+ 

01 0385 

01 0386 

01 0386 

91 0387 

01 0388 

01 0389 

01 0390 

01 0390 

01 0391 123+5 0107311700+02+715+0+0+6025571+57000 

01 0392 

01 0393 123+6 0107311706310605+600352365571+16000 

01 039+ 

01 0395 123+7 0102+117100006055+16152365+11+16000 

01 0396 

01 0397 

01 0398 

01 0399 

01 0399 

01 0+00 

01 0+01 

01 0+02 

01 0+03 

01 0+0+ 
01 0+06 

01 0+06 
01 0+07 
01 0+08 
01B0+09 

01010+09 12350 010731 17002+35202+701003S5531+16000 

01 0+09 

01 0+10 12351 01073117003106055+00102365571+16000 

01 e+u 

01 0+12 12352 01073117100006055+0eie++25551+lBe00 
01 0+13 



DEOCftSTflTE] mSK[3] DESTIAR] CONDt-OeuS-0] JUMPCPIGENl CSSe S 
;Take aacro- interrupt if enabled for such 

CLRH3EV-fR0n-INTR FETCH-NEXT-INST ( JLTPCMfilN] INQRH S 
;5tart fetch and execute next instruction 



Reset IXf^ scanner. Set interrupt and dispatch ackdresses 



DCflRST: D[n3NST DCA-UDewi DEST[DEy-flDR] NORtI JUrP[. + 1] $ 
;Start IQB RESET happening. 
D[COHST 1] R0T[2+.l DESTIICD] SPECt IDB-OIT) MMI S 

;-Hit MftSTER RESET on all flSTRfte' 
fKVFCDLSCSR] CYLENtLONG] flLUt0] DESTdOD] $ 
;Setup to clear it later 
.REPEAT 1 - F+SH [ 

DtCONST CCX>-DISPflTCH / 106)] ROT[30] DEST[Q] $ 

;Construct dispatch adck-ess: high 6 bits. Finish 108 
RESET 

DtCONST CXft-OISPfiTCH \ 100)] R0TC221 «.U[DORQ] DESTCQ] NCRtI $ 

;Lou 6 bits 
DtCONST (DCflINT / 180)1 R0TC6] HLUtOORQ) DESTIQJ NORM » 

;Construct interrupt adcfc-ess: high G bits 
DtCONST (DCAINT \ 100)] flLUCDORQl OESTtOCflOSP] NORM t 

;Finish contructing interrupt address and store aMay. 
J i . REPEAT 1 - F+3W 
.REPEAT F+SW [ 

DILIT ((DCAH5ISPATCH » 1000000) + DCAINT)] DESTIDCADSP) NORM $ 
l;t 

DCLIT (CXA-OISPATCH « 1000000) + DCAINT)] DEST[XA0SP1 NORM $ 
]. REPEAT F+SH 

DtCONST 0] DESTIXftSTATEl SPECdOB-OUTl NORM $ 

;initial state 
MAPFEXSCSR] CYLENtLONG] DtCONST 0) OESTtDCACPR] POPJ $ 
;Nothin9 referenced yet. 



SLDE March 23, 198+ 21:12:3+ file STRING: 



of — F41NNF 



ei eiee 

81 ei3S 

01 eie? 
ei eiee 
ei eies 

01 0110 
01 0111 

ei 0112 

ei 0113 

01 011+ 

01IK0115 
01-0115 
01K0115 



:AltErnate scanner code tt'2 or F+) 
1 
-repeat IfP [ 

. insert F+IMFi 

;Get the IfP code. 
] 

.repeat ^ [ 
. insert vC 

;Get the Uersatcc code 
] 



SLOE March Z3, 198+ 21:12:35 file DSK:VC.SLD — of 



FiiK-r 



1 UCNEUUIRING = UAIT5 



11344 



\JCBeO ' MAIN 



sineeai e vcoee > 8 

eiaeeei 

eisaeei 

siaeeei 

eioeeei 

eineeei 

eimeeei 

einoeei 

eiaeeei 

eiaQQei 

eii»eeei 

eiraeeei 

eiaeeei 

ei-eeei 

ei»eeei 

eiaaeei 

eioaeei 

eiaaeei 

eineaei 

eimeeei 12373 5+073ii700eee6e55'tiBiB23zS'tze4is80e 

eineaai 12374 91073117000096055416162365431416809 

91ni0O01 1237S 54073117000006055416162325420416009 
01.0091 12376 01073117000006955416162365431416000 
01na0ei 12377 54073117000006055416162325420416909 
0lB9eei 12400 01973117009996055416162365431416000 
9lB0a01 12491 540731 179000060554 161E232S420416000 
01B0001 12492 01073117009096055416152365431416000 
0lB0e01 12403 54073117000006055416162325420416990 
01r»9001 12404 01073117000006055416152365431416000 
01n00ei 1240S 54873117000006055416152325429416000 
011.0001 12406 01073117000006055416162365431416008 
01108981 12407 54073117098006855416162325428416008 
01n0001 12410 01073117000886055416162365431416888 
0lB00ei 12411 54073117808886055415162325428416880 
01rii0e81 12412 81073117080086855416162365431416000 
01 0001 
01 0002 
01 0883 

01 0004 
01 0005 
01 0006 

01 eee? 
01 eeee 

91 8089 

ei 0810 

01 8011 

01 0012 

01 9813 

01 0013 

01 0014 

01 0014 

01 0915 

ei 0016 

91 0017 

91 0818 

01 0819 

01 0820 

01 8021 

01 wZi: 

81 8023 

01 0824 

01 0825 

01 8026 

01 002? 

01 0826 

01 8029 

01 0830 

01 0031 

01 0832 
01 0033 
01 8033 
01 0834 
01 9035 
01 8036 
01 eS3/ 
01 0838 
01 0039 

01 0040 

01 0041 
01 0842 
01 0043 
01 0044 
OliiO045 
011118845 
01 0845 
ei>>0046 
0lBe84E 
01 0046 
01>9847 
01>O047 
01 0047 
01si804e 
01nO84e 
01 0048 
01 0849 
01 0849 
01 0858 
01 0051 
01x0852 
011.0052 
01 8852 
011110853 
01110053 
01 0053 
01in0054 
81m0854 
01 0854 
811110055 



Nonzero for debugging nicrocode :'. VCDSP 

WCCRG VCI»rr VCINT2 WCISTS XIOT UCOOSP VCCHD VCfST UCONO UCONDO UCDNOl 
yCDND2 yCS£T2 yCETAT VCaiSZ UCONSO UCGST UCQUNT UCDUT UCEQ VCBRST WCLP 
'JCDGSt VCLST UCyRD 'JCHRDl ttft VOIP 'JCOUTl yCODLY 



Isn't MfllTS specific, but only CCRTIft 
doesn't 

and 



40 



42 



43 



45 



uc-Disp - ♦ DtAtcno 



VC-m - 1 + DtflHEMO 



VC-BC = 2 



UC-fODE = 3 + DiMtno 



VC-STAT = 4 + DtflfEne 



;havtt long-line (different ial) Versatec 
fMust use neu backplane Miring 



; Versatec noM has its OMn device code 540> uith 544 reserved for a 
second VC. 
UCOSP: 

t . -^ 20 ;Reserve space for dispatch table 
;Let's save this for a second VC 
.REPEAT 10 t ILGIOT « 

NOP t 
];t ILGIOT $ 

NOP $ 
][ ILGIOT $ 

NOP S 
)[ ILGIOT $ 

NOP « 
K ILGIOT S 

NOP « 
][ ILGIOT « 

NOP * 
JE ILUlOi % 

NOP S 
It ILGIOT $ 

NOP $ 
It ILGIOT $ 

NOP $ 
]. REPEAT 18 

V[^I]RG: ; Origin of Versatec code 

Versatec driver definitions and register usase 

CONO - command out. Tgjfes fEl 3S 

Bits 8-15: Coaaard to Versatec 

Bits 16-28: Unused 

Bit 29: Load PI and enable only 

Bit 30: Enable interrupt on READY 

Bits 31-32: Mode 08 - unused (saae as aode 01) 

01 - 7-bit bytes. 5 per uord, left 



just if ied 
just if ied 



10 - 8-bit bytes. 4 per uord. left 

11 - 8-bit bytes. 9 per two words 



Bits d5-5b: PI crianneX 



tXWI - status in. Puts in E 

Bits 0-17: 2ero. except 

3-4. 10-11: State of corresponding 
coaaand out bits. 
Bits 18-23: Status bits froa Versatec 
Sit 24: Rsserved 
Bit 25: Versatec READY bit 
Bit 26: Data ready bit 
Bits 27-23: zero 
Bit 38: ENB-ROY-INT 
Bits 31-35: Mode and PI froa last conmand out 

CONSZ. CONSO - Test right half of above CONI bits. 

DATAO - Start output. Takes CE) as 

Bits 0-17: 2's conplenent byte count (9 aeans 25SK bytes) 

Bits 18-35: Starting nenory address 
This operation sets Busy, clears Done, and starts the output. 
When output finishes. Busy clears and Done sets. 

The following are debugging aids 

BLKI - Enters the interrupt routine. 

DATAI - Returns the remaining byte count/flA. 

BLKO - Unused. 

A-rCn Usage: 
DEFINE-A-rEt1IVC-DISP O] t 



] :0 - Interrupt Dispatch 

DEFI^E-A-^E^1[vc-nft u i 



] ; 1 - (lA saved between bursts 

DEFINE-A-rtntVC-BC 2) I 



] 
DEFlfS.- 

1 



byte count saved between bursts 
iVC-flODE 3] [ 



;3 - Constants depending on Mode 



ode 3 



DEFItE-A-nEMtUC-STAT 41 I 



Bit 35: for aodes 112. 1 for 

Bits 32-34: Bytes/Uord - 1 
Bits 25-31: Bytes/burst 



] ;4 - Coaaand/Status Register 

DEFINE-ft-MEMiVC-CnD-flASK 51 i 

VC-CW-MASK = 5 + DtAMEH0 

1;5 - Masl< for command bits that are levels. 
DEFIfC-A-nEniVC-AC-SfiVE BJ t 

VC-AC-SAVE = 6 + DSAMEMO 

1;G - Saved AC during output burst 
DEFINE-A-nEn[VC-PC-SA'-€ 71 t 



01 0055 



1:7 - Saved PC during output burst (F2 only) 



SLOE Harch 23, 1964 21:12:39 file DaC:VC.SLO 



of 



mUNF 



1 VC-LD-CTHL - i 



Z UC-RO-STflTUS = 2 



3 UC-LD-DflTfl - 3 



4 UC-LD-CTL - 4 



S VC-CLR-INT = 5 



12353 E497311700M0S8SS*lSlS232S42e41S00e 

12354 0ie73117e000eS0S541ElB23E543141Se08 

12355 548731 170ee89SeS541ElS232S42e4160ee 

12356 ei073ii78eeeee0ss4iGiG23G543i4iG0ee 

12357 54873117806606055416152325428415699 
12360 01073117000906655416162365431416999 



01 9961 
01 9962 
01 9963 
01 90S4 
91 0065 
91 9066 
91 9067 

91 eees 

01 0063 
01 9970 
01 9971 
01 9072 
91 9073 
91 9074 
91 997S 
91 097E 
91 0077 
01 0076 
01 9973 

01 0060 

91 9061 
91 9982 
91 0963 
91 0084 
01 0066 
01 0966 
01 0067 
01 9088 
01 0069 
01 9030 
91 0931 
91 0692 
01 0933 
01 0934 
01 0035 
01 0096 
01 0097 
91 9938 
91 9039 
91B0190 
0lB010e 
01fa910e 
eiii9199 
91n9109 

01B9109 
91110100 
01B0100 
01 0100 

01 0190 

91 0101 

01 0102 

01 0103 
SI 0104 

01 0105 
01 0106 

01 0107 
01 0186 

01 0103 

61 0116 

01 0111 

01 0112 
01 9112 
01 0113 
01 0114 
01 0115 
01 0115 
01 011S 
01 0117 
01 9118 
91 9118 
91 0113 

01 0120 

01 0121 
01 9122 
81 81Z3 
01 0124 
91 012S 
01 012E 
01 0127 
01 0128 
01 9129 
91 9139 
01 0131 
01 0132 
01 0133 
01ii9134 
01a9134 
91B0134 
91 0134 
01 0134 
01 0135 
01 913E 
01 0136 
01 0137 
91 0136 
91 9133 
91 814« 
01 9141 
01 0142 
01 0143 
01 0144 
01 0145 
01 9146 
01 8147 
01 814B 
01 0149 
01 0150 
81 9151 
01110157 
81B0152 



12415 01073017009006954143762365571416000 

12416 01053117090099901402106025571456009 
1Z417 91973017000006854144162365571416000 

12420 01063117000090001481506825571456000 

12421 01073917090006054143762365571416999 

12422 01063117066686601415706025571456860 



12413 8182411700310605541B1SZ36543141E009 



12414 91073117043125047416152025411456000 

12423 01873117903106055416152365411416000 

12424 01073!0e0S000000141E152026111456e00 



12425 01073817866606055416162366231416006 

12426 01073190409000000756162026221456000 



12427 91063117900999990229319925571456000 
12430 0!965!!70e0e860S412031036557!41B009 



12431 01073020864028343400752826221456000 

12432 01073117969022711415152025431456000 



Bit 


-CLEAR 


Sit 1 


-RESET 


Bit 2 


-REfCIJT 


Bit 3 


-RCUTDIS 


Bit 4 


-AFFDIS 


Bit 5 


-ALTER 


Bit 6 


-RFFED 


Bit 7 


-fiEOTR 


Bit 3 


-RTTON 


Bit 10 


PRINT 


Bit 11 


-SPP 


Bit 9 


-ONLIN 


Bit 1 


LOSUP 


Bit 2 


-BLFUL 


Bit 3 


NDPIF 


Bit 4 


-TNtkUN 


Bit 5 


-OXTER 


Bit 6 


-READY 


Bit 1 


FIFO IN LAST 


Bits 28:35 


Data 


Bit 32 


EMPTY EW 


Bit 33 


ATTENTION ENB 



; Clears t**;E INT RQ 

I 

i Other resisters: 

; PC - Addresses memory during output 

; AC - Counts b/tes during output 

; Loop Count - counts b>'tes in a Mord 

! Q, AR, HOLD - tavnrary 

: VCOSP * 8 

.REPEAT 1 - VCOEB t ; Mak. debugging ops illegal (NOP) 

.repeat 3 [ ILGIOT $ NCF $ 

] ; .REPEAT 3 

I [ ; Make debugging ops illegal CNOP) 
.repeat 3 I ILGIOT t NOP $ 

3 I ILGIOT S !<EP $ 

II ILGIOT $ NOP « 

][ ILGIOT $ NOP S 

I; .REPEAT 3 

U .REPEAT 1 - UCDEB 



.REPEAT yCDEB t 



; BLKI - act like the Uersatec interrupted 



JUfPE. J NQRil i 

OICONST VCDEUJ DEST [ DEV-flOR ] JUMPtUCINT] NORM $ 



: VCORG 



Dispatch base and interrupt entry 



; Dispatch for wodes 1-3 relative to the vector (2 words/entry) 
: Set burst count for th* node 

DCCONST 171 ROTIG] DEST[Q1 NORM t -.nade 1 - 69 bytes/burst, 5 
bytes/word 

D[COKST 10] ALUCDGRQl DESTHC-ttTE] JUnP[VCSET21 NORM $ 

DtCDMST 281 ROT[G] DESTIQ] NORM t ;riode 2-64 bytes/burst, 4 
bytes/word 

DtCONST 861 ALUtDORQl DESTIVC-flOOEI JUnP[UCSET2] NORtl « 

DECONST 171 ROTIBl DESTCQ] NORM $ ;node 3-53 bytes/burst. 4 
bytes/word 

D[CONST 571 ALUIDORQ) DESTIVC-flOOE) JUnP[VCSET21 NORtl $ 



VCINT: 



; Interrupt routine 



: vuuKu 
.REPEAT UCDEB [ 

JUfPE.l NORn S 

JUTPtUCINTl NORM $ 
: yCINT 
1 

ALUtei DESTtltBl SPEC[ lOB-OUTl NCSW « ;Disabl» interrupts 

MAPFIUC-LD-CTLl CYLENI lOe-OUTl SPECIIOB-OUT] 
-REPEAT VCDEB [ » 1 
.REPEAT 1 - WCDEB [ JUnP[UCINT] S 
: VCINT 
1 

t JUMPIUCINT) $ 
: VCINT 
1 MAPF[VC-CLR1 SPECIIOB-OUTl CYLENIIOB-OUTl t ; Clear last-byte bit 

MAPFIIC-CLR-INTI CYLENIIOB-OUTl ; Clear request 

G['.'C-SC3 C0N0C-OBUS=H] JLTPCWCGOl $ ;Osjtp.jt if count/- 9 



DtUC-STATl DESTtiai NORM t ; Fetch status register 
DIUC-STATl R0TI39. 1 CONDIOBUSOl JUnP[VCINT21 C550 % 

: End of data transfer. Set data ready bit. 

DtCONST 11 R0T[9.1 ALU[OORQ1 DESTIVC-STATl JUMPIUCINTSl NORM $ 

J REflOY interrupt. Clear ready int enable bit. 

VCINT2: DICCNST 11 R0T!51 ALUI-D&Ql OESTEUC-STATl NORM * 

VCINT3: DCUC-STATi MASKOl OESTIAR Ql CLR-DEU-FROH-INTR 

CONDI -OBUS-81 JUTPIPIGENl C550 t ; Macro int if enabled 
JUnPCMAINl NORM S 



;IOT dispatch 
-PAIR 
I:. \ 2 •► . 



SLOE March 23, 198+ 21:12:+6 file DStC = VC.SLO — 



F+IWJF 



12436 eieGei3700ee0G8S't4'*'*lG23GE03141S00e 

12437 61873117888800880616806725411456003 



12363 01073117004000001403045225571457000 

12364 0107311700002271141S16Z0Z54314S6060 



12440 01073817008006054741552365571416008 

12441 01863117888006854688712365571416888 



01 0157 
81 0158 
ei 0159 
ei 81S8 
81 01G1 
01 0162 
01 8163 
01 0164 

s: eiBS 
eiseiGE 

81a8166 
eia0166 
01 01GS 
01 0167 
01 0168 
01 8169 
01 0170 
01 0171 
ei 0172 
ei 0173 
01 0174 
01 0175 
01 0176 
01 0177 
01 0178 
01 0173 
81 0188 
01 0181 
01ii«182 
01nei8Z 
01ra018Z 
01 0182 
81 0183 
01 0184 
01 0185 
01 0186 
01 8187 
01 8188 
01 6188 
81 0190 
61 0198 
01 0191 
01 0192 
01 6193 
01 6194 
61iii6195 
61ii0195 
61 8136 
01 6196 
01 6197 
81 0197 
61 0198 
61 6193 
01 0260 
61 8201 
61 6262 
61 0203 
61 0204 
61 8285 
61 0206 
01 8207 
81 6266 
61 0209 
61 0210 
61 0211 
01 8212 
81 6213 
01 0213 
61 6214 
61 0215 
01 0216 
61 6217 
01 0218 
01 0219 



61 0221 

01 0222 

01 8223 

01 6224 

61 6225 

61 0226 

61 0227 

61 0228 

01 8228 

81 0229 

61 0230 

61 6Z31 

01 8232 

61 0233 

81 6233 

61 0234 

01 6235 

61 0236 

61 0237 

01 8238 

01 6238 

61 8239 

61 0240 

01 624 1 

81a0242 

81 ■6242 

61»8242 12447 01073817880806654563162364711415000 

0lBe242 

01aeZ42 

01*0242 

01B0242 12450 0106S01780310S0S541G15236547151G080 

ei>8242 

01n8242 

61010242 

01m0242 

fiiiiia747 174>;1 ni£¥;:]i i7ai?icv:cK4Cf;7f:c;73C4'7i 1 Aicooa 



12442 61673117002472602582788365531416080 

12443 01073117000080001402150025571456000 

12444 81033117800006055416150345431216000 

12445 01073137008806854768362365471516888 
12445 81673166403130800736162825461555000 



;Bad^ine has already done index ins/ indirect ion and bits 
;13:17 are auaranteed zero 
-REPEAT 1 - F4Sy [ 

uiyC-DISPj RuT[18.j HASC[i5-] ALUCD+Qj SDI5F CYLEhlDISPj 1 
;Dispatch of type of lOT 
];.REPEftT 1 - F4SM 
.REPEAT F4SW [ 

OtVC-DISPl ROTUa.! flftSKtlG.] ALUID+131 0E5TIflR) t 
VCOSSP: D[ftR; ROTtrtK-RCiTl SCISF LCKG S 
J;t 

DEVC-DISP) ROTda.l mSIC[16. 1 ALU[D+01 OESTIflRl t 
UCCDSP: D[flR] ROTCnUft-ROT] OOISP LONe $ 
]. REPEAT F4SW 



; Coomand out to Versatec 

UCCfO: 

: VCDSP + 18 ; CDNO dispatch 

.REPEAT VCDEB [ 

JUrPI.l NORtI » 

JUTPtyCOO] NORH S 
I VCOO 
] 

DICONST yCDEVl DEST[DEV-ADR] PUSHJtVCONOl NCRtI S 

JLWtnfilNl t 
.REPEAT 1 - VCDEB [ 
! VCCMD 
1 
[ 

: UCCTD 
]; Reset. 

VCRST: DCCCWST 6] eOT[3e. ] 0EST[Q1 NCSm S : aask for VC aode bits 
DICtSJST 31 R0TI24.] ALUCDQRQ] DESTCVC-DO-HfiSK] NORd « 

.REPEAT 1 - F4SW [ 

OtCONST UCDSP / 180] ROTIS + IB.] DEST[Q1 $ .-Setup dispatch 
DtCQNST VCDSP \ 1881 ROTHB. 1 ALUtDORQl OESTtQ) S 
DtCONST VCORG / 1681 R0TI61 ALUIDGRQl DE5TIQ] S ; Interrupt base 
address 

DtCOWST yCCRG \ 1001 .tUIDORQ! DESTIUC-DISP! SERU S 

1;. REPEAT 1 - F4SU 

.REPEAT F4SU [ 

DtLIT (CVCUSP « 10^088) + VORG)] OESTIWC-OISPI NORM S 

1;I 

DCLIT CCUCDSP » 1800000) + VCa?G)l DCSTCUC-DISP] NORM « 

1. REPEAT F4SU 

DtCONST 101 DESTCHOLDI JUMPtyOMWl NORM $ ; Invent CDNO 124,1163 



; Lunu routine 

VCQNO: FIXni t DFRQ ALUIHEHACl DESTtHOLDl ]« 

VCON08: D[MEM1 ROTtSl.l MASKtll DESTCARl NORM $ ; Save int-on-rdy bit 
SPECIIOe-DUTl 

DCfEilj R0T[23.i CQND[0ajS<81 JUre'[UCaND4] CS58 $ 

,'If just setting enables, don*t touch FIFO!! 

.REPEAT 1 - VCNEWUIRING ( 

MflPFIVC-CLRl SPEC[IOB-OUT1 CYLENI lOB-OUTl ; Clear the FIFO 
DtHEM] DESTIIDD Ql $ ;Set up the control bits 

MAPF[VC-LD-CTRL1 SPEC[IOe-OUTl LONG ;Gutput control bits 

DIVC-CMD-MftSKl ALUID4Q1 DE5TIIX 01 % ;Clear the ones 
that pulse. 



.REPEAT F4SU [ 

rttPF[UC-aR-IMTl LONG » 
]!. REPEAT F4SH 



;Uait sone, the F4 is faster. 



MAPFtVC-CLR-INTl SPECCIOB-OUT] LONG ; Clea- int req 

Ol?1EMj nASrCiDj iiLUiOGRQj DESTluj $ ; Save the node 
];. REPEAT 1 - yCNEUMIRING 
.REPEAT UCNEWWIRING [ 

MAPFIVC-CLRl CYLENCIOB-OUTl 

D[MASK 12.] R0Tt35. - 12.1 DEST[OI S 

;Clear th« FIFO 

; Invert the screwed up levels 

OtMEMl ALUICWQl 0E5T[Q lODl 5PECII0B-0UT1 NORM $ ;Set up the 
control bits 

MAPFtUC-LD-CTRLl SPEC[ lOB-OUTl LONG ;autput control bits 
.REPEAT WAITS « CI - F4SU) [ S NORM 1 ;Bu9: Insufficient hold tiae 
DIMASK 18.1 R0T[35. - 8.1 ALUtDCROl DESTCIOOl $ 

; 'Clear" the ones that 
pulse. 



SPECIIOB-OUTl DCMEM! DEST[Q! NORM S 



;Setiip ti3 S3VS stuff. 



HAPFIVC-CLR-INT] LONG ; Clear int req 

DIVC-CMD-MftSKl ALU[D8,Q1 DEST[Q] S ;Bits to save for CONI 



MAPF[UC-aR-INT] SPECtlOB-OUTl LONG 

DIMEMl MASKCSl ALUIDORQl DESTtQl $ 



1;I 



;5ave the aode 



flAPFIWC-CLRl CYLENI I08-OUT1 

OtMASK 12.1 R0Tr35. - 12.1 CESTtai S 

;Clear the FIFO 

.'Invert the screwied up levels 

DIMEMl ALUIDnOl DESTIQ IDDl SPEC [ lOB-OUT 1 NORM S ;5et up the 
control bits 

MAPFrur-L[>-CTRLl 9PECEIQB-0UT] LOC .-Dutsut control bits 
.REPEAT WAITS « ( 1 - F4SW) [ S NORM 1 ;Bu9: Insufflcimt "h^ld^t iae 



SLOE March 23. 138+ 21:12:58 file STRING: 



of 



F41NNF 



eime2+2 

81 18242 
eiBe242 
8106242 

eii>e242 

8118242 
eiaa242 
01 8242 
81 8243 
81 8244 
61 8245 
61 8246 
01 8247 
81 8249 
81 0248 
81 0249 
81 0249 
81 6250 
81 6251 
81 6252 
01 6253 
61 6254 
61 6255 
61 82SE 
61 8257 
61 825S 
61 0259 
01 0268 
61 8261 
01 02S2 
01 0263 
01ii8264 
01D0264 
61B8264 
61 6264 
61 8265 
61 6266 
61 6267 
61 6268 
61 6269 
81 6276 
61 6271 
61 6272 
01 6273 
81 6274 
81 6275 
81 6276 
61 6277 
81 627B 
81 6279 
61 6288 
61 0281 
81 8282 
81 6283 
81 0284 
81 0285 
81 0286 
81 8287 
81 6288 
81 6299 
01 6296 
81 6291 
81 6232 
81 6293 
81 6294 
81 6295 
81 62SG 
81 0296 
81 0297 
81 0297 
81 6298 
81 6299 
8lBe306 
811116360 
8lBe3e0 
81 6300 
81 0301 
81 6382 
81 6303 
81 6304 
81 6385 
81 6366 
81 6387 
81 6307 
81 6388 
81 6309 
81 6316 
81B0311 
81B0311 
811110311 
01 0311 
81 0312 
81 6313 
81 6314 
81 6315 
81 6316 
81 8317 
81 8318 
81 8318 
81 8319 
81 8328 
81 8321 
01I0322 
01ne322 
81118322 
81 8322 
61 8323 
81 8323 



12453 81864817656886055416152366251416066 

12454 81863817853168055401562365451516868 

12455 ei873!170131860546S6152X541141Seee 

12456 01073117040666055416162365411416800 

12457 61863117086066054226318365571416806 



12460 01873128200000001828562825461556888 

12461 81073017000000000036162825431456866 

12462 01673617600006854028362365571415666 



MftPF[VC-CLR-INTl LBC J Clsir jnt .-Eq 

DtVC-DID-IMSKj ALUEO&Ql DESTEOl S ;Sits to save for COHI 



12463 61866137000025877484152825031456000 

12464 01073117053186854056152365411416006 

12455 01077817840800055488732354711415888 

12466 01864017006086055416162366231416000 

12467 61863617066006855406762365471516606 

12470 61863117666606054136110425431416000 

12471 01024117000086055415184425431416006 



12365 61873117863800001403046225571457000 

12366 01073131800022665416156125430456000 



12367 01873117863000001403046225571457006 
12370 01073017000000661484562825771456880 



12371 81873117803000001483046225571457006 

12372 81873017600000001404562025771456000 



12472 81873137828066054282162365711416800 



HftPF[VC-CLR-INTl SPeCtlCB-OUTl LONG 

DCMEM] MASKEBl flLUCDORO] DESTIOl t 
]. REPEAT WOEWHIRING 



;Save the acde 



nflPFtyC-U>-CTRL] SPECdCB-OJT} LONG ; Clear the pulsed bits 
DCflR] R0TI2I DESTdX) » sSet up the int-on-rdy bit 

rWPFCVC-LD-CTL] CYLENCICB-OUT) ; Set interrupt enablinas 
.REPEAT F4SI [ $ 1 I % ];Bu9! F4 can't do A-TEH trite durina 

lOe-OUT cycle 

DECDNST 11 ROTO.l flLUtOQRQl OESTCUC-STftTl « ;Set data ready bit 



OCnETI] RaT[33.] mSK[2] CESTIflR] :Extract the aode 

CtBD(08US=8] JUtflUCWJOll C550 » 
DinRl ROTin XST[Q] JUnP[vama2] NORTI S ; Double aode to Q 

UCONOl: DCCQNST 1] ROTIl] DEST[Q] NORtl « :Chan9e >ode 8 to 1 and double 

UC0N02: 

.REPEAT 1 - F4SW t 

D[VC-OISP] M.ULD+Q] 50ISP C550 $ :Set up constants by >ode. 
];. REPEAT 1 - F4SH 
.REI^AT F4Stl [ 

DCWH5ISP] mSKtlS.] ALUCD+Ol DESTCARl JlWCVCQOSPl S 

;5et up constants by node. 
1:[ 

DCVC-DISP] mSKtlS.] ALUCD-Kll DESTtARl JLTPCVCODSP] $ 

;Set up constants by »ode. 
I.rePEAT F4SW 

;Set only PI channel and re^dy interrupt enabling. 
VCnN04: nflPF(VC-CLR-INT) CYL£N[I0B-0UT1 

DCARl R0TI21 DESTCICDl SPEC[ ID8HXIT) * 
;Clear previous interrupt perhaps 
;Sct up the int-on-rdy bit 
nAPF[yC-LD-CTL! CYLEN[ I OB-OUT 1 

DltVSK 3] ALUt^CTC} C€ST:S1 S 
;Get status. Minus PI 
DtVC-STAT) ALU[D&iai DESTiQl NORM $ 

;Re«ove froB saved status 
DCMEni rWSK[3] ALUtDORQ] DEST[0] NDRH « 

;Save neM PI status 
DtlWl ROTCSS- - 30.] ALUtDORQ] DEST [ WC-STAT ] POPJ NORM % 
;Save neu status 



: Back fron setup of constants. Clear byte count. 

UCSET2: ALUC0] DEST[VC-BC1 NORM POPJ « 

: Read status/control bits 

VCSTAT: 

: VCDSP + 12 ; CONI dispatch 

.REPEAT VCDEB [ 

JUMPt.] NGRn » 

JUHP[yCSTftT] NORM $ 
: VCSTAT 
] 

DICONST UCDEU] DEST t OEy-ADCRESS 1 SPECIIOB-IN] PUSHJIWCGSTl NORM $ 

; Fetch device status into AR. 

D[flRl DESTEMEMSTO] MEMST [ STWC I IFRQ OESTCMETISTO ARl 

co^B[nA<20l LBJunp[SEOi) ]]S 

.REPEAT 1 - VCDEB [ 

: VCSTAT 

) 

t 

: VCSTAT 

JVCCNSZ: 

: VCDSP + 14 ; CONSZ dispatch 

.REPEAT VCDEB I 

jmPt.l NORM $ 

JLWtVC0NS2] NORM $ 
: VCONSZ 
] : VCDEB 

D[CONST VCDEV] DEST[OEV-AOORESS] SPECCIOB-INl PUSHJ[VCGST) NORM $ 

D[IR1 mSKflB.l DESTtO) JUHPtCTYCZ] NORM * 
.REPEAT 1 - VCDEB [ 
: VCONSZ 
) 
[ 

: VCDNS2 
IVCONSO: 

: VCDSP * iS ; CtSSO dispatch 
.REPEAT VCDEB [ 

JUMP!.] NORM $ 

JLMP[VCOfeO] NORM $ 
: VCONSO 
1 ; VCDEB 

D[CQNST VCDEV] DEST [ Dev-flOORESS ] SPECCIOB-INl PUSHJtVCGST] NORM « 

DtIR] naSK[18. 1 DESTtQ] JUMPtCTYCS] NORM S 
.REPEAT 1 - VCDEB I 
: VCONSO 
] 
[ 

: VCONSO 
] 

VCGST: nfiPF[VC-Rl>-STATUSl DlinOl ROT(B. 1 MASKtB. 1 DESTIAR] CYLENtlOB-IN] 
* 



01 0325 12474 81063137000006055416162426231416008 



DtVC-STAT] ftLU[DC»0] DESTCARl POPJ NORM t 



SLOE March 23, IM^ 21:13:06 file DSK:UC.SLO 



of — F41Wr 



ei 0331 

01 0332 

81 0333 

01 0334 

01 0335 

01 0336 

01 0337 

01 0338 

Si esss 
01 03te 

01 03+1 

01 0342 

01 0343 

01 0344 

01 0345 

01 0345 

01 0347 

01 0348 

01 0343 

01aie35e 

01B0350 

01a03S0 123E1 01033117000606055415150345431216008 

01110350 12362 0107311700402S17340304602S571457000 

01III0350 

01 0350 

01 0351 12475 01073100200022710650362026221458008 

01 0351 

01 0352 12476 01073017000006055416152366231415008 

01 0353 12477 01065117000086054220310365571416088 

01 0354 

01 0354 

01 0355 

81 0356 12508 01073017000006855414152364731415088 

01 0357 12S01 01863117008806054444504365471516080 

01 0358 12582 01873117088886055484502365471516680 

01 0353 

01 0360 

01 0361 

01 0362 

01 0363 

01 0364 

01 03ES 

01 0366 

Ol«0367 

01110367 12503 01073117000022741416162225431456000 

01aOX7 

01 0367 

01 0368 12504 01073017008806055006362366231416088 

01 0369 12505 01060117088606855401644365571417008 

01 0359 

01 0378 12506 01060117000886055401550365571417800 

01 0371 12507 01073017008866055468162365571416088 

01 0371 

01 0372 12510 01033117008006055416114365431416068 

01 0373 

01 0374 

01 0375 

01 0376 

01 0377 

01 0378 

01ii0379 

0I111O379 12511 71073117000006855416162366071416000 

01 0379 

01 0380 12512 01073317000006055416162366131416080 

01 0381 12513 01050317068886655061762366171416808 

01 0381 

01 0382 

01 0383 12514 01033100400008801415104025421456080 

01 0383 

01 0384 12515 01151317000066055001762366171415808 

01 0385 

01 0386 12516 01073117088808081408104825571456808 

01 0387 

01 0386 12517 01171317088806055081762368171416888 

01 eaee 

01 0389 

01 0390 12520 01073117008668881416152225431456868 

01 0390 

01 0391 

01 0332 

01 0332 

01 0393 12521 01063100230025241400362026151456080 

01 0394 

01 0395 12522 01823100000668801415162025421455088 

01 0396 

01 0397 

01 0398 12523 01073117888066854101158365471516080 

01 0393 

01 0400 

01 0401 

01 0402 

ei 3493 

01 0404 

01 0405 

01 110406 

0U0406 12524 01073017088886054115152365471315808 

01 0406 

01 0407 12525 01073117088006054116150365471516088 

01 0407 

01 0408 

01 0409 12526 01130300608000081416162025421456088 

01 0418 

01 0411 12527 010631170831060S540115236547151BO08 

01 0412 

01 0413 

01 0414 

01 0414 

01 0415 

01 0415 

01 0417 



D[CONST VCDEV] DE5T[DEU-Aa?] JUnP[VCOUNTl MORtI $ 

: VCDUNT 

OtyC-BC] i?0T[18. 1 MASKtOl SPECtLEFT! DESTIQl NQRH S 
DiyC-Mfl] fIftSKSlB. 1 BLUCDORQl DEsrEMEHSTDl fEHST t 

);. REPEAT yCDEB 

VCOUT: 

: VCDSP + 6 ; DflTflO dispatch 

.SEPEflT yCDEB i 

JUWt.I NORM $ 

jurpcycouTi ^a?M $ 

: VCOUT 

FIXMl S 

DtCaei UCDEVI DEST[Oev-«DR] KKn « 

] 

.REPEAT 1 - VCDEB I 

Fixni $ 

OICQNST yCDEWl DE5T[[)EV-ADR] JUnPIUCOUT] NQRtl $ 

I vcorr 

1 

[ 

FIXnl t DFRQ ALUCrEfWCl DESTIHOLD] ]$ 

D[CONST VCOeU] CEST[DEU-«)R] JUHPtVCOUT] NORM * 
: yCOUT 
]; Illegal op if BUSY is on. 

DIUC-STAT] R0Tt27.] WSK[1I CONDiOBUS=0] Jijrf>[yCBrW] CYLEN[i:550] 
$ 

DtUC-STAT] OESTtO] NQRH S 

DtCtWST 1] R0T[3. 1 ALUC-D&Q) DESTtWC-STATl KQRn % : Clear DONE 
;DtL£FTl can be made to work by Bovins HOOIFY-FIELD D to after MAPF 
def in it ions 
;and adding LEFT 'EXT - LEFT 2 

DILEFTJ DE5TICI] NORM S ;Pad byte count with ones in left. 

DCMEfl) R0TC13.1 HftSKdB.] ALUIDCRQl DESTCUC-eCl NQRTI S 

DtMEM] HASKCIB. ] DEST[UC-nA] NORtl * 

VCtaj: ;Q gets for 7-fait bytes. 1 for 8-bit. 

.REPEAT 1 - F45H [ 

fiLU[-l] DESTIMAP-DISfffiLE] MDRfl * 
];. REPEAT 1 - F4SW 
.REPEAT F4SH C 

P'JSHJ[i'1EmA0R-23dIT-ABSj nukpi $ 

j«»« Shouldn't UE be saving the old stated 
];[ 

PUSHJtnEMA0R-2SIT-ABS] NORH t 

;««» Shouldn't ue be saving the old state'' 
1. REPEAT F4SW 

DIVC-STAT] R0Tr32.] mSK[l] DE5T[Q] NORM $ 

DICONST 7] ALUtO+0] DESTCROTRl NORM % ;byte length to rotate and 

DECONST 7] ALU[D+Q1 D£5T[nASKRl NORM $ imask registers. 
OtCONST 83 DESTIia] NGRH « jQ contains last-byte flao, initially 
0. - . 

ALUCAC] DESTlUC-flC-SAVEl NORM t ;5ave ftC and PC for scratching. 
.REPEAT 1 - F45W t 

DtPCl DESTtVC -PC-SAVE] NORM S 

D[VC-nA] OESTtPC) NORM S ;PC gets current rW. 
1;. REPEAT 1 - F4SU 
.REPEAT F4SU [ 

DiyC-Mfli DESTIMflj nam $ ;5et rtA for transfer 
);[ 

DIUC-MA) DESTCHAl NORM * ;5et MA for transfer 
1. REPEAT F4SU 

DfyC-BCI DESTCAC] NORM t ;AC gets (negative) byte count. 

DIUC-flOOEl R0T[32.) nASK[7] ALUtD-HC] DE5TCAC1 NORM S ;Add burst 
count . 

ALUIACl DESTCVC-BCl 

COND[OauS<0] JUWtUCBRSTl CYLEN[C550] * ;check for 
overflow. 

DCVC-HODE] R0Tt32.1 MASI<:[71 ALUCAC-O] DESTIAC] NORM t 
; Dv. fC gets bytes reaaining. 

DtCONST 0J DESTIUC-aCl JUnPtUCLP] NORM S ;Clcar byte count. 

VCBRST: OtyC-flOOE) RDTC32. 1 MASKC71 rt.U[0-D] DE5TIAC1 NORM t :No. ov. 
AC- burst ct. 

VCLP: PUSHJCUCURDl NORM % ;Output a word. If aode 1 or 2 and not last 
byte. 
' loop on these two instructions. 

MAPF[UC-LD-DATA1 D[VC-nQDei MASKCll ALUCDORQ) CONDCOBUS^O] 
JUnPIVCLPI 

LONG $ 
; go to VCDONE if last byte. 

ALUIOl CONO[-OBUS=0] JUMPCVCDONE] CYLENCCSSO] « 

; Mode 3. Pull high 4 bits of the odd byte. 

DCMEMl R0TC41 Mft5K[4] DESTCHXD] NORM S 
; Shift thea to propjer place in and fetch next word. 

.REPEAT 1 - F4SW I 

SPECIMA-PC] DIMEMl R0Tt4I DESTIHA Q] NORM $ 

FIXMl $ 
i;. REPEAT 1 - F^Sii 
.REPEAT F4SH t 

DFRQ DCMEM] R0Tt4) DESTtQ] NORM $ 
l;t 

DFRQ DIMEM] R0T[4] DESTtOl NORM $ 
]. REPEAT F4SW 

DtMEMl R0Tt4] DESTtHOLD] NORM $ ;Low bits of odd byt. to low end. 

J Check whether this is the last byte of the burst. 

ALUlAC+11 DESTtACl C0riB[-OBUS<0] JUHPtVaSTI CYLEN[C556] t 
ito. Put it out. 

SPEC[I08-OUT1 DCMEM] nASK[4] ALUEDORQl DESTtlOD] NORM « 
I Set up byte count for second word. 

.REPEAT 1 - F4SW ( 

MAPFtyC-LD-DATft] DtWC-MOOE] R0T[3S. 1 mSK[31 LLOfO CYLENC I OB-OUT 1 
t 
];. REPEAT 1 - F4SU 

MAPF[UC-LD-DflTA] CYLENI lOB-OUTl DCWC-MODEl R0TC35.1 fWSKO] 



SLOE Harch 23. 198+ 21:13=17 file STRING: 



of 



eiBe+19 

31 3^13 
01 84Ze 
01 0421 
01 0422 
01 0+23 
01 0+24 
01 0425 
01 042S 
01 0427 
01 0427 
01 0428 
01 0429 
01 0430 
01 0431 
01 0432 
01.10433 
01a0433 
0110433 
01B0433 
01B0433 
01B0433 
01II0433 
01B0433 
01 0433 
01 0434 
01 043S 
01 0436 
01 0437 
01 0438 
01 0439 
01 0440 
01 0441 
01 0441 
01 0442 
3! 3443 
01 0443 
01 0444 
01 0445 
01 0446 
01 0447 
31 3448 
01 0449 
01 0450 
01 0451 
01 0452 
01 0453 
01 0454 
01 0455 
01 0456 
01 0457 
01P0458 
01>0458 
01>i0458 
01 0458 
01 0459 
01 0453 
01 0460 
01 0461 
31 0462 
01 0463 
01 0464 
01 0465 
01 0466 
01 0467 
01 0468 
01 0469 
01 0470 
01 0471 
01 0472 
01 0473 
01«0474 
01B0474 
01ii0474 
011110474 
0lii0474 
011.0474 
01 0474 
01 0475 
01 0476 
01 0477 
01 0477 
01 0478 
01 0479 
01 0480 
01 0481 
01 0492 
01 0483 
01 0494 
01 0485 
01 0486 
31 0487 
01 0488 
01 0489 
01 0430 
01 0491 
01110492 
01iiiO49Z 
01gie43Z 
01a049Z 
01 0492 
01 0493 
01 0494 



12531 010731 170010860S401E000365431417000 

1Z53Z 01073017000000001400162225571456000 
12533 01023100230025241416162025411456000 



12534 0107311703000G0S54161S2365431416000 

12535 0107311700000B05S4161023G567141B000 

12536 01073117003106055402152365571416000 

12537 0107311704092273741615222541145G000 



12540 01073317004022711416162026331456000 



12541 010630170000060550403S236S571416000 

12542 01863117303125271401152025471555000 



12543 01073137000006055060752366171416000 

12544 01073117001006054016000365431217000 



12545 11150300400000001060762026161456000 



12546 01152337000006055060762366171416000 

12547 010731 1700100605401B00036S431417000 



12550 01073017000000001043362025571456000 



12551 01073117000000001412152225451556000 

12552 0107310703002S32321615002545155B000 



12553 01063117000006055412152365451516000 



12554 01073117000006055416162365411415000 

12555 01073117000006055415152365411416000 

12556 01073117000006055416162365411416000 

12557 01073117303106055415162425411416000 



F41NNF 



DIftRi ROT[(Uft-ROTJ LLDftD $ 
J.REPEOT F+SH 

Clear last-fa>'te fiag* put out second Mord. 
DinaiST 0] DESTiQj PUSHJivCWRDl] NGRH $ 

Loop for next double word if not end of burst. 
mPF(VC-LCH»Tfl] fiLU[Q] COND[CBUS=0] JUHPCVCLP] LONG $ 

End of burst. Save updated flA and restore AC and PC. 
VCDONE: 

t1APF[UC-LI>-0flTfl] S ;8us: F4 can't do ft-TEH write durina 

lOB-CS/r cycle 

D[fW] DESTtUC-ml WORM » 

SPECCIOB-OUT] DtCONST 101 DESTIIODl $ 

HflPF[UC-U>-CTLl CYLENdDB-OUT) PUSajLrtfWOR-lBBIT] $ 
;Enable interrupt and reset nap to normal 
;*«M Shoulc^'t Me be restoring the old map state? 



1;I 



;Busi F4 can't do A-fCfl uritc durins 



rWPFiyC-LD-OATfl] t 
ICB-OUT cycle 

Dinfl] DEST[yC-fM] NORM $ 

SPECIICS-OUTl DCCCJei 10] DEST[IDD] $ 

rWPFtVC-LD-CTL] CYLENIIOB-OUTI PUSHJirEMADR-lBBIT) S 
;Enable interrupt and reset Map to noraal 
;■«« Shouldn't we be restoring the old nap state? 
]. REPEAT F4SU 
.REPEAT 1 - F4SW t 

MAPFCUC-LD-DATA] DCPC] DESTCVC-flAl NCRM $ 

SPECdCB-OUTl DCCQNST 101 DESTIICDl NORM $ ;Enable interrupt 

MAPFtUC-LD-CTL] D [ VC-PC-SAVE ] DESTIPC] CYLENCIOB-OUTl t 

ALUI01 DESTCHAP-DISABLEI l«Rf1 * 
):. REPEAT 1 - F4SU 

DCVC -AC-SAVE] DESTtACl CLR-OevMT?On-INTR jmPtmiN] NORM » 
; Odd byte is the last. Put it out uith the last-byte bit 



on. 
VCLST: 



DtCONST 11 R0TI34.1 ALUtKRO] DEST Q NORM S 

SPECIIOE-arT] DirEHl .IASK!*! SLU[DDRQ! DESTCIQD! JUMPfUCOME! 



Subroutine to output one word. Instruction follOMing call Bust have 
MAPFrvC-LO-OATAl CYLENCIOB-OUTl. 



-J fir's* 



»r a 



5s;r 



; Entry for lecdas 1 snd Z. sr.d 

; Bode 3. Set loop count to bytes/word. 

VOJRO: 

• REPEAT 1 - F4SW [ 

SPECEItVPCl DESTtdAl DIUC-flOOEl R0Tt35.] nASK[31 LLOAO NORtI « 

Fixm i 

1;. REPEAT 1 - F4SU 
.REPEAT F4SM I 

DtyC-MOOE] R0T[35.) MASKC3] DESTIARl NORM S 

DFRQ D[f«] R0T[t1UfH?0T] LLOAO « 
l:t 

D[VC-M0OE) R0TI3S. J HASKLS] DESTlflRl NORfl » 

DFRO OIAR) ROTIflUA-ROTl LLOAO « 
1. REPEAT F4SU 

; Second entry for other uord in aode 3 (it's been 

fetched). 

1 Add bytes/word to bytes reaainina- 

VCWRDl: 
.REPEAT 1 - F4Sy [ 

SPECIPC-m DIUC-MODEl R0T[35.1 HASK[31 ALUCD+ACl CARRY DESTtACl 
COND[OBUS<0) JUrPtUCOUTll CYLENtC5501 t 
; Overflow. Change loop count to bytes reoaining. 

DlVC-nOOei R0T[35. l HASKOI ALUCD-ACI DESTCACI LLOAO NORfl $ 
1;. REPEAT 1 - F4SH 
.REPEAT F4SW [ 

ftVMA+l DCVC-nOOEl R0T[35. 1 mSK[3] ALUID+ACl CARRY OESTEACl 
CDND[tBUS<01 JUnPiyCOUTll CYLEN[CS501 % 
; Overflow. Change loop count to bytes reMaining. 

DCVCHtBE] R0T[35.] MASKCSl ALUIO-fCl DESTCAC ARl NORH * 

OIAR] ROTtriJA-ROTl LLOAO $ 
];[ 

m-riA-n Dcvc-roDEi ROTtas.i maskoi aluid+aci carry destiaci 

CONDIOBUS<01 JUHPIVCOUTll CYLENICS501 » 
; Overflow. Change loop count to bytes remaining. 

DtyC-nCOEl R0T[35.1 nfiSK[31 ALUtO-ftCl DESTIAC ARl NORM $ 

DEAR] ROTCniA-ROTl LLOAO » 
1. REPEAT F4SU 
; Set last-byte flag in Q- 

DtCONST 11 R0T[34.1 OESTtOl JUrPlWCOUTll NORM * 
; This two- instruct ion loop puts out all but the last byte 

vcoLP: ocrEni msKtRi destiiooi pushjcucodlyi long $ 

VCOUTl: tIftPFIUC-LD-OftTA] DinEMl R0T(R1 DeST[H0LDl LOOPCUCOLP] LONG » 
; Last byte here, with the flag bit set if end of burst. 

DtnEMl nASK[Rl ALU[DORQ] DESTIIOOI LONG $ 

ycoa-Y: 

.REPEAT 1 - F4SU [ 

NOP NORtI t ;Let the disk get thru (was C1000) 

NOP NORM * 

NOP NORM S 
]:. REPEAT 1 - F4SSJ 
.REPEAT F4SU [ ;LONG isn't nearly as long! 

NOP LONG $ 

NOP LONG * 

NOP LONG $ 
];[ ;LONG isn't nearly as long! 

NOP LONG S 

NOP LONG % 

NOP LONG S 
1. REPEAT F4SU 

sPECtioe-QUT; pcpj long t 



SLOE March 23, 1984 21:13:29 file STRING: — of — F+INNF 



ei ens 
01 ens 
ei euE 
ei 8117 
ei 8118 
ei 8119 

81 8128 
01 8121 
@i!B6122 
8I1118I22 
81tiiei22 
01ni0122 
01110122 
01iiiei22 
0110122 



;Get the Versatec code 



1 



-TEpest mils [ ;For now. WfilTS only, 
.repeat 8 - (diasctev > 8) [ 
. insert DACDEB 

;Read/Mrite pre-assenbled device accordins at rV)PF in fiC field 

];. repeat & - (diasdev > 03 
;,-! ;For now. HfilTS only, 
.repeat - (diagdev > 6) E 
. insert DACDEB 

;Read/wite pre-assenbled device according at MAPF in AC field 



];I 



. insert DACDEB 



SLOE March Z3. 138t 21:13:30 file DSK : DflCDEB . SLD — of — F+INNF 

01 1110001 COWENT I yflLID 08082 PftGES 

eiiii0001 C SEC PftGE DESCRIPTION 

01ni0001 C00001 80001 

aim0001 C08002 0aiM2 .opcodeE7723 

011110001 ceeee^ ekomk 

011110001 Ci; 
011110001 



SLOE Plarch 23, ISat 21:13 = 38 file DSKtMCDEH.SLO 

ezneeei 
ezmeeei 
e2rii0002 677S4 eie73n7eee0eee8i*iEiB20zs«i45E^e 

82100662 677E5 91873117886808861415152825431455088 

e2ne862 

6200662 

e2a>6662 

e2>e68Z 

e2!ii@663 

02.00663 125E0 01073017000608008321152225771456006 

02ni0063 

02in0003 12551 01073117006000061415152225431455060 

02ID0063 

02010003 12562 0102313100002266541615G125430456006 
02ii>0663 

02III0063 12563 01073117003000066015006725431456066 

02i»0a03 

02B0063 

02»0ee3 

ozaeaes 

02116664 07756 010731 1706600660141615202S431256660 

02a06e4 07767 01033117060000001415150605431456866 

021.10664 

02B00e4 

02III0804 

0Zni0604 

02.116665 

02»i0005 12554 01073017066806060321152225771456066 

02i>e005 

02»a0e5 12555 01073117006000001416152225471556068 

82016005 

82.08085 12556 01073117000622711415152025431456606 

02010605 

02010005 

02100005 12SE7 01873117063186866015000725431456000 

02m00eS 

02010005 

82018005 

02o«066 

02B0005 MflPFNO = 

02b838S 

02010865 

82oi8865 

82oi8605 

82oi8865 

82oi800S 12576 01073017066006055415152425731415060 

e2m8ees i mapfno = nfiPFNO + i 

02010005 

02010005 12571 01073017010006055415152425731416668 

02010005 2 MAPFND "= flflPFNQ + 1 

82010865 

82B0005 12572 0107301702060G655416152425731416000 

02m0005 3 mPFNO = MAPFNO + 1 

02010665 

82018665 12573 81073017836006055415152425731416060 

02010065 4 MflPFNO = riAPFNO + 1 

02010665 

02010665 12574 01073617040006055416162425731416000 

020.0065 5 tIflPFNO = MAPFNO ♦ 1 

020.0065 

02010005 1Z57S 01073017050006055416162425731415060 

02010005 6 MAPFNO = MAPFNO + 1 

02010605 

020.0805 1Z576 01073017050006055416152425731415866 

02010605 7 mPFNO = MAPFNO + 1 

0Zoi8605 

0Zoi08e5 12577 01873017070006055415152425731416068 

02010005 10 rWPFNO = tIAPFND + 1 

02010005 

02010005 12600 01073017108006855416152425731416000 

02010005 11 MAPFNO = MflPFNO + 1 

02010005 

02010065 12661 01073017110606055415162425731415600 

02B0005 12 MflPFNO = MflPFNO + 1 

02010605 

02010005 12602 0107301712000605S41516242S731415000 

8ZO10005 13 MflPFNO = MflPFNO + 1 

02n0005 

02»0e05 12603 010730171300068554151BZ425731415066 

82010905 14 MflPFNO = MflPFNO + 1 

02oi8865 

82018665 12604 01073817148806055415162425731415060 

02o>ee65 15 MflPFNO "• rWPFNO * 1 

02010605 

02oi6685 12505 91073017150886855415162425731415008 

020(0805 15 MflPFNO = MflPFNO + 1 

eZm8605 

02»0e05 12606 01073017160606055415152425731416006 

0ZO10005 17 MflPFNO = MAPFNO + 1 

0Zne605 

02o.aa« 12507 81073017170006055415152425731415006 

0Zo>8605 Z8 MflPFNO = MAPFNO + 1 

0Z 8665 

02 0006 12610 01060137000000002536152365531415008 

02 8007 

0Z 0008 12511 01073117004006055406246425571417000 

0Z 0063 

02 0010 

02 8611 



of — F41^WF 

.opcode 1 7721 
[xlist 

list ]D!ftGI: JUMP[DIAGI2] NOBI S 
JUMPCQIflGIZ; fORf, % 

;Too bad HC canM do an/thins useful here. . ■ 
-reloc 
C.USEtHILX] 
[ xlist 

DIAGI2: DIIRl ROTtlZ. + 1] MASK[4] DEST[Q1 PUSHJtDIfiGSB] NORM S 
;5et device address and setup for MflPF dispatch 

PUSHJ[DIflGI31 NORM S 

:Go read frooi device 

flLU[Q! SMflC [ IFRQ DESTCMEMSTO flfi) C0ND[Mfl<2ei LBJUnPtSEOI 1 ]* 
.'Return data 

0IftGI3: SPECEIOB-INl D[fiRl ROT[MUfl-ROTl ODISP $ 

;Start reading device and dispatch 

.opcodet7731 
txlist 

list IDIftGO: DFRQ JUnP[DIAG02] $ 
flLUCMEMflC] KSTIHOLDI JLW>[DIAGOZ) » 

;5etup thing to store 
-reloc 
[.USEEHILOCl 
I xlist 

list ] ] 

DIAGOZ: DIIRl R0T[12. + 11 MASKC41 0EST[Q1 PUSHJtDIAGSBl NORM $ 
;Sct device address and setup for MAPF dispatch 
DtfEMl DESTIIOOl PliSHJtOIflGOS] NORM J 

;Set thing to store and dispatch 
JUMPIMfilNl t ** 



DI.=!G03: SPECEID3-0UT! DEAR! ROTEMm-RQTl KJISP $ 



;Table of MflPF's for diagnostic instruction 
MflPF TB: 

.REPEST 28 E 

MAPFEMflPFNOl DEIOOl OESTEOl POPJ S 
MAPFKD = MflPFNO + 1 



fWPFEMAPFNOl DllOOl DESTEQl POPJ $ 



MAPFEMflPFNOl DEIQDl DESTEQl POPJ S 



MAPFEMflPFNOl DEIOOl DESTEQl POPJ t 



MftPFEMAPFNOl DEIITl DESTEQl POPJ $ 



MAPFEMflPFNOl DEIODl DESTEQl POPJ $ 



MAPFEMflPFNOl DEIOOl DESTEQl POPJ % 



MflPFEMflPFNOl DEIOOl DESTEQl POPJ $ 



MAPFEMflPFNOl DEIOOl DESTEQl POPJ S 



MAPFErWPFNOl DEIOOl DESTEQl POPJ * 



MAPFEMflPFNOl DEIOOl DESTEQl POPJ $ 



MflPFEMflPFNOl DEIOOl DESTEQl POPJ » 



MflPFEMflPFNOl DEIOOl DESTEQl POPJ « 



MflPFEMflPFNOl DEIOOl DESTEQl POPJ % 



MflPFEMflPFNOl DEIOOl DESTEQl POPJ » 



MAPFEMflPFNOl DEIODl DESTEQl POPJ $ 



MfrTEMftrrNul DEIuol ttSTEyj rOrJ S 



AGSB: DELABEL MAPFTBl ALUED+Ql DESTEARl NORM $ 

."Construct pointer into MAPF table 
DECONST OIAGDEVl DESTEDEU-fORl NORM POPJ $ 
;Sct device nuofcer 



SLCE tiarch 23. 198't 21:13:39 file STRING: — of — Mltff 

81 0122 -:Read/write pre-asseabled device accordins at HAPF in AC field 

01 ei23 

01 0122 1. repeat - (diagdev > 0) 

01 0122 !t repeat WAITS 

01 0123 

ei 812+ .repeat STflNSU [ 

01 012S • insert PAN 

01 012E .insert T^PGral 

ei 0127 -insert AUOSHX 

eii>ei28 1 

eiaei2e i 

01B0128 ■ insert PAN 



SLOE March 23, ISB* 21:13=39 file DSK:PflN.SLO 



F41NNF 



einseei 
eimeeei 
eisdeai 
eiseeei 
eimseei 
eixeeei 
eineeei 
eimeeei 
eiBseeei 
einseei 
eineeei 
eimeeei 
einoeei 
eiiieeei 
eii>eeei 
eiaeeei 
eiaeeei 
eiaeaei 
eimeeei 
eineeei 
einaaei 
eineeei 
eineeei 
eiaeeei 
eineeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimseei 
eineaei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeaei 
eiDieaei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeeei 
eimeee2 
eimeee2 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
einaeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimaaez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 
eimeeez 

eimeeez 



P^ - Panofsk/ Interface for 5>'stems Concept Oigital Synthesizer 



ae 



PflN-UDEy 



1 PflN-STflTUS 



Z PflN-EN-IOB 
e PfiN-IDB-RESET 

1 PAN-CONTROL 

2 PflN-EN-IOe 

3 PAN-INT-ENB 



3e ;uDevice address 




:l1flPF fields 




Read status resister 




; Bit e 


-INT REQ e 


i Bit 1 


-INT REQ 1 


Bit 2 


nv PftR ERR 


Bit 3 


HIS PflR ERR 


; Bit -t 


INT ENB e 


: Bit 5 


INT ENB 1 



= 2 ;I0B->iaO 

- e ;Start PflN Bus Reset 

- 1 ;Set PflN device ard control 

3t Z ;IOD->IOB (sane nmemonic is other direction) 

= 3 ; Interrupt enable 

;Qpcodes for CONTROL field 



27 

+e 

23 

le 
7e 
3e 

se 
le 



PflN-CDNTRa-ROT = 35. - 12. 

pftN-R/-u = *e 

PAK-Cm/'-DHT = ZS 

PflN-nUNG = le ;This SHOULD be two. SET-HUNG and CLEflfi-HLNG 

PflN-CONI-OP •= PflN-nUNG ♦ PflN-R/-U + PAN-CON/-DAT 

PflN-CONO-OP = PfW-HUNG + PflN-CON/-OflT 

PflN-OftTAI-OP « PflN-nUNG + Pf»l-fi/-« 

PftN-OflTflO-OP - PMHUNG * e 

;Uss njNGed (Pete's) format for nou. . . Need CCNO to set chansc 
it 

:and besides, there should be SET and aEAR of nUNG 



46 PflN-oisP = e + D*firEne 

1261Z eie73iee2eeeieziei6e362e2463i+5Eeee 
1Z613 eie73ii7eei-eeees5+0Ge4G3G557i4i7eee 



1ZS14 eie77i37eeeee6es42SSiB23GS77i4i6eee 
1261S eie73i37eeeee6e5S4ei7sz36543i4i6eee 



i^bib eie75ei7eeee06^'t34iiS2dG577i4i5006 



1ZS17 eie6eii7eeeeeeeee+44eee72Eeii45seee 



i2G2e eie73ii7eeeeie2ii4i6iB2e2543i456eee 
12B21 eie73ii7eeeeeGe554i6i6Z36543i4iseee 



12622 ei073ei7eeeeeeee357ZiS22^357i45oeGe 
1Z6Z3 eie77i3iezee226ES4iEi5Gizs7ie456eee 



1ZSZ4 eie73ii7eeeei32ii4iEiE2ezs43i456eee 

1Z6Z5 eie73ii7eeee0G0554iBiBZ3G543i4i6eee 

1Z6Z6 eie33ii7eeeeeGess4i6i5e34543iziseee 

12G27 eie73ei7eeeeeeeee56ziGzez557i45Geee 

1ZS38 318731 17a0ee060SS+e455036S771416eee 

1Z631 eie73ei7eeeeeeeeesGeiE2e2ss7i45Geee 



12B32 3ie7381788S830888S7SlS2ZZS57145S008 
12S33 eie7713102e02ZEG541615G12S7ie4SEee0 



;l^-f1EM usase 
CEFINE-A-rtniPftN-DISP Bl 



];PflN dispatches 
;filso see TrPGRN.SLO 



.PAIR 
[:. \ Z + . 
IPANIOT: 



Dipc-FLAGSJ ROTCS + 1) msKiij caND[oeus=ei junpcnuuoi » 



.-Trap if User ard not lOT-USER 
DtCO^GT PAN-UDEVl DEST [ DEU-ADR 1 NORTl $ 

;Sei common micro device address 
;;: D[IR1 ROTdl.l I1ASK[71 DEST[AR1 KIRfl S 

;;; iGet macro device address 

dCirl rotes. + 11 alulnotd) destlarl norm S 
dCar] mssk[7] dest[ar] norm % 

;Special fudge for harei.iare bug. Get device address 
u[IRj RuTiiZ. ■*■ 1 ■*■ 1 J MASrCi4j u£STiQj NuRH S 

;Extract lOT decode » Z.' Note we can do this because the 

;m3chine lias already done index ins/ indirect ion and bits 
;13:17 are guaranteed zero 
D[PAN-DISP1 ROTIie.l nftSKIlS. 1 ALUCD+Ql XD15P i ODISP LONG 1$ 
;Dispatch of type of lOT 

;Normal IQT dispatch for PAN 
PAN-DISPATCH: 
jBLKI XXX, - Not implemented 

JUnPlnULDl $ 

NOP $ 
; DATA I XXX, 

D[CONST PftN-DATfll-OPl ROT [ PAN-CONTROL -ROT ] DESTEQ] 
PUSHJCPAN-IOa-REflO] 

;Use DATAx, In 
mPF[ PAN-EN- IDS] CYLENtLONGl DIIDD] ALUINOTDI STIAC [ IFRQ 
DESTtHEMSTO ARl C0ND[f1f><291 LBJLWCSEOU ]$ 

.'Finish reading data from PAN bus. Start store and let 
;f1SrtAIN finish it. (LONG i? TVR being paranoid) 
;BLKO XXX, - Not implemented 
JUf1P[f«jU01 $ 
NOP » 
;DfiTAO XXX, 

FIXMl i DFRQ ALUtrEHACJ DESTIHOLD] i» 
D[ CONST PAN-DATAO-OPl ROT [ PAN-CONTROL -ROT 1 DESTtQl 
JUrP[PAN-IDa-URITE] 

NCRn » 
;Use OATAx, Out 

:Send data to drive and go to HAIN 
;CONO XXX. 

D!IR! MsiSKrZZ) OeSTfHIXO) NORf! S 

;Use immediate form. i.e. Instruction as data. 
D[ CONST PAN-CONO-OPl ROT [PAN-CONTROL -ROT] DEST [131 
JUtP(PAN-I08-WRITEl 

NORM » 
;Use CCNx. Out 

;Send data to drive and go to MAIN 
;CONI XXX, 

DtCONST Pfl«-CONI-0Pl ROT[PAN-C0NTRa-ROTl DEST[Q1 
PUSHJI PAN- 1 OB-READ) 

NORM S 
;Use CONx. In 
MAPF[PhN-EN-I08] CYLENtLONGl DIIOOJ ALUINOTOI SflftC I IFRQ 
DESTlnEflSTD API COND!m<Ze) LBJUrPlSEDn It 

;Finish reading data from PAN bus. Start store and let 
.-nSmiN finish It. (LK-S IS TVR being paranoid) 
;CONSZ XXX. 

DICQNST PAN-CGNI-GPl RGT[PAN-CC!NTRQL-RCTI DEST[Q1 
PUSHJ[PAN-ICS-I?EA01 



1ZS36 01873817080eeee005?61SZ22S57i456eee 

12637 eie770i7e2eeeeeeHiEiKe2S7iiis60ee 



12649 010631 17ee3iaG0S17361SZ3G5-t31'*lBeee 
12S41 0107311701000GeS54161G2365+1141G0e0 



set lecation with : nust be folloMed by a 
12E42 01973117010606055+16162365411416806 



12643 01073117003006055415162425411416809 



12644 01073117080006055416162365471516000 

12645 01063117003106854736152365431416800 

12646 01073117013106855416152365451516880 

12647 01073117828022711416162025411456000 



SLOE riarch 23. 1384 21:13:45 file DSK:PftN.SLO 



81*0002 
01S0902 
81198082 
91iB0ee2 
01ne092 
9lB8e02 
01>8e02 
01118892 
01=9062 
01r>8802 
91018802 
0100882 
01m0902 
9lB99eZ 
91a8e02 
01a9e82 

0ii>0ae2 

01b8802 
eia9882 

eiBaee2 
9iii>e9e2 

8108882 

8iBeee2 

TERROR - 
811110882 
81110892 
81 9062 
01 8083 
91 8964 
91 8684 
81 0885 
91 8666 
91 8667 
01 8888 
01 0693 
01 9910 
91 8611 
0lBe612 
91n8ei2 
01III0612 
01 9012 
01 9613 
01 9814 
81 0815 
81 8815 
81 8816 
81 8017 
01 8017 
81 881B 
81 8813 
81 8620 
01 0021 
81 8622 
01 8823 
81 0624 
01 0825 
01 0626 
81 0027 
81in08Z8 
81g>0e28 
81 8628 
81 8023 
81 8630 
81 0831 
01 0832 
81 8633 
81 9934 
81 8835 
01 0636 
81 ■18637 
81ii>0e37 
81 0037 
81 8836 
81 8833 
81 8833 
81 6848 
81 8841 
81 8642 
81 8642 
81 6643 
81 0643 
81 8644 
81 8644 
81 0645 
81 8645 
01 8946 
81 8947 
81 8848 
81 8043 
91 8943 
81 8850 
61 9651 
01 0052 
81 8853 
91 8654 
0! 8655 
01 8856 
81 0857 
01 0656 
01 0059 
01 0853 
81 88G8 
81 8061 
01 8061 
81 8862 
81 8063 
01 8864 
01 9065 



12658 S40E410629809735548456232S760415080 



12651 54^4188068007355484562325768416886 



■ of — F41I»F 

sCraiSZ. (LONG is TVR being paranoid) 
;CONSQ XXX, 

D[CONST PflN-CONHPl ROTIPflN-CONTRa-fiOT] DESTIQ! 
PUSHJ [ PAN- lOe-REfO 3 

men i 

;Use CONx. In 
rifiPF[PftN-EN-ID8] CYLENIL0NG3 DCICD) fILUINOTD] DESKQl 
JUMPIXXCONSO] t 

;Finish reading data froB PfH and so do oeneralized 
;CONSO. CLONG is TVR being paranoid) 

;Read froa PAN's lOB. Return to caller to finish read. 
PAN-IOB-REflO: 

DlPRl ROTISS. - 71 ALUCDORQ] DESTEIOO] SPECnOB-QUTl NORtl $ 

;Set device selection and aode 
t1fiPr[Pf#HXWTRQL] CYLENIIDB-OUTl $ 

;Fintsh setting ande and device 
.REPEftT F4SU [ 

::;;:: ttiat is settling tine supposed to be for PfiH interface? 
MAPr [PflN-CONTROL) 01986 S 

;01886 lies on the F4. Give acre settling tine. 
];[ 

::;;:: Uhat is settling tiMe supposed to be for PAN interface? 
valid expression 

MAPF[ PAN-CONTROL 1 01969 » 

:C1888 lies on the F4. Give oore settling tine. 
1. REPEAT F4SH 

SPECCIOB-INl POPJ C1800 * 

;AlloM 1 usee settling tiee for device adck~ess on PAN bus 

;5tart reading froa device 

;Urite to pan's 108. Jump to fWIN on coBpletion 

PAN-IOB-WRITE: 

.REPEAT F4SU [ 

DiHE.m NORM $ 

:Take map trap cycles here ("SIGH^) 
];I 

D[MEf1] NORM t 

:Take nap trap cycles here ('SIGf^) 
]. REPEAT F4SW 

D[AR] R0Tt36. - 7] ALUEDOROl DESTtlOOl SPEC! lOB-QUTl NORM $ 

;5et device selection and node 
MAPFCPAN-CONTRai CYLEN[IOB-OUT] DCMEM) DESTEIOOl SPEC[ IDB-OUTl $ 

;Finish setting node. Start write to device 
HAPFIPAN-EN-IOBl CYLEN[ IQB-OUT) FETCH-NEXT-INST [ JUTPtmlNl 1$ 

;Finfsh writing data. Start next instruction 

.•General C0NS2/CONSO termination 

XXCONSO: 

.REPEAT 1 - r4Si«4 I 

DCIRl nftSK[221 ALUCD&Q] COND[OeUS=0] JIMPIIIAIN] CS58 $ 

OOSKIP S 
1;. REPEAT 1 - F4SW 
.REPEAT F4SH [ 

D[IR) f1ASK[221 ALU[D&I3] CONDSKP [ -ALU=8 1 $ 
l;i 

D[IR! WSICCZZ) ALU[0SI3I CONDSKP t -ALU-8 1 t 
]. REPEAT F4SH 

XXCONSZ: 

.REPEAT 1 - F4SW I 

DCIRl nASK[22) ALUtO&Ql C0ND[-0BUS=91 JUnPCflAINl C559 $ 

DOSKIP $ 
];. REPEAT 1 - F4SW 
.REPEAT F4SW [ 

D[IR1 HASKI22) ALUtOaOl CONDSKP [ALU=8] $ 
l;t 

DCIRl MASK[221 ALUtOiQl CONDSKP [ALU=0] « 
1. REPEAT F4SW 



12552 8ie73U78eMaG85541SlS2^5431*1^08 

12653 81077837018886854856158365711416968 

12654 81865037000086054115162365431416060 

12655 81873120200088661060362025421456860 
1265E 01077017000080000768362025571456000 



; PAN Interrupts 

;The PAN micro i nterrupt enable is turned off tJTen the interrupt for that 

;channel is recieved and turned on by PI-CHECK-RQS by setting all of the 

;m I cro interrupt enables for the PAN to the complement of PI IN PROGRESS 

and 
:PI REQUEST. This means that the PAN can only request interrupts 

t^ienever 

;som€thin9 else isn't using those channels. This implies that any PAN 
;devices nust be on the end of C0NS2 chains, or else they will steal 
; interrupts from other, interrupt counting devices. 



aacc t-ycc-j aioc^taa'yciciacia/^cn^aa^C'ya'TizciciACCO^ia 



81 8067 



PAN-INTR: 

SPECIIQ8-IN3 tiORr, $ 

;Read status from device 
;Display PI-UAITING. ,IN-PRQGRESS on OBUS 
MfPF! PAN-STATUS) CYLEN[ lOG-IN) 

DtlQOl ROTd + 11 ALUINOTD) DESTIAR HOLD] t 
;Get enabled and interrupting channels 
;»•« Stuff into HOLD for debugging. 
D[AR] R0T[5 - 1.] ALU[-D&Q1 DEST[AR Ql NGRH * 

;l%id interrupting and enabled channels. Still have 
garbage 

; in other bits 
D[ftR] RQTISe. - 11 MASK! 11 DESTLARl C0NDt0BUS=81 JUTPIPAMCU 
C550 $ 

;Juii!p if not channel 1. 

;If it IS channel 1, set PI channel in AR 
DCCONST 11 RCT[3S. - 4.1 ALUINOTDI DEiVJIQl JUTPCPANIDSl NORM « 
:Turn off channel 1 and interrupt 
PfyiNCl: D[CO?iST 11 ALUlOSOl CONO I OBLS^B 1 J'.^1P[GR?iINTl CE50 S 
;Juiiip if not channel 2. 



SLOE (larch 23, 1984 21:13:5+ f i le DS»C:Pl*'.SLQ 



noo 



81 


0873 


ei 


0073 


ei 


807+ 


81 


8075 


ei 


807S 


01 


8077 


01 


8078 


01 


0078 


31 


0072 


01 


0088 


01 


8081 


01 


8082 


01 


8083 


01 


808+ 


01 


888+ 


01 


8065 


01 


8085 


01 


8066 


01 


8087 


01 


0087 


01 




01 


8«H 


01 


8883 


01 


8090 


01 


0891 


01 


809? 


01 


8033 


01 


8093 


01 


009+ 


01 


009+ 


01 


8095 


01 


0096 


01 


8097 


01 


0097 


01 


0098 


01 


M39 


01 


0100 


01 


0101 


01 


0102 


01 


0102 


0! 


0103 


81 


010+ 


01 


0105 


01 


0106 


01 


0107 


01 


0106 


01 


0109 


01 


0118 


01 


8111 


01 


0112 


01 


0113 


01 


0113 


01 


m011+ 


01 


m011+ 


01 


m011 + 


01 


011 + 



12BG2 0106+017000000010636152367031+16080 
12663 01073117000000001+16162225+31+56080 



1266+ 010731 170300203+3+16152025+1 1+5B000 



12665 01065017008000812636152367837+16080 

12666 81065017008000012176152367037+16088 
12567 01073U7003106055+860+6+2S571+17000 



12670 010731170831 25563+060+602557 1 +57000 



of — F+INNF 

:tticro-intsrrupt disable. Used to disable further aicro-interrupts until 

Jfflacro- interrupt is taken for that channel. 
PP-NIDS: D'flnEH-ftBS .PI-STflTUSl ROTCSS. - 10.1 ftLU'DSQ! DESTEQ! 
.REPEAT F+SW [ * 1 [ * 1 ;Watch field conflict on F+ 

PUSHJ[Pf«IST] NORM $ 
;Re9iave interruptina channel fro* channels ready for 
interrupts 

'm^d set the hardware res'Ster to that value. 
nflPF[PflN-INT-EN81 CYLENt I08-0UT1 JUHPIPIGEN1 % 

;Finish setting hardware interrupt enables and take 
:macro- interrupt 

;Coiiipute aiicro- interrupt cnablina fro» state of firaware PI systen, and 
set 

;harc^4are register in PPN. Called uith Q containing PI channels that are 
on. 

.•Clobbers dev-address and Bust be followed by fWPF[P(*l-INT-£NB] 
PftNIST: D[i:«:n-fiaS PI-IN-PRCERESS1 R0T[35. - 10.1 flLUC-OaOl DEST[QJ SHORT 
$ 

;Rettove channels in progress 
D[flfEI1-|:)aS PI-IN-PRCGRESS] R0T[17. - 10.1 rt.U[-DaQ] DEST[Q lOOJ 
SHORT $ 

;ReMove channels which are already waiting. 
Dt CONST PftN-UCEV] DEST [ DEy-flOORESS 1 SPEC [I OB-OUT] POPJ NORM $ 

;Select PfiN interface and turn its micro interrupts on. 
;There is no way in Htl^ /ou can count interrupts a PAN 



10 bus. 
sat isf ied. 



;or even l<now u^ien an interrupt condition has been 



12571 010731 17&a2S++002552S80+2551 1+15000 



:Reset PAN. Set interrupt and dispatch addresses 

PANRST: D[CDNST PAN-UOEyj DEST [ DEU-AOORESS 1 SPEC! ICB-OUTl NORM JUMPE. + 
1] « 

;Start 108 RESET happening. 
MflPF[PfiN-ICS-RESET! CYLENt lOB-OlTl 
.REPEAT 1 - F+SW I 

D[CONST (PAN-DISPATCH / 100)] RQT[301 BEST[Q1 » 
:Construct dispatch address: high 6 bits. Finish lOB 
RESET 

DiCONST (PAN-DISPATCH \ 100)] R0TI22] ALU[DORQ] DESTEQ] NORM % 

:l.ow 6 bits 
DECONST (PAN-INTR / 100)] ROTES] ALUEOORQ] DESTEQ] NCRtI $ 

;Construct interrupt address: high 6 bits 
DECONST (PAN-INTR \ 100)] ALUEDOROl DESTEPAN-DISP] POPJ NORMS 
;Finish contructing interrupt address and store away. 
;Ue're done. 

];. REPEAT 1 - F'VSM 
.REPEAT F+SW [ 

DELIT ((PAN-DISPATCH « 1880080) + PAN-iNTR)] DESTEPAN-DISP] POPJ 
% 
1;E 

DELIT ((PAN-DISPATCH » 1008000) + PAN-INTR)] DESTEPAN-DISP] POPJ 
i 
]. REPEAT F+SU 



SLCE narch 23, 1984 21:13:58 file STRIfC: — of — F41NNF 

01 eiZB .insert TMFtKN 



SLOE March Z3, 138* 21:13:58 file OSK:TMPGRN.SLQ 



of 



FiimF 



GRN-DISP = ■♦ <• D^ftttne 



GRN-PICKN = 5 + D«*EI10 



ei eeei 
ei eeei 
31 eaez 
«i eeez 
ei eeea 
et eeea 

01 00W 

01 3004 

ei eee5 

01 0005 

01 0006 30 GRN-UDEU 

01 0007 
01 0006 

01 0008 5 GRN-STflTUS = 5 
01 0010 

01 0011 
01 001Z 
01 0013 
01 0014 

01 0015 5 GRN-CONTKOL = 5 

01 001G 

01 0017 E GRN-DftTfl = S 

01 0018 

01 0013 

01n00Z0 

01ni00Z0 4+ 

01 00Z0 

0i>i0ezi 

01II100Z1 +5 

01 0021 

01 0022 
01 0023 

01 00Z4 

01 0025 
01 00ZS 
81 8025 
01 0026 
01 0027 
01 0028 
01O0023 
01i>0029 
0lBa0Z3 
01»0030 07770 010731 12G04e0000U0G84612557H57000 

01100030 

01010030 07771 01073112504000001406046125571+57000 
01iDOe30 

0100030 
01n0030 
01 0029 
01 0030 
01x0031 
ein>0031 
01x0031 
01 0032 
01x0033 
01x0033 
01 0034 12E72 01073100200010210160362024611456000 

01 0034 

01 0035 

01 0035 12S73 01673617066606054341102365771416606 

01 0037 

01 0037 

01 0038 

01 003S 

01 0040 12674 01060117000000000444000726211456000 

01 0041 

01 0042 

01 0043 

01 0044 

01 0045 

01 0046 12675 01073117000010211416162025431456000 

01 0047 12676 01073117000006055416162365431416000 

01 004B 

01 0043 12677 01073117000010211416162025431456000 

01 0050 12700 010731170008060554161B2365431416000 

01 0051 

01 0052 12701 01073117000010211416162025431456000 

01 0053 12702 01073117000085055415162365431416000 

01 0054 

01 0055 12703 01033117000006055416150345431216M0 

01 0056 12704 01073117003100001415152025471556000 

01 0057 

01 0058 

01 0053 

01 0060 1Z705 01073117003136055416152365771416000 

01 0061 
01 0061 

01 0062 

01 0063 

01 0064 12706 010731170500227114011120257S1456000 

01 0065 

01 aees 

01 0066 

01 0067 

01 0068 12707 01073117003000001415162225431456000 

01 0063 

01 0070 12710 010Z3131000022665416156125430456000 

01 0070 

01 0071 

01 0072 

01 0073 

01 0074 12711 01873117003000001416152225431456000 

01 0075 

01 007S 12712 010731170000ZS52341515282S431456000 

01 0077 

01 0078 

01 0079 12713 01073117003000001415152225431456000 

01 0080 

01 0082 



CRN - Tenporary Grinnel Interface 



Pf«-uoev 


;uOevice address 




;tttPF 


fields 




Read status 


res i St cr 










;200 


G INT RQ 






;100 


FIFO KY 






;40 


GUBSY 






;20 


G INT REQ 






;10 


G INT ENS 


Set control 












;10 


G INT ENB 


Send Data 










;ft-nEM 


usage 






DEFINE 


-A-riE(1tGRN-DISP 41 



(= G INT ENB G INT REQ) 
FIFO input reaister read/ 
Grinnell is busy 
FIFO seens eapty 
flicro interrupt enable 

flicro interrupt enable 



];IOT dispatch in LH, RH unused 
DEFINE-fl-nEMtGRN-PICHN 51 [ 



1;PI channel for Grinnell 

.REPEAT F4Sli t 

.0PC0De[774] 

DtCONST OTH-UOEV] DESTtOEU-flORl NOW CONDI-USER] LBJUMP[GRNIOT] $ 

DtCONST GRN-UCeVJ DEST[DEy-ftCR] NORM CONDI-USER! LBJUWtGRSIOT) t 

:Sct xicro device address for Grinnell and check for 
.-lOT-User node 



];[ 



.0PC0DEI7741 



list ) DtCONST GRN-lfi5EVl OEST [ DEU-flOR 1 NORM CONDl-USERl 

LBJLIHPiaailOT] $ 

DLCraST GRN-UDEVl DEST[DEV-f)DR3 NORtI CONDI-USERl LBJUMPCGRNIOT] $ 



;Set Micro device address for Grinnell and check for 
;IQT-User mode 



]. REPEAT F4SW 

.RELOC 
[.USE[HILOC] 
[ xlist 
list 1 

.PAIR 
[:. \ 2 + . 

IGRNIOT: 
LONG S 



DCPC-FLftGSl R0TI5 + 11 f1flSK[l] COND[OBUS=0I JUfflMJUO] 



;Trap if User and not IDT-USER 
DtlRJ RQTtlZ. +1 + 11 P¥SICi4j DESTiQJ fiORfl S 

;Extract lOT decode « 2. tiote ue can do this because the 

:»3chine has already done index ins/ indirect ion and bits 
;13:17 are guaranteed zero 
DtGRN-DISPl R0TC18.1 MASKCIG.) flLU[D+Ql XDISP [ XISP LONG IS 
;Dispatch of type of lOT 

;Norinal lOT dispatch for Grinnell 
GRN-DISPATCH: 
;BLKI XXX, - Not implemented 

JUMPEnUUOJ $ 

NOP i 
;DATftI XXX, 

JLIW[niAIOJ $ 

NOP * 
;BLKO XXX. - Not iBpleroented 

jufip[nuuoi i 

NOP S 
;DflTft0 XXX, 

FIXni [ DFRQ ALUinEmC) DESTtHOLD) 1$ 
DCMEfll DEST[ICM3] SP£C[I0B-0UT1 JUMPIGRNDTOl $ 
;Send data blindly to Grinnell 

."(Continued below, two xicro instruct ions' worth) 
;CONQ XXX, 

DdRl DESTIIOOl SPECtlOB-OUT] NORM % 

iRemenber PI channel and start settins micro interrupt 
enable 

;bit. 
MAPFIGRN-CONTROLl CYLEN[I08-0UT] 

DIIR] mSK[4] DEST[GRN-PICHN] JUHPCMAIN] t 
;Finish setting micro- interrupt enable bit and also save 

i t 

;aMay 
;CONI XXX, 

SPEC[I08-IN1 PUSHJ[GRNSTS1 NORO $ 

;Start reading status 
ALUtOl OESTtMEMSTOl ftMST [ SHAC [ IFRQ DESTIMEMSTO ARl 
CONDinfl<20] LBJUfPISEOn ]]$ 

;Finish reading status frox Grinell interface. 
;Start store and let nSMfllN finish it. 
;C0NS2 XXX, 

SPEC[IC3-IN1 PUSHJIGRNSTSl NORM S 

:Start reading status 
JLinP[XXC0NS2) NORM S 

;Go do generalized CONSZ- 
;CONSO XXX, 

SPEC[IOB-IN) PUSHJtGRNSTS] tOn: S 
,"Start reading status 

JuMT L XXLunou J r££^ 5 

:Go do generalized CONSO. 



SLCE March 23. 1984 21:14:97 file DSK:TrPGRN.SLQ 



of — F41Wf 



81 eeas 

81 9089 

ei eeae 

91 9991 
81 9992 
81 9093 
01 9994 
01 0995 
01 909S 
01 9997 
01 9096 
01 0099 

01 0100 

01 9101 

01 0102 

01 0103 

01 0104 
01 0105 
01 0105 

01 0106 
91 9107 
91 9108 
01 0109 
01 9110 
01 9111 
91 9112 
01 0113 
01 0114 
0! 0115 
01 0115 
01 011G 
91 9117 
91 9118 
91 9119 
01 0120 
91 9121 
91 9122 
01 9122 
01 0123 
01 0124 
01 0125 
91n9126 
aim0126 
81n0126 
01x10126 
ei«i0126 
01n9126 
01 9126 



12717 ei0639!7e00e050554!SlS242S2?H!Be00 

12720 010731 1796082271 141B1B292S41145S900 

12721 01073117003686055416162365437415066 

12722 91973017050066054716162365711416990 

12723 01023106290825647416152925431456000 

12724 01024117003106055416152365437416000 

12725 01073120050020343400762026251456000 

12726 01073117904822711416162025431456906 

12727 9102411700000G9SS416112365437416900 



12730 01073117002557202564310425531416000 



;Renove PI channel and interrupt enable 
DtGRN-PTCHN] M-UtDORQl DESTIQ] PDPJ NORM $ 

;Put in PI channel and firaMare interrupt enable 

;Finish writing to Grinnell and start next instruction. 

GR^DTQ: MflPF[GRN-(WTftl CYLENdOB-ajTl FETCH-NEXT-INST [ JUhP[rWINl 1$ 

;Grinnell interrupt. Pass to s/stea* if enabled. Otherwise, ignore 
aaiNT: SPECilQB-IfiJ SHORT S 

;Fetch status 
mVFEGRN-STOTUS] CYLENt lOB-INl D[IOO) R0T[3S. - 71 DESTtQl t 

;Get interrupt request bit 

nLU[i3] awD[aeu5=9] Jirpt-i nam % 

;Interrupt without a cause. 
ALUt91 DESTtlQO] SPECtlOS-OUTl SHORT S 

;Clear aicro- interrupt enable 
MflPFIGRN-CONTROL] CYLENIIDB-OJT] 

DCGRN-PICHNl nftSK[3] DESKflRl a»JDI-CBUS=9] JUHPCPIGENl $ 

;Tal<e interrupt, if enabled. 
CLR-DEU-FROfl-INTR FETCH-ltXT-IICT [ JUTPtflfllNl IS 
;DiSffliss interrupt 

;Reset Grinnell. Set dispatch addresses 
GRNRST: flLU[01 DESKGRN-PICHNI SHORT S 

;No PI channel yet. 
.REPEAT 1 - F4SW [ 

D[CC»eT (G5N-DISPATCH / 100)] R0T[39] DESTCQl NQRO % 

:Consiruct dispatch adct'es^: high G bits- Finish IDS 
RESET 

DtCONST (GRN-DISPflTCH \ 196)) R0T[22] flLUCDORCI) 

DESTIGRN-DISPl NORM POPJ * 
jFinish contructing dispatch address and store away. 
;Ue're done. 
];. REPEAT 1 - F4SH 
.REPEAT F4SW i 

DtLIT ((GRN-OISPATCH • 1060000) + GRNINT)] DEST[GRW-DISP] NDRM 
POPJ $ 

;Contruct dispatch address and store away. 
;Note: Right half not used. 
;Ue*re done. 



1;[ 



DCLIT ( (GRN-OISPATCH » 1006000) + GRNINT)] OESTEGRN-OISP] NORM 

;Contruct dispatch adcfc"ess and store away. 
;Note: Right half not used. 
;l«fe'rc done. 



]. REPEAT F4SW 



SLOE March 23, 1984 21:14:11 file STRING: — of — F41Wf 

ei eiZ8 • insert ftUDSHX 



SLOE riarch Z3, 198+ 21:H:11 file DSK:flUDSWX.SLO — of — F+IWIF 



ei 


8801 


91 


9001 


91 


0802 


ei 


WW? 


ei 


0003 


81 


8883 


81 


0804 


8! 


000+ 


81 


0005 


81 


0005 


81 


8006 


81 


8087 


81 


8«« 


81 


8009 


81 


8018 


81 


8011 


81 


8012 


81 


8013 


81 


881+ 


81 


8015 


81 


8815 


ei«0ei7 


8iii>aei7 


81 


8017 


81.8018 


sineeis 


81 


8018 


eineeis 


81 


■seis 


01 


0013 


81 


0020 


81ii8(Vl 


einrfwi 


81 


08Z2 


81 


8023 


81 


002+ 


81 


002S 


81 


002S 


81 


0025 


81 


0027 


81 


0028 


01 


0029 


01 


0038 


01 


8831 


01 


mv 


01 


0833 


01 


883+ 


01 


00HS 


01 


8835 


01 


8837 


01 


8038 


31 


(iKS 


01 


88+0 


01 


88+1 


01 


80+2 


01 


08+3 


01 


00++ 


81 


^+5 


01 


80+5 


01 


80+7 


01 


80+8 


81 


00+9 


81 


8058 


81 


8861 


81 


(WS? 


81 


8053 


81 


805+ 


81 


0855 


81 


8055 


81 


8057 


81 


8058 


81 


8859 


81 


88») 


81 


98S! 


81 


(WR2 


81 


0863 


81 


886+ 


81 


0865 


81 


8066 


81 


0867 


81 


0868 


81 


0059 


01 


0070 


01 


9071 


01 


0071 


81 


0872 


01 


8073 


01 


987+ 


81 


0875 


01 


8076 


01 


8077 


01 


8078 


01 


8079 


01 


0080 


01 


8061 


01 


(WW 


01 


88U3 


01 


908+ 


01 


8865 


81 


0086 


81 


0067 


81 


fvyin 

WAJW 


81 


0069 


01 


0090 


eii>0e9i 


eimeesi 


TERROR - 


81 


0091 


01 


0092 


ni 


aeea 




30 



AS-uDEu = pftff-uDey 



;uOevice address 

;HflPF fields 



+ ftS-OfiTfi 



;f1APF field 



Bit 8 
Bit 1 
Bit 2 

Bits 12:17 
Bits 38:35 



Strobe 

Set/Clear (set=l) 

Reset 

Output channel 

Input channel 



+6 



+5 



ASOSP 



ovtrcm 



ftSBflSE =■ 5 + D*MEn8 



= 7 + D*MnErto 



12732 81873108200010210160352025631+56000 

12733 0i0730i7880e0S05+3+llS23ra771+lSa0e 



1273+ 010601 17800000000+++00072631 1+56000 



12735 81873117000010211+15162025+31+56000 
12735 01873117008006055+15162365+31+16600 



12737 81873117000010211+15152025+31+56000 
127+0 01073117088006055+16152365+31+16000 



127+1 01033117088006055+151503+5+31216000 
127+2 01073117003100001+16152825+71556088 

127+3 8ie3311?8ee0e6e55+!E15e3+5+31215999 
127++ 01073137000000001+16152025+71556008 



127+5 81873817888006055+1+152366331+16000 
127+6 01063117888822711+0+51+825771+56000 



127+7 0102+131800022665+16156125+30+56088 
12758 01873117800886055+16152365+31+16000 



12751 0182+817888886055+16162365+31+16000 

12752 01073117800025523+15152025+31+56000 

12753 0182+817808006055+16162365+31+16880 
1275+ 01873117888825521+16162025+31+56000 

127S5 010731170+0022711+16152025+11+56000 



;ft-fEM usage (defined in PfW.SLO) 
OEFINE-ft-fEH[ASOSP 51 [ 

1:I0T dispatch in LH 
DEFINE-ft-flEMtflSBftSE 51 [ 

l;flcUress of table (RH) 
OEFINE-ft-fErl[ASTEnP 71 t 

];Address of table 

.PftIR 
t:. \ 2 * . 

IftSIOT: D[PC1 RQTI6 + 11 IVSKll] CQND[0BUS=8] JUrt>[MUUO] « 

;Trw) if User and not IDT -USER 

D[iRi RaTii2. + 1 + 11 nfSKt+i CEST[ai Has; s 

;Extract JOT decode > 2. Note ue can do this because the 

;iBachine has already done indexins/indirect ion and bits 
;13:17 are guaranteed zero 
OlftajSP] ROTtlB.l rWSKtlS. 1 flLUtO+Ql XDISP l CBISP LONG 1$ 
;Dispatch of type of lOT 

:Nor.al lOT dispatch for Grinnell 
flS-OISPflTCH: 
;BLKI XXX, - Not iw>le»ented 

junptnujoi s 

NCP $ 
;DATflI XXX. 

jUMPimuoi t 

NOP « 

ajCO XXX, - Hot isplesentsd 

; Jl*P[HUUO] $ 

! NOP $ 

fix»l [ DFRQ flLUrriEmC] DEST[HOLD] IS 

d[BeB] destliod] specC lob-out ] juaptasblkol nom $ 

iDmea xxx, 

Fixni t DFRQ flLLIinErifC] DEET[H0LD1 1$ 
D[nEni DEST[AR1 JUMPLPlSOTOl $ 
;Fetch device 

;awo xxx. 

D[ASBASE1 LEFT DEST[Q] NORM * 

DIIRl mSKtlB.J flLU[DaRO] DEST[flS8fSE] JUWCmiNJ $ 

;CONI xxx, 

ftLUtei SUfiC I IFRO DESTCMEMSTO AR) C0NDtm<281 LBJUMP[SEOn 1» 
NOP t 

;Fake 8 data, store and let nSmiN finish It. 
;C0NS2 XXX. 

flLU[8] DESTCQl NC3?H t 

;Fake COM data 
JUnPtXXCONSZl NORtI S 

;Gc do generalized C0N5Z- 
irnwso XXX. 

flLU[01 DeST[Q) NORtI t 

jFake CONI data 

junpcxxoMsa] norti % 

;Go do generalized C0N5O- 

:Flnish BLKO 

flSBLKOs flAPFIftS-DATfll CyLEN[ lOB-OUTl FETCH-»EXT-INST t JUMPtrWIN] 1$ 



;Flnish DfiTflO 

sCAUTION: This code can get map fill cycles, since the i:ap is left on. 
Ho never. 
; repeating an operation isn*t harmful. 

12756 81073000208022711+8+562826321+56000 fISOTO: DIftSBflSEl mSKda.l OESTtQ] CCWD[OeuS=01 JUrflflfllN) C550 t 

;nal<e sure weVe setup properly 

12757 61073117000086055+161+0365+71516000 DCMEHl DEST[IR-PlLLl NORM $ 

;Use entire IR to save new mapping 

12760 7186011700008685+++lS5236S771+1688e DtlRl ROTtlB.] tWSKCS) flLUtO+Ql DESTCMfl) NORtI S 

:Calculate table entry 

12761 81833117880006055+151583+5+31215000 FIXni [ DFRQ ALU[rEMAC] DESTIHOLD] 1* 

.'Contemplate bizarre case of PCr take map traps 
;IR ' new mapping 
;rEn - old mapping 

12762 81060817000000088752162225571+56888 DCCONST 58] R0TI38.) fiLU[D*QI DEST[Q] PUSaiCfiSMflPl NORM « 

;Clear node 

12763 81073017000886855+8+562365331+16800 DCflSBflSE) tWSKtlB.I DESTtOl NORM t 

;5etup again. 
1276+ 718681178e80e605+++156236S771+16000 DIIR] ROTllB. 1 M(«K[6] ALU[D+Q1 DESTEMA) NORM $ 

iCalculate table entry 
.repeat f+sw [ 

::;;:: Here's a JUTPI.l to fix. 
];I 

::;;:: Here's a JUtlPE . ] to fix. 
- set lecation with : must be followed by a valid expression 

]■ repeat f+sw 
12765 810731 110000257S3+161S6025771+55000 D[IRJ OEST[rEMSTD) COND[Mfl<Z0J JUTPE . ]S 

ifdnu. "itnr^ in nr^nnrv. nnd nhF-nlf fnr Af^ rR-f^r^nni". 



SLOE March Z3. 1984 21:H:13 file DSK : ftUDSHX . SLO — 



ei 0098 
01 0099 

ei eiee 

81 0101 

01 0102 
01 0103 

01 010* 

01 eies 

01 0106 

01 0106 
01 0107 
01 0106 

01 0109 

01 0110 
01 0111 

01 0112 
01 0113 

01 01H 
01 0115 
01 0116 

01 0117 
01 0117 
01 0118 
01 0119 

01 0120 

01 0120 

01 0121 
01 0122 
01 0123 
01 0123 
01 012* 
01 0125 
01 012G 
01 0127 
01 0128 
81 812S 

01 0130 

01 0131 
01 0132 
01 0133 
01 013* 
Qi 8135 
81 0136 
81i«ei37 
eii«0137 
01i»0137 
01 0137 
01 0138 
01 0133 
01 0H0 
01 01+1 

01 0H2 

01 01*3 
01 01** 
01 01*5 
01 01*6 
01 01*7 

ei»0i*e 

0111101+8 

aisoi+s 

01 01*8 
01 01*9 
01 0150 

01 0151 
01 0152 
01 0153 

01 015+ 
01m015S 
011110155 
01 0155 
01 0156 
01 0157 
01 0158 
01 0159 
81 0168 
01 0161 
01 0162 
01 0163 
01 016* 
81 0165 
01 0166 
81 8166 
81 8167 
81 8168 
81 8169 
01 0178 
01 0171 
811110172 
01in0172 
01 0172 
81 8173 
81 817* 



1Z757 81073117880022711+15152825+31*56000 

12770 0106001700008805*1*8362365571*16000 

12771 01060117800886055*8*516365*71516000 

12772 8ie6ei37ee00093ee+++5S2225+7155S888 

12773 0107313700000605++56162365+31+160ee 
1277* 0186+817800000000756162225571+56000 

12775 81863817000006055+1+162365+31+15088 

12776 0106301700310605++++552366371+160e0 

12777 010651170+310605+750152365551+16800 

13000 010631170+310605+750152365551+16080 

13001 010731170+0025771+16162025+11+56000 



13002 71073100200000001+16162825+21+56000 



13003 01033117000006055+161503*5+31216000 
1300+ 010731370000050S5+1616Z365+71516000 



13005 71073180280600001+0+562026371*56800 



13006 01033117000006055*161503+5+31216000 

13007 01073117000006855+16116+25+61516800 



13810 81073117000325017+16162025+31+56000 

13811 0107311788310605+502152365571+16000 
13012 0102+1170+3106055+15152365+11+16800 
13813 0102+1178+8006055+1611+365+11+16800 



1301+ 81073117002S6728000011++25531+16000 



of — F+lWf 

FETCH-NEXT-INST [ JlFPIflfllM! IS 

;Do software capping of audic 
;F£f1 - dest ir.st Ion « f source 

fStVP: D[CDNST 1] R0TI6] f)LU[D-H31 DESTtQl NORTI S 
;Paint to mapping table 
D[ME?1] HftSKEie.] ALUID+Q] DESTCASTETPl NORM S 

;5etup to fetch source napping 
D[P013 RCT[1S. 3 ttASK[19.3 fiLUED+QJ OEST[fiR] PUSHJEASHfiPS] MDRTI S 

;Setup to fetch destination aapping 
;Go off and fetch both. 
DCflRl R0TC18.I DESTCftRl NORtl S 

;[>est inat ion iiapping is in the left half of the table. 
\ / 
ftSnfiPl: DCCONST 78) ROTt30. 1 fiLUID&Ql DESTtQl PUSHJII«nflPSl NORH » 
;Just sone node bits* please 
;Gct next pair 
D[AR] LEFT ALU[DORQI DESTtQl MORM $ 

;napped destination 
DlflSTEMPl ROTtlB.l mSKtlB. 1 fLUtDOROl DESTtO 1001 SPECCItB-OJTl 
NORM $ 

;f1apped source* leading edge 
nflPFtflS-DflTAl CYLENtKB-OUT] 

DtCONST +0] ROTC30.) flLUHKQ) DESTtlQOl 
SPECtlCH-OUTl » 

;Leadin9 edge 
riAPFtfiS-DflTAl CYLENtltB-OUT) 

DtCSNST +81 R0TI38. 1 ALUIDORQl DCSTtlCDl 
SPECEIOa-OUTl $ 

;Trai 1 ing edge 
nfiPF[(«-DflTAl CYLENIIDB-OUTl JUnPIfSmPll » 



;Advancc to next entry in list. 

.REPEAT 1 - F+SW [ 

DIftRl DESTtrlfll CCNDt08US=81 JPCPtASrtflP31 C558 $ 
;Fetch a destination 
1;. REPEAT 1 - F+SU 
.REPEAT F+SU I 

Dlf^l DESTtflA] C0fC[0BL'S=81 JL?f [A^ICF+l C558 $ 
;Fetch a destination 
1;I 

DtftR) DeSTLHAI CCM3[O8US=01 JUnPtASDAP+l C550 « 
;Fetch a destination 
1. REPEAT F+SU 

FIXni t OFRQ ALUinEriACI CtSTtHOLDJ It 
DtnEHl DESTtAR) NORn S 

;Save destination Mapping 
.REPEAT 1 - F+SU I 

DtASTEfPl fttSKtlS. 1 OESTlml CONDIG3US=01 JPCFtASf1flP3] NORfl » 
;Fetch a source 
1;. REPEAT 1 - F+SU 
.REPEAT F+SU I 

DtftSTErPl rV6KI18. 1 0ESTIHA1 C[»OtCBUS=01 JUtPtASmP+l NGRtI S 
;Fetch a source 
1;[ 

DiASTEMPJ flASKriB. i OESTiml CQND[OBLiS=0] JUnPIASmP+i NORtl » 
;Fetch s source 
1. REPEAT F+SU 

Fixm t DFRO fiLUIHEfWCl DESTCHOLDl ]$ 

AsnAP3: otrtni DESTtASTEnpi pcpj esse * 

;Save source mapping 

.REPEAT F+SU [ 

ASf1AP+: SPECtnU-PQPl JUnP[ftSf1AP31 * 

1;[ 

AsnAP+: SPECtHU-POPi junp[AsmP3] $ 

1. REPEAT F+SU 

;Reset Grinnell. Set dispatch addresses 

ASRST; DtCDfeT 101 ROTt30] BESTIIDOl SPECI lOB-OUTl NORn $ 
; Assert RESET 
ilHpr [AS-DATAl CYLENE I OB-OUT j hLulwj i^STEIOOl 5PECt luB-uUTl $ 

;Clear RESET 
rAPFEAS-OATAl CYLENE lEB-OUT] ALUE01 DESTEASBASEl $ 
;No table yet. 
.REPEAT 1 - F+SU E 

DtCONST (AS-OISPATCH / 180)1 ROTE301 DESTEQl NORM S 

;Construct dispatch adct-ess: high 6 bits. Finish 108 
RESET 

DECONST (AS-OISPATCH \ 100)1 R0TE221 ALUtOORQl 
DESTtASOSPl NCRtI POPJ S 
1;. REPEAT 1 - F+SU 
.REPEAT F+SU E 

DELIT (AS-DISPATCH » 1000000)1 DESTEASBSPl POPJ $ 
l;t 

DELIT (AS-DISPATCH » 1000000)1 DESTEAS05P1 POPJ % 
1. REPEAT F+SW 

;Finish contructing dispatch address and store auay. 



SLX March 23. IBS'* 21:M:Z7 file STRING: — of — F+lWf 

ei eiza > 

ei eiZ3 



SLCE March Z3, 198+ 21:U:Z7 file 0SK:F4ID.SL0 



of — F41Wf 



ez eiae 

az 8131 
9Z 013Z 
92 8133 
82 ei3+ 
8Z 8135 
8Znei3G 
8Zi<iei3E 

e2isei36 

82 813B 
82 8137 
82 8138 
02 0139 
02 0140 
02 8H1 
02 BHZ 
82 0U3 
02 01M 
02 8H5 
O2>i01^ 
82»0U6 
02x01^ 
02 0H7 
02 01+8 
02 01M 
02 0158 
02 0151 
02>0152 
02x0152 
02 8152 
02 0153 
02 015+ 
82 8155 
82 8156 
82 8157 
02 8158 
82 8159 
82 8168 
02 0161 
0Z 0162 
02 8163 
02 816+ 
02 8165 
82 81SE 
02 8167 
82 0168 
02 0169 
02 0170 
02 0171 
02 0172 
02 8173 
02 817+ 
02 0175 
02 0175 
02 0177 
82 8178 
82niei79 
821110179 
82 0179 
82 6188 
0Z 8181 
02 0182 
02 8183 
02 818+ 
02 0185 
82 818S 
82 01B7 
82 81S8 
0Z 8189 
eZ 8190 
82 8191 
82 819Z 
82 8133 
82111019+ 
S2i!Wi3+ 
02m019+ 
02»019+ 
02111019+ 
0Zm019+ 
0Z1I1019+ 
82m819+ 

e2mei9+ 

82m819+ 
82iii819+ 
82111019+ 
82111819+ 
82111019+ 
8Zrn019+ 
eZm019+ 
eZm019+ 
02m019+ 
82is819+ 
02in819+ 
82n819+ 
0ZII1019+ 
8Ziii819+ 
0Z111019+ 
02111019+ 
02III019+ 
0211019+ 
02m019+ 

02B0i9+ 

0Z«iei9+ 
0Z111019+ 
0Z 819+ 
8Z 819+ 
0Z 8195 
0Z 8196 



0777Z 03073117000e80e01+1615Z62S+71356000 
87773 01833117000800001+16150005+31+56000 



8777+ 818731 1780+000001+0Z++B0Z5571 +57800 
07775 010731170e+000001+0Z++60ZS571+57000 



13015 010731 lZ+0+000e01+8Z++5Z25571+57000 

13016 0107303700000685+321162355771+16800 

13820 ei073100Z00000001+16152025+61556000 

13021 81073117000022711+0+520025571+56080 

13022 810731 1780002Z71 1+02520025571+56000 

13023 0107311700+006055+160+6366+31+17008 

1302+ 01060137000000000000152365531+15000 

13025 01873117800000001+16152ZZ5+715S600e 
130Z6 010Z31000ee02271 1+16162025+21+56000 

13027 01073117000022711+1610+025+71556000 

13030 81073117003100000016000725+11+56000 



13031 8187311780+886055+168+6366+31+17880 



13832 01073112+00000001+15152225+31+56^0 
13033 0107303780000605+321162365771+16000 
1303+ 01860137000000000000152365531+15000 

13035 01073117000000001+16152225+31+56000 

13036 01873131800822565+161 56 1 25+ 30+55000 

13037 01073117083000000016000725+11+56000 

FNTDSP: XX = 



130+0 01073137000086055+16162+25711+16000 

1 XX = XX + 1 1 

130+1 01873137010006055+16162+25711+16000 

2 XX =« XX + 1 ] 

130+2 01073137020006055+15152+Z5711+16000 

3 XX = XX + 1 ] 
130+3 01073137030006055+16152+25711+15000 

+ XX = XX + 1 ] 

130++ 010731370+0006055+16162+25711+16000 

5 XX = XX ■*■ 1 ] 
130+5 81873137858006055+15152+25711+16000 

6 XX = XX + 1 ] 

130+6 01073137060006055+161E2+Z5711+15000 

7 XX - XX + 1 1 

130+7 01873137070006055+15152+25711+16000 

10 XX = XX + 1 

13050 01873137180006055+16152+25711+15000 

11 XX = XX + 1 

13051 81873137110006055+16152+25711+16000 

12 XX = XX + 1 

13052 010731371Z0006055+16162+ZS711+16000 

13 XX » XX ♦ 1 

13053 01073137130006055+16162+ZS711+16000 

1+ XX = XX + 1 

1305+ 010731371+0006055+16162+ZS711+16000 

15 XX = XX + 1 

13055 8187313715808G8S5+1E15Z+2S711+16000 

16 XX " XX + 1 

13056 81073137160006055+16162+25711+16000 

17 XX = XX + 1 

13057 81073117170006055+00702+25771+16000 



.REPEAT 1 - HfllTS t 

.opcode [7531 
];. REPEAT 1 - WAITS 
.REPEAT WAITS [ 

.opcode[775] 
];[ 

.opcode[77S] 
[xlist 

list IJ. REPEAT WAITS 



;rNTWRT 



;FNTRD 



DF/UT DlfEn] JLTPCFNTtRTl * 
ALUEHEMACl DE5T[H0LD] JUTPIFNTWRT] t 



DtCONST FNTDEVl DESTIDEV-ADR] JUMP[FNTRD] » 
DtCaST FNTDEVl DESTIDEU-ADRl JUHPEFNTRDl t 

.reloc 
[.USEIHILQCl 
[ xlist 

list 1 1 

FNTWRT: DtCOfeT FNTDEVl DEST I CEV-ADR 1 
-repeat Haitsfix [ 

CCWDIUSERl PUSHJCCKIOTUl 
];[ 

CQNOtUSER] PUSHJ[CKiaTU] 
J. repeat waitsfix 

$ ;Setup device code. Make sure Me're EXEC or I0T-U5ER node 

DIIR] R0T[12. + 1] nASK[+] CESTIAR Ql $ 

;Extract AC field. 
D[CC»iST IE] ALUCOQl CS50 CONDC-HEROl JUMPCFNTtRA] » 

;Is it a Select Interface command ? 
DCMEMl C550 CCH)[2£R01 JUMPtFNTWRBl $ 
;Yes. JuBip if selecting interface 8. 
DtCONST FNTDEV21 0eST[D*AfEfll81 NORM JUHP[HAIN1 t 
jSelect interface 1. 
FNTWRB: DtCONST FNTDEVl DEST[D*AnEH10] NCRH JLTPCHAIN] S 
FNTURft: D[D3tfir£.110] DESTtDEV-ADR] NDRtl % 

;Get device adr of selected interface. 
DtLABEL FNTOSPl ALUtD+01 DESTIAR] $ 

;Calc disp addr 
DCnErtl DESTdOOl PUSHJtFNTURll $ 
ALUIQl C550 CQND(-O8US=0J JUTPttlAINl $ 

;Output done. Was it to CMD reg ? 
DIMEMl DEST[0*«1EHZ] JlTPttlAINl $ 
;Yes- Remeiaber the data. 
FNTIRI: START-OUT DIARl ROT [ MUft-ROT 1 LONG OOISP » 

;Start on FBUS output, and dispatch to proper sub-select. 



FriTRD; 

.repeat 

);[ 

J .repeat 

S 



D[D»lfEril01 DEST[DEV-ADR1 NORM » 
Maitsfix [ 

CWBIUSER) PUSHJtCKIOTUl 

CONDIUSER] PUSHJCCKIOTUl 
Mai tsf ix 

:Get device adr of selected interface. 

;nake sure we're EXEC or lOT-USER mode 
DCIRl R0TI12. + 11 mSKI + 1 DESTIAR Q] $ 

;Extract AC field. 
D[LABEL FNTDSPl ALUID+Ql DESTIAR] $ 

;Calc disp addr 
PUSHJIFNTRDll $ 

D[AR] SrtAC [ IFRQ DESTIMEHSTO ARl CONO[MA<20] LSJUMPCSEDI] ]$ 
STAI?T-IN DIAR] RDTtHUA-ROTl LONG OOISP $ 

;Start an input operation, dispatch to get right sub-sel 



.repeat 17 

[ MAPFIxxl DIIOO] DEST[AR1 LONG POPJ S 

XX = XX + 1 1 



[ MAPFtxx] D[IOD] DESTIAR] LONG POPJ » 

[ MAPFIxx] DIIOO] DESTIAR] LONG POPJ S 

[ tIAPFIxxl DIIOO] DESTIAR! LONG POPJ « ■ ■• 

I MAPFIxxl DIIODl DESTIAR] LONG POPJ « 

[ riAPFIxxl DllOOl DESTIAR] LONG POPJ * 

[ MAPFIxxl DllOOl DESTIAR] LONG PCPJ * 

I MAPFIxxl DIIDOl DESTIAR] LONG POPJ S 

I MAPFtxx] DllOOl DESTIAR] LONG POPJ S 

C MAPFIxxl DIIOO] DESTIAR! LUC POPJ S 

MAPFIxxl DIIOO] DESTIAR] LONG POPJ « 

MAPFIxxl DIIODl DESTIAR] LONG POPJ $ 

MAPFIxxl DIIODl XSTIARl LONG POPJ « 

MAPFIxxl DIIODl DESTIAR] LONG POPJ « 

MAPFIxxl DIIOO! DESTIAR) LONG POPJ » 



0Z 0138 13060 0102+117003106055+16152365+31+16000 



MAPFIxxl DtlQOl DESTIAR] LONG POPJ » 
MAPFS171 DIIRI t1ASKt3] 
DESTIDtAMEMll POPJ $ 

;Sub-sel 17... set the PI channel a 

;Reset the iritsrfscs- 
FNTRST: START-OUT ALUI01 DESTIIOO] « 



sisnment . 



SLOE March 23. 198+ 21:l+:37 file DSK:F4I0.SLD — of — F+INNF 

0Z 0203 ;Init the interrupt acki-. 

02 020+ 13063 0!07311700310G055+044'SG3S5571417000 STfiRT-OJT D[CGi«T FNTCEV2) DEST [ DEy-flOORESS 3 t 

02 0205 ;5elect secondar/ interface and set its C71D res. to v 

02 0Z0G 1306+ 01073117000000000000100425531+16000 mPFI0] DtLflBEL FNTINT] OESTCIKAHEfW] POPJ * 

02 0207 ;Init the interrupt addr. 

02 0208 

02 0203 ;Interrupts cane here. 

02 0210 130G5 010738170e000e0S54HlG23SG13141Ge00 FNTINTj DtD*«tH2] dfiSKCLEFT] DESTIQ] $ 

02 0211 iGet copy of contents of DID res- 

02 0Z1Z 13068 01065117003106055020352365571416000 STlWT-ajT DICDNST 11 R0TI3S. - 21 fiLUi-D&Ol DESTCIOOI S 

02 0213 ;Clcar the interrupt enable bit. 

02 0214 13667 010731379000283434007G202G07145G000 MAPF[0] DIDtAflEIIll MftSKOl DESTtfW] JUTPEPIGENl S 

02 0215 ;Request a PI (if the assigned channel is not 0). 

02 0216 



SLOE riarch 23. 138+ 21:l+:38 file DSK:FtIO.SLO 



of — F+lWf 



83 0Z17 

33 ezie 

93 0219 
33 8228 
03 0221 
03 0222 
03 0222 
03 0223 
93 0224 
03 0225 
03 0Z2B 
03 0226 
03 0227 
03 0228 
03 0223 
03 0230 
03 0231 
03 0232 
03 0233 
03 0233 
03 0234 
83 0234 
03 0235 
03 0236 
03 0237 
03 0238 
03 0239 
03 0239 
03 0240 
03 0241 
03 0242 
03 0243 
03 0243 
03 0244 
03 0245 
03 0246 
03 0247 
03 0248 
03 0249 
03 0250 
03 02S1 
03 0251 
03 02SZ 
03 02S3 
03 0254 
03 0255 
03 0256 
03 0257 
03 0258 
03 8259 
03 0259 
03 0260 
03 0261 
03 0262 
03 0263 
03 0264 
03 0265 
03 0266 
03 0ZS6 
03 0257 
03 8257 
03 0268 
03 0268 
03 0269 
03 0269 
03 0270 
03 0270 
03 0271 
03 0271 
03 0272 
03 0273 
03 0274 
03 0275 
03 0276 
03 &Z/f 
03 0278 
03 0279 
03 0280 
03 0281 
03 0281 
03 0282 
03 0282 
03 0283 
03 0283 
03 0284 
03 0284 
83 0285 
83 8295 
03 8286 
83 8296 
83 8287 
83 8288 
83 0289 



;INTEf?RlPTfSLE F3 TfiPE UCOOE Ct3WERTED TO F4 



Ucode for KEMCDY or PERTEC forMtter and Df« ta 



controller. 



:TAPe READING PtO WRITING CEDE 
: ft-tEH USEflGE: 





tapes) 



non-data ops 



8 



idle 



;f1APF values 



DISPATCH fflOR. 
;DflTfl PflCKING MODE 
BIT 0: 0=POP-10 COREHXW, 1=INDUSTRY C32-tit 

BIT 1: NRZI Kluge node (to read old CCRm i SCI 

Tiaeout values for NCNTUT and FMNGUT. 

Cop/ of last writ to TP.UC. 

Status at ENDX of tape operation. 

DON'T LSE... Storins into it clobbers IR left ! 

Next nea adr of xfer (STRTX) — durina 

Remaining Mord count in current UD1A (STRTDC) 
Not currently used — Mill be Data Channel FC 
Interrupt state and transfer f lass: 
lb0 = read. Ibl = waiting for formatter to becone 

lb2 = «top interrupt (set with read) 

18-35 CONI bits: 

7b35 = pi assignnent. 10 = interrupt flag. 



4 TP.RS 
2 TP.RC 



2 TP.WF X 2 

4 TP.m ' 4 
1 TP.WC = 1 

5 TP.MR == 5 

3 TP.MIA ■= 3 



;read status (froa fornatter) 

;read control (controller status and un-f ifo'd read data) 



;krite foraatter (send Ctrl bits to foraatter) 

;ttf~ite Mode control reg. 

;urite control reg. 

:give flaster Reset 

;write (load) the CNTMA reg. (count and HA) 



;;MICRX0OE TAPE STATUS BITS RETURtED IN LH (C AFTER HTRD AM) MTWR and 
rlTOP lOTS 

;t1ICFLG— 400000 .-sort FLAG IS BEING RETURNED BY THE niCROCOOe 
;niCECF"2e030a ;EEF SEEM FLAG FROri niCROCOCE 
;HICTPE"10ee0e ;TAPE PARITY ERROR FLAG FROM MICROCODE 
:MICLNE—04e000 ;LENGTH ERROR FLAG FROM MICROCODE 

;;HARDUARE STATUS BIT DEFINITIONS RETURfED IN RIGHT HALF BY HTRS 





1 1 1 1 1 1 t 1 1 




1 1 1 1 


1 1 1 


' ; , , , 


!!!!!!! !0N 




!REU!lRT!BaT!ROY!EOT 
j ! I ! 


!LIN! 


!PRT! ! 



18 



;HDl«LN--00ee40 
;hCUREW-^0000Z0 
;HC*FPT>»000010 
;HDW8OT>'000e04 
; HDWRDi.— 800902 
;HDUEOT—000e01 

;;CONI BITS 



30 31 32 33 34 



;UNIT IS ONLINE 

;UNIT IS REWINDING 

;UNIT IS WRITE PROTECTED 

:UNIT IS AT LOAD POINT 

JuNIT IS READY 

;UNIT IS AT EW) OF TfPE 



!OVR!CTL!FMT! 



CHAN 



iRUN!BSY!BSY! 



iINT! PI 
IFLGi 



IS 



30 31 32 33 



SLX March Z3. 198+ Z1:H:+1 file D3C:F+I0.SL0 — of — F+lSltf 



04 9298 

04 eZ91 

04 029Z 

04 8233 

04 0294 

04 0295 

04 0296 

04 0237 

04 0296 

04 0239 

04 0300 

94 0301 
04 0302 
04 0303 
04 0304 
94 9305 
94 9306 
04 0307 
04 9306 
94 8309 
04 0310 
04 0311 
04 0312 
04 0313 
04 0314 
94 9315 
94 9316 
94 9317 
04 931B 
04 03li 
04 9320 
04 0321 
04 0322 
04 0323 
04 0324 
04 9325 
04 9326 
04 0327 
04 9326 
04 9329 
04 9339 
04 0331 
04 0332 
04 0333 
04 9334 
94 9335 
94>0336 
94n0336 
94II0336 
94i>9336 
04ii«336 
94ne33e 
94B0336 
94B0336 
94n0336 
94iri9336 
94a9336 
94ai0336 
94b9336 

04b9336 
94n9336 
04B0336 
04i»0336 
04i«0336 
04B0336 
04B0336 
04B0336 
04110336 
04K033G 
94JO0336 
04in0336 
04n0336 
94m0336 
94III0336 
94m0336 
04i>9336 
04b9336 
94i>0336 
94n933E 
94b9336 
04>9336 
94*9336 
04B9336 
04a9336 
04a0336 
04*0336 
04>0336 
04«0336 
04a033E 
04 0336 
94 0337 
94 0336 
94 9339 
94 9340 
04 9341 
04m934Z 
04H10342 
04b9342 
04 0343 
04 0344 
04 0345 
04 0346 
04 0347 
94 9348 
94 9349 
94 0350 
04 9351 

04 0353 



97652 010731 17004000001491E46925571457009 

97653 01973117004008901491646925571457090 



97ES4 010731 170040000014916460ZS571457090 
07655 010731 1700409900140164B02S571457900 



07555 01073117004000601401545025571457080 
07657 01073117004000081401646025571457000 



07560 01073117004000001401646025571457909 
07661 01073117994990001401646025571457900 



07662 01073117094000001401646025571457008 

07663 81073117804000801401646025571457000 



07S64 01073117004800001481645825571457800 
07S5S 81073117804000901401646025571457000 



.REPEAT TrPE i 

.opcodE[725] ;T«>E IQTS 

;725 - Obsolete version of read (no Mord count* E »= core adck~es5.) 
DCCDNST 7] DESTIDE'v'-aOR] NORM JUfPITflPERDl i 
DtCWBT 71 OEST[DEV-ftDR] NDRtI JUMPITAPERD] » 



;725 - HTftPE 

DCCQNST 7] DEST[DEV-ftOR] NORM 
DCCONST 7] OESTCDEV-flDRl NORTI 

;727 - READ STflTLS 

DtCONST 7] De5T[Deu-flOR] MOW 
DICONST 7] DEST[DEV-«K) HQRM 

;730 - READ 1 RECORD, STORE UP TO (AC) 
D[CONST 7] OeSTtDev-AORl NORM 
D[COhET 7] DESTIDEV-flORl NORtI 

;731 - WRITE 1 record of E words start 
DtCONST 7] DESTtDEV-fOR] NORH 
DtCONST 7) DESTtDEV-fCRl NORM 

;732 - READ 1 record, store up to E u 
DtCONST 7] DESTtDEV-ftOR] NORM 
DtCONST 71 DESTiDEV-AORl NORM 



jiwtTflPErrri t 

JUWtTfPEMTl S 

JUtftTAPERSl « 
JlWtTAPERSl « 

WORDS STARTIN6 E. 

JtrPtT(¥=ENRl « 

JUnPITflPENR] « 
ins froa CORE LOC IN AC. 
JUrt^tTfiPEWRl S 
JlWITflPEWRl $ 
rds starting at (AC). 

JUrPtTAPERXl % 

JUnPtTAPERXl S 



.REPEAT 1 - WAITS t 
J733 



;These are nerged under one opcode and act like 
fnornal Pt3P-10 I/O instruction* under MAITS- 



:734 



;735 



DtCONST 71 DESTIDEU-AORl NORtI JUHPtTPCDNIl $ 
DtCONST 71 DESTtDEV-ADR] NORfl JUnPtTPCDNIl * 



DtCtMST 71 DESTtOev-AOR] NORfl JlWtTPCONOI * 
DtCOfST 71 DESTIDEV-AORJ fCOl JUPPtTFCONOl S 



DtCONST 71 DESTtDEU-AORl NORfl 
DtCONST 71 DESTtOeu-AORl NORM 



DtCONST 71 KSTtDEV-AORl NORM 
DtCONST 71 DESTtDEV-ADRl NORfl 
];REPEAT 1 - WAITS 



JUfPtTPCNSOl * 
JUtPtTPCNSOl S 



JUflPtTPDATI] 
JUfPtTPOATIl 



1 [ 



.opcodet72Sl txlist 
list 1;TAPE lOTS 



;72S - (fcsolete version of read (no word count* E = core address.) 
DtCONST 71 DESTtDEV-ADR] NORfl JUTPITAPEROl » 
DtCONST 71 DESTtDEV-flORl NORfl JUTPtTAPERDl » 



:726 - MTAPE 

Dia»ET 71 DESTtDEV-ADR] NORfl JUfP t TAPEfIT 1 t 
DtOJKT 71 DESTtDEV-AORl NORM JUTPtTAPEMTl $ 

:727 - READ STATUS 

OCCOfST 7i OESTtOEU-ADRl NORM JUfPtlflPERSl S 
DtCONST 7] DESTIDEV-ADRl NORM JUrPtT(*>ERSl $ 

;730 - READ 1 RECORD, STORE UP TO (AC) WORDS STARTING E. 
DtCONST 71 DESTtDEV-AORl NORM JUflPtTAPENRl $ 
DtCONST 71 DESTtDEV-ADR] NORM JUfPtTAPENR] S 

;731 - WRITE 1 record of E words starting froa CORE LX IN AC. 
DtCONST 71 DESTtDeV-flORl NORM JUfPtTlVEWRl * 
DICCNST 7] DESTIDEV-ADRl NORM JUMPtT(«:WRl % 

;732 - READ 1 record, store up to E words starting at (AC). 
DtCONST 71 DESTIDEV-ADRl NORM JUMPtTAPERXl S 
DtCONST 71 DESTIDEV-ADR] NORM JUMPtTAPERXl t 



.REPEAT 1 - WAITS I 



; These are nerged under one opcode ard act like 
;nor«ial PDP-10 lAl instructions under WAITS. 



;733 



;734 



:735 



;736 



DtCONST 71 DESTtOev-AOR] NORM 
DtCONST 71 DESTtDEV-AORl NORM 



DtCONST 71 DESTtDEV-AORl NORM 
DtCONST 71 DESTtDEV-AORl NORM 



DtCCSIST 7] tXSTICtV-AORl NORM 
DtCONST 7) DESTIDEV-ADRl NORM 



JUMPtTPCONIl $ 
JUMPtTPCONI] » 



JUMPtTPCONOl % 
JUMPtTPCONO) « 



JUMPtTPCNSOl » 
JUMPITPCNSOl S 



DtCONST 71 DESTtDEV-AORl NORM 
DtCO^ST 71 DESTIDEV-ADR] NORM 
1;REPEAT 1 - WAITS 

1;TAPE 



.repeat 1 - TAPEt ILLI0Tt725 7361 1 



JUMPtTPOATIl 
JUnPtTPOATIl 



.RELOC 
t.USEtHILOCl 
t xlist 
list 1 
.REPEAT TBOOT I 

TAPED! : NEOI $ 



;W(CN COtFLICT WOULD ARISE IF EOI IN SAME INSTR 



;RESET the formatter and drive. 

TAPRSTi DtLABEL TWINTl DESTtDtAftJWl t 

KNYCLR: 
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e+ 0353 
34 3350 
04 0361 
04 03G2 
04 0363 
04 0364 
04 0365 
04 0366 
04 03E7 
04 0368 
04 0369 
04 0370 
04 0371 
04 037Z 
04 0372 
04 0373 
04 0374 
04 0375 
04 0376 
04 0377 
04 0377 
04 0378 
04 0379 
04 0380 
04 0381 
04 6382 
04 0383 
04 0384 
04 0385 
04 0366 
04 0367 
04 0388 
04 0363 
04 0330 
04 0331 
04 8332 
04 0333 
04 0394 
04 039S 
04 0336 
04 0337 
S4 S3SS 
04 0339 
04 0400 
04 0401 
04 0402 
04 0403 
04 0404 
04 0405 
04 0406 
04 0407 
04 0406 
04 0403 
04 0410 
04 0411 
04 0412 
04 0413 
04 0414 
04 0415 
04 0416 
04 0417 
04 0418 
04 0419 
04 0420 
04 0421 
04 0422 
04 0423 
04 0423 
04 0424 
04 0424 
04 042S 
04 0425 
04 0426 
04 0427 
04 0428 
04 0423 
04 0430 
04 0431 
04 0432 
04 0433 
04 0434 
04 0435 
04B0436 
04n0436 
04n0436 
04ai0436 

04n0436 
04III0436 
04B0436 
04.0436 
34Bd436 
04H0436 
04i«436 
04m043G 
04n0436 
04ii>0438 
04III0436 
04III0436 

04i«436 
04Bd436 
04i>e436 
04.0436 
04II0436 
04110436 
04II10436 
04ni0436 



KNYRGO: NORH FTSHJIXINITi t 

ilnlt the date channels 
D[O«¥Cn0j ROTii] iViSKilj DESTiARl NOSI t 

;Get the 32-bit «ode flas. 
STflRT-OJT DtflRl R0TC35. - 29.1 DESTtlODl NQRtI « 

;Position it for the harc^4are. 
fWPFtTP.mi DCCONST 01 DESTIQl C-OUT JUTPIlCNYGOfl] « 

;5end coBMtand to formatter. 

;Send a tape-notion coHaand to the foriRatter. Call uith coMund bits 
: (except for FHTR EWSLE and GO) in Q. Clobbers Q. HGLO. AR 
KNYGOfI: START-OUT DlCONSl U R0TI3S. - 26.1 DESTdOD] $ 
;Scnd the FORDflTTEH ENffiLE bit. 
mPFITP.HFl DtCaeT ll ROTI35. - 2E. l flLUtDORQ] DESTCQ] 
PUSHJCFrWBUTl S 

;Add the FTITR EFCL bit to the comnand word. 
;Uait for fORtlATTER NOT BUSY. 
START-OUT DICONST 11 R0T[3S. - 33.1 ALUCDnQl DESTdOOl C-OUT * 

:Set the GO bit to fiitr (except: on RUD. CLEAR the bit !) 
riAPFCTP.UFl START-OUT DICONST 11 ROTtSS. - 33.1 ALUI-DSQl 
DESTdOOl CS50 » 

;Send cowaand Mord again, without GO bit. 
rtAPF[TP.UFl LONG POPJ $ 



FrWBUT: ;Uait for fomatter to be not busy. 

^Return tape status in tCfl; tineout in 164 usee. 
^Duration of loop should be 10 usee, (for TRCHECK). 
. START-IN DtCONST 11 R0TI14.] DEST[AR1 NORM $ 

meuu nAPFiTP.RSi otiooi destiholdi 0900 s ;get status bits. 

0[AR] ALUID-11 0EST[AR1 C550 QeuS<0 JUnPIFTITHNGI C 
DICONST 14.1 ROTILLOAD-ROT] OESTILLOADl C600 ( 
C580 LOOP[.l $ 

;Ua execute this instr. 15. tines, for a 7.5 usee delay. 
START-IN DIMEni RaT[71 CS50 -OBUS<0 JUMPIFrMBWll $ 

; check for 'auSY' 
DtARl DEST[0*AfEmi MKH POPJ t 

;Save ending timeout count (for TRCHECK) 

Frrrwc: specihu-popi t 

NORM PUSHJIKNYRSll $ 

;Blast the formatter. 
DrCt^ST 42} RGTI^.l DESTIQl S'ECCFtJ— PtFl NECI t 

;Return error code for 'hung fntr' and abort. 

NCNTUT: ;Uait for TP CNT GO to be off. 

;Return tape status in FCfl: tineout in 164 nsec. 

;Duration of loop should be 10 usee, (for TRCHECK). 
NCNTWl: HAPFITP.RCl DIIHJ] DESTIHOLDI C800 $ ;GET STATUS BITS. 
DIARl ALUID-11 DESTtftR] C550 OeuS<0 POPJ S 

:Exit if we time out — probably just a short record. 
DICONST 14.1 ROTILLOAO-ROTl CCSTILLQADl C6e0 $ 
C500 LOOPI.l » 

;Ue execute this instr. 15. tines, for a 7.5 usee delay. 
START-IN DIMEU] RQTI19. 1 C550 OBUS<0 JUHPINCNTWl) S 

;check for not TP CNT GO 
DIARl DESTID«»1Eflll NORM POPJ » 

;Save ending tineout count (for TROCCK) 



-•INITIALIZE DATS CHANNEL 

XINIT: START-OUT « 

ttflPFITP.HRl DICONST 8.1 ROT I LLQAD-ROT 1 DESTIUOADl NDRH t 

;Give TP MR 
START-OUT ALUI01 DESTtlOOl CG00 $ 

;Load into entna (the COUNT and HA registers) 
MAPFITP.UHAl ST(WT-OUT DIMASK 12.1 R0TI3S. - 13.1 DESTIIXl CE00 



ill 



;Load cntna again — since COUNT is currently 0, this 
; force BUF CNT to be 0. But, ue put -1 into COUNT this 

; time. i*ich, with BUF CNT = 0, will nal<e BUF CNT load 

; properly when STARTDC loads cntna. 
MfiPFlTP.WtlAl START-OUT DICONST 21 DESTIIODl C600 S 

;Sct MBUSY 
MAPFITP.HCl CSS0 LOOPI.l S 

;Uait for a few usee. This clears nen rq. 
START -OUT ALUiei DESTIIODl NORM « 

;Clr neusY 
ttAPFITP.WCl CS0e ALUI01 DESTIDiflnEnZl POPJ $ 

;Hero out copy of TP.UC contents. 



13070 540731 170000060S541B1E232S420416000 

13071 01073117800880000000100365531416000 

13072 010241 170000K05541B11E365431416000 

13073 01024117003106055416152365431416000 

13074 01073117020006055416162425411416000 

13075 01073117000000001416162225431456000 

13076 01073137000006054020362365031416000 

13077 01073117003186854156152355431415008 
13100 01073017040000081400162025551456000 



1 I 

TAPEDI: NEOI » 



;UHEN CONFLICT WOULD ARISE IF EOI IN SAHE INSTR 



;RESET the fornatter and drive. 



TAPRST: 



DILA8EL TAPINTl OEST I OtATETB 1 $ 

ALUI01 DESTID^Aftfl?) NORM $ 
KNYCLRi 
KNYRSl: ST«?T-OUT ALUI0] DESTIIODl $ 

;Turn off TDRnATTER ENAS-E' 

flAPFITP.UFl LONG POPJ S 

; KNYRGO — Called to start tape motion on reads. 
KNYRGO: NDRH PUSHJIDCINITl i 

;Init the data channel. 
DID»AMEfl01 ROTIll mSKUl DESTIARl NORM $ 

;Get the 32-bit node flag. 
START-OUT DIARl R0TI35. - 23.1 DESTIIOOj NORR S 

;Position it for the hardware. 
MAPFITP.IJIl DICaiST 01 DESTKai C-OUT JUTPIKNYGOftl $ 
;Send connand to fornatter. 

;5end a tape-notion connand to the formatter. Call with connand bits 
; (except for FMTR ENABLE and GO) in Q. Clobbers Q, h«LD, AR 

;SGnd the FORMATTER ENABLE bit. 
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of 



rnuNF 



8+1110436 
041.0436 
04010435 
841110436 
041D0436 
04010436 
04010436 
04ni0436 
04m0436 
040104 3S 
04010436 
04oi8436 
04010436 
04010436 
04010436 
04010436 
04n0436 
04i>e436 
04B0436 
04m0436 
04in0436 
e4n0436 
04>i0436 
0t(b0t'3d 
04010435 
04010436 
04010436 
04010436 
04010436 
04010436 
04010436 
04010436 
04in0436 
04010436 
04010436 
04010436 
04010436 
04o«436 
040*436 
04010436 
04(110436 
04=0436 
04010436 
84010436 
04010436 

wTBtoTao 

84010436 
04o«436 
04018436 
84010436 
04010436 
04010436 
04010436 
84010436 
04010436 
04010436 
04010436 
OtbWtSo 
04010436 
04 010436 
04010436 

04III0436 
84010436 

04 0436 

04 0437 

04 0438 

04 0439 

04 0440 

04 0441 

04 0441 

04 8442 

04 0443 

04 0444 

04 0444 

04 8445 

84 0446 

84 0447 

84 044B 

04 0449 

04 0450 

04 0451 

04 0452 

04 0453 

84 8454 

84 0455 

04 0455 

04 0456 

84 0457 

84 0457 

04 045B 

84 0459 

04 8468 

9t 046Z 
04 8453 

84 0464 
04 0465 
04 0466 
04 0466 

84 0468 

wT OtoS 
04 0478 
04 0471 
04 0472 
84 0473 
94 9474 
04 0475 



13104 81855117823105054040352365561416800 



13105 01073117020836855415152425411416000 



13186 81873137003086054340362365571415000 
13107 81073117040006055416150355711416000 

13110 01072120400000001416152025421456000 

13111 01873117801005054003400365551417000 

13112 01073107000026225416162025421455000 

13113 0187318060302621617615202S461556000 

13114 01073117000006055416102425431416000 

13115 81873117000306055416162365431416000 

13116 01873117000026157415162225431456080 

13117 54873317080306054750552325560416800 



13120 81073117020006055416150365711416000 

13121 01072128400006055416162425421416000 



13122 81073117001006054003400365551417000 

13123 81873187800026247416152825421456800 



1312* 01073100403026240476162025461556000 
13125 81873117800006855415182425431416800 



13126 010731170031060SS416162365431416000 

13127 01073117051006054882800365571417000 



13138 01024117003106055416152365411415000 
13131 01873117033186054543152364711415000 



;Set the GO bit to fntr (excspt: on RWO, 
nfiPFtTP.WFl START-CUT B[CONST 1] R0T[35. - 
DEST[IDD1 esse $ 



CLEAR the bit !) 
33.1 flLUi-DS.QJ 



;5er!d ccraajand ^or 



asai 



r,n k i t - 



riAPFITP.WF] LONG PDPJ S 



13132 8107311783310G8554085523655S1415000 

13133 01873107010026267416162025421455000 

13134 01824117003106055416152365431416000 

13135 81024117010006055415104425411416000 



FMN3WT 



:Uait for foraiatter to be not busy. 
;Return tape status ir. flEfl; timeout in 154 msec. 
;Duration of loop should be 10 usee, (for TRCHECK) . 
START-IN DICONST 1) R0T[14.] DESTtflR] TORII $ 
F«MBU1: ni*F[TP.RSl D[IQD] D£ST(H0LD1 CEC3-$.;SeT STATUS BITS. 
DCftR] f<LUtD-l) DESTCflRl C550 Dei»:<e JUnPCFIITHNGl $ 
OtCONST 14.1 ROTILLOftD-ROTl OESTlLLDAOl C500 » 
C500 LOOP[.l $ 

;Ue execute this instr. 15. tioies, for a 7.5 usee delay. 
STflRT-IN D[rEn] RCTI73 C550 -CSUS<8 JUnPEFMNBUll S 

; check for 'BLSV 
DEAR] DESTEDSAnEnil NORM POPJ $ 

;Save endins tioicout count (for TRCHECK) 
FMTHNG: SPECEMU-POPl $ 

NORM PUSaiEKNYRSll $ 

;Blost the foroiatter. 
DICONST 421 ROT130.1 DESTEACl SPECIMU-POPl 
;Return error code for 'hung foitr' 



NEQI % 
and abort. 



NCNTUT: ;Wait for TP CNT GO to be off. 

;Return tape status in MEM; tioieout in 164 oisec. 

;Duration of loop should be 10 usee, (for TRCHECK). 
NCNTWl: MfiPFtTP.PCl DdOOl DESTIHOLDl CS90 S ;GET STATUS BITS. 
DEAR] ALUED-U DESTEAR] CS50 OBUS<0 POPJ $ 

;Exit if we tioie out — probably just a short record. 
DECONST 14.1 ROTILLOAD-ROTl DeSTELLOAD] CG80 $ 
C500 LDOPE.l $ 

;tJe execute this instr. 15. tiaies, for a 7.5 usee delay. 
START-IN DErEfl] ROTEIS.] CSS0 CBUSO JUtlPCNCNTWll S 

;check for not TP CNT GO 
DEAR] OESTEDiAMEml ICRM POPJ S 

;Save endins tii«eout count (for TRCHECK) 



.-INITIPS-I2E DATA D^y#£L 

DCINIT: START-OUT $ 

MAPFETP.MRl DECONST 8.1 ROT I LLOAD-ROT 1 DESTELLOAD] NORM » 

:Give TP MR 
START-OUT «.U[0] DESTEIOO] C600 $ 

;Load into cntna (the COUNT wid MA registers) 
MAPFETP.WMAl START-OUT DIMASK 12.) R0TE3S. - 13.1 DESTEIXl C600 



$ 
will 



;Load entoia asain — since COUNT is currently 8, this 
; force BUF CNT to be 8. But, ue put -1 into COUNT this 

; tioie, which, with BUF CNT =■ 8, will aake BUF CNT load 

: properly when STARTDC loads cntoia. 
MAPFETP.WMAl START-OUT DECONST 21 OESTEIODl C600 $ 

;Sct MBUSY 
MftPFETP.HCJ C550 LOOPE.l % 

;Wait for a few usee. This clears mem rq. 
START-mjT ALUE01 DESTEIXl NORM $ 

.•Clr MBUSY 
mPFETP.WCl C500 ALUI01 DeSTED*AftM21 POPJ * 

;Hero out copy of TP.IC contents. 



!;THrT 



.REPEAT TAPE E 

;STAfiT DATA CHANNEL to write or read a record. Tr»isfer up to C(IR-AOR) 
words; 

; starting address is in A-MEME4]. 

; This routine is for interrupt type transfers - does not wait for 
; transfer to co«*)lete, but enables for not FfRT BSY wid not TP CNT GO. 



INT-STARTX: 

DEIRl MASKE18.1 NORM DEST[D*A(tMSl PUSHJEKGOl S 

;Set word count. (Better not be zero.) 
MAPFE01 DECONST 121 R0TE12.1 DeSTEQl NORM » 

;MAPF[8] FOR DCGO. SETUP BITS FOR -fMTR BSY AND -TP CNT GO. 
START-OUT 0ED*AHEH21 ALUEDORQJ DESTEIOO] C680 JUTPEUCPOPJl $ 

;Enable for -FMTR BSY and -TP CNT GO. 



:START DATA CHANNEL to write or read a record. Trwisfer up to C(IR-ADR) 

words; 

; starting address is in A~MEME4]. 
; This is used for non-interrupt transfers. Uaits for transfer 

coBiplet ion. 

STRTEX: DEIRl fWSKElB. ] PORM iSST £ DtATEflS J S 
; Initialize word count 
DELIT 400001 DESTEDtAMEMl] NORM S 

;Initialize tio«-out count (for NCNTUT and FHWHT) 
STDCl: nAPFE81 C500 PUSHJEDCGO] t 

;start xfer — MAPF is relevant if Me looped back here on READ 

MAPFlei START-IN DED^AfEMll DESTEAR] C600 PUSHJ E NCNTWl 1 t 

:Wait for TP CNT GO to be off (continue with current tiBGOut 
count ) 

;MAPf is relevant if we case frooi DCGUR below. 
DIDtAnEM7] C550 -OBUS<0 JUtflSTDCll * 

;Junp if this is a WRITE operation. 
START-OUT DEAR] C550 -OBUS<0 JUMPISTDCll » 

;REAO op, so set MEM RQ to store last word. 

;JuRip unless we tined out waiting for ENOX of last COUNT. 
UCOONE: MAPFEai START-IN DEDSAttMll DESTEAR] C680 JUrPEFrWBWl] $ 



;The MAPF sets MEM RO if we have fallen in fro« previous instr. 
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m e^se 

04 04B1 
S4 0+82 
84 8483 
04 0484 
04 0485 
04 04ffi 
04 0487 
04 0486 
04 0489 
04 0490 
04 0491 
04 0432 
04 0493 
04 0494 
04 0495 
04 0496 
04 0497 
04 0498 
04 9499 
04 0500 
04 9501 
04 0502 
04 0503 
04 8504 
04 0504 
04 0506 
04 0506 
04 0507 
04 0506 
04 0508 
04 0510 
04 9511 
04 0512 
04 0513 
04 9514 
04 0515 
04 0516 
04 0516 
04 9517 
04 0518 
04 9513 
04 9520 
04 9521 
04 95Z2 
04 9523 
04 9524 
04 052S 
04 0526 
04 0527 
04 9526 
04 0529 
04 0530 
04 0531 
04 0532 
04 0533 
04 0534 
04 053S 
04 0535 

84 esse 

04 9537 
04 0536 
04 9539 
04 0549 
04 0541 
04 0542 
94 9543 
04 9544 
94 9545 
94 0546 
04 0547 
94 9548 
94 9549 
94 0550 
04 0551 
04 0552 
04 0553 
04 0554 
94 0555 
04 KSB 
94 9556 
94 9557 
94 9558 
04 0559 
04 0560 
04 0561 
04 0562 
94 0563 
94 0564 
04 0565 
04 0566 
94 aSS7 
94 0568 
94 0569 
04 0570 
04 0571 
04 0572 
04 9573 
04 0574 
04 0S7S 
04 0676 
04 8577 
04 9578 
04 0579 
04 0588 
04 9581 
04 8582 
04 0583 



DCGUR: 



;jLiRip if it is less than 1409 
DCLIT 1466] DESTtQ flRl NORH $ 

:It is -.ot. Use 1430 instead. 
C[l1Eni fSLU[D-Q! BEST[D%arEf15; NORM S 

;Decre!nent rcnaining WC by amount of current UC- 
D[D3;flf1EM41 DESKHOLD) SHORT S 

:Get current starting adr 
D[MEM] fiLUtD+Ql DESTtD*AnEn4] NORM S 

;Ir.creiBertt it bx current US. 
D[D«tf1EM01 esse OBIIS<0 JLt1P[. + 2] S 

;Are we in 32-bit ircde ? Jump if so. 
DIfiRl R0T[2) ftLULD+01 DESTCAR] MORM.JUnPC. + 2) * 

;Form byte count (=S»word count). 
D[flR) R0TI2] flLUCOl DESTCflR) NORM $ 

;Forai byte count (=4«word count). 
DEftRl fiLU[D-l! DESKAR] NORM S 

^Adjust count to be right for hd»*". 
DCARl R0T[35. - 13.] OESTEQ] NORM S 

;Ali9n count at bit 13. 
START-OUT DIMEM] nASKt21.] ALUtDORQ) DESTIIQDl NORM $ 

:Include mea addr and load into COUNT, MA 

;Also sets BUF OUT to (if IN) or 5 Cif OUT)— this 

; depends on COUNT not =0 and BUF CNT not = 4 or S 
MAPFtTP.WriA] DtCONST 21 CeST[D*flMEM2] C600 S 

;Remember what ue are about to set bits in TP.UC to so Me 

; can set the enable bits in TP.WC later. 
START-OUT D[CONST 2] DESTIIOO] €600 * 

;Set M BUSY 
MAPF[ TP.WC] START-OUT CB00 $ 

;SEt CNT GO 
MAPF!131 D[D*flnEM7] CS0e OBUS<0 POPJ % 

;Return if this is a REflO op. 
START-OUT D[D^AftMSl C55e -QBUS=0 POPJ $ 

;Set MEM RQ to fetch first word. 

;Retu.-n unless this is the last XMA In the record. 
MAPF[0J DtCONST 12] 0EST[D«»1En21 C600 » 

;Rembeinber ti^at ue set TP.UC to so Me can set enable bits 



; later. 
START-OJT DtCONST !2] DeSTtlOD] NORM « 
;Last one. Sat TP ENS LftST BYTE 
UCPOPJ: MAPFCTP.UC] CB80 POPJ S 

wax»Ei:SPEC[Mu-pap] junptwcooNE) » 



M SUSY 



:Routine to gather ending status for 
;Returns status * ending MA in Q 



! operation. 



ITRCHK: START-IN NORM $ 

HAPFITP.RS] DtlOO] CeSTtHOLD] C800 JUnPtTRCHKB] i 
;Get tape status in MEM and go assenblc status in Q. 

;Here to do the data xfer for a non- interrupt read operation. 
TRP2: D[D*flnEM7] DESTEQ] SHIFT S 
;SET READ FLAG IN A-MEM[7] 
DtCONST 1] ROTtaS.] ALUtDORQ] DESTID»ArEM7] NORM PUSHJtSTRTDCl » 



;Flag op. as 
JUMPITRCHKBl $ 



a READ, start the data channel 



TRCHECK: 



TRCHKB; 



TRDONE: 



PJSHJ[FMP«WT] S 

;wait for formatter not busy. 
ALU[0] CCSTCO] l«3RM $ 

;Assune no errors. 
DtMEMl R0T[32.1 C5S0 -aeUS<0 PUSHJITRERRl S 

;check for hard error status. 
DtMEM] R0TI33.] C5S0 -OBUS<0 PUSHJETREDF) $ 

Jcheck for EOF seen by formatiir 
START- IN NORM $ 
MAPFITP.RCJ START-IN DtlDO] PESTCARl C599 « 

;Get data channel status bits. 
MAPFISl DtlOD] MflSKE21.] ALUtlXRO) DESTtQ OVWEfIS] C809 t 

^Include ending MA value in status info. 
D[f«] ROTtig. J C550 -OBUS<0 JUtPCTPMAQK] $ 

;lf TP CNT GO is off, 
DCAR] R0TI24.] HASK[31 ALUtD-1] CSSO -OBUS=e JUtPtTPDAOKI * 

; or if BUT CNT is not -If then rig^it no. of Mords Merc 

ALUCO-1] DESTtQ 0«l*E«5) NORM t 

;OtherMise, 1 extra Mord Mas stored, so decrement ending MA. 



;Note: He no longer support KR21 kludge mode, and no looser 
i clear part of read buffer that no data Mas read into. 



TPMAOK: 



TREDF: 
TRERR: 



DIOtAMEHS] DESTtQ] NORM POPJ » 

;Recover ending status and return. 

DtCONST 60] ROTt30.1 ALUtDORQ] DESTtQ] 
DtCONST 50] RDTtae. ] «.UtOORQ] DESTtQ] 
;Fla9 hard read error to progm. 



►OBI POPJ $ 

SDRP. POPJ % 



;aPCODE 72S — MTfiPE FUNCTIONS. 

:Set/Clear NRZI kludge mode used to be fns 60/61. 



TAPEMT: DtIR] MASK tl8. 1 DESTtQ] NORM 
.repeat Maitsf ix I 

CONDIUSER] PUSHJICKIOTlil 
];. repeat Maitsfix 
$ 

DtCONST 69] ALUtOttQ] CDNOtOBUS^^O] JUnPtMUUO] C550 t 

DtCraeT 61] ALUIDttQ] COM3IQBUS=0] JUTPtMUUD] C550 % 
;N0 LONGER SUPPORT NR2I MODE 

NORM PUSHJt. + 2] S 

NEDI $ ;HOUR HACK TRYING TO PROGRAH! 



04 9585 



DtCtlBT 9] ALUtDitQ] CDNOtOeUS=e) JUTPtTAPERW] C559 $ 



SLOE March 23. 1984 21:15:22 fil. DSK:F4ID.SL0 



of 



W 8531 

34 8SS2 

04 0S93 

84 8594 

84 0595 

84 0596 

84 8597 

84 8597 

84 esse 

84 8599 
84 8688 
84 8681 
84 0682 
84 0683 
84 8684 
84 0685 
84 0685 
04 0686 
84 0607 
04 0688 
04 0689 
84 0609 
04 0618 
04B0611 
04in0611 
04m0811 
04me611 
84i>e611 

e4«,9eij 

e4me611 
8408611 

04B0611 

04i>0611 
04*0611 
0400611 
0400611 
0400611 
0400611 
04010611 
04n0611 
0400611 
04o<9oll 
04O0611 
04O0611 
04o8611 
8400611 
0400611 
8400611 
O4in0611 
84o8611 
84o8611 
8400611 
8400611 
8408611 
84O0611 
84O0611 
84O0611 
04O0611 
04O0611 
e4n06n 
8400611 
8400611 
04O0611 
0400611 
04O0611 
04O0611 
0400611 
0400611 
04D0611 
04O0611 
0400611 
84d8611 
84O0611 
0400611 

04B0611 

0400611 
04x0611 
04O0611 
04O0611 
0400611 
04O0611 
0400611 
84O06U 
04O0611 
8400611 
8400611 
04O0611 
04O0611 
8400611 
04O0611 
04oeeil 
8400611 
04O0611 
8408611 
04O0611 

04O0611 

04O0611 
0400611 
04O0611 
841110611 
04in0611 
04m0611 
0400611 
04O0611 
04O0611 
04O0611 
04o8611 
84O0611 
6408611 
04m0611 



TUREDF! 



TERftSl 

$ 



D[CONST 511 ALU[D)tQ] a»O[aBUS=0] JUKPITPSETDnP] C550 $ 

DtKAHEM?] mSKiS] -O81S=0 C550 JUHPEIHT-HTJ $ 

;Jl«> IF THIS IS INTERRUPT VERSION OF INSTRUCTION. 
«.U[8] DE5T[D*fl«EM4) NORM PUSHJ[TRD€aC] $ 

:Uait for op. to finish and set endins status in Q. 

; The in fl-nEMt41 prevents TRCHECK froo clearing read buf ! 

SLuiQj DESTEfCJ SFECEhll-POPj HEQI % 

;Return status to caller in his PC (saoe as READ) 



;URITE AN ENDX OF FILE atPE WKK) 

D[a»ST 1) R0TI3S. - Za.l DESTtQl NORM S 

;Get im CURITE EOF) cod bit for foroattcr 

DICONST 1] RQT[3S. - 22.1 flLUCDORQ] DESTIHDLD) NORM JUHPIKNYHTP] 



;Add kRT CnO bit and start coomand. 



13136 01073117000000001404512225771456000 

13137 8167^17808006054382552365571410086 
13140 81063117003100001415152026111456000 



13141 01073117000006055484512365771416000 

13142 01073117000000010000102365531415000 

13143 01073117000000001415162225411456000 

13144 01073137003026241416162226051456000 

13145 01073100600025307416162326361456800 
13145 01073100603125307416152025421456000 

13147 81873137003325217416162026051456000 

13150 81873020200000001416150025251456000 

13151 01161100400000000143152825551455000 

13152 31073037000600000300152365531416000 

13153 01162117000006055415112365471516000 

13154 01073117000006055415150366237416000 

13155 01060117300036055415113365471516308 

13156 01873100400026341416162026021456000 

13157 01060137000026342055152025431456000 
13160 01073137000006054055152365431415808 

13151 81072137000086855415162365431415300 

13152 31373017300006054556162365431415000 

13153 010631170031060S548S3S236547151S000 

13154 01073117030036055400504365551415000 

13155 31073117003106055430552365551416000 
13166 0107311701310605541B162365411416000 
13157 01073180530006055416162425351416806 

13170 01073100003136055415152426261416060 

13171 01073117800606055402504365551416000 



TERASE: DCCONST 31 R0TI3S. - 29.] DESTEQ) NORM JUMPITERASll t 

.-ERASE A 3.75' GAP ON THE TAPE (get UFM and ERASE bits for 
foroatter ) 

] [ 

;STfRT DATA CHANNEL to write or read a record. Transfer up to CCIR-AOR) 
Mords; 

; starting address is in A-MEn[4]. 

; This routine is for interrupt type transfers - does not wait for 
; transfer to complete, but enables for not FMRT BSY and not TP CNT GO. 



INT-STARTK: 

DtlRl MASKI18.] NORM DESTCOtAMEMS] PUSHJ[DCG01 $ 

;5et Mord count. (Better not be zero.) 
HAPFi3j CiCCNST 12] R0T[12.j OESTta] MKH $ 

;nAPF[0] FOR DCGO. SETUP BITS FOR -FMTR BSY AND -TP CNT GO. 
START-OUT D[C)»AnEM21 ALUCDORQl DESTtlODl C600 JUMPCWCPOPJl S 

;Enable for -FMTR BSY and -TP CNT GO. 



;STrS?T DATA CnrnfjEL to write or rsi-ad a record. Transfer up to CCIR-rCR) 

Mords; 

; starting address is in A-MEM[4]. 
; This is used for non- interrupt transfers. Uaits for transfer 

coRiplet ion. 

STRTIX: DCIR] MASKIlB.l NORM DEST I D*AMEM5 I * 
;Initialize word count 
D[LIT 40000] DESTtDtftTEni] ICRM $ 

sinitialize timeout count (for NCNTUT and FMNBUT) 
STDCl: MAPF[01 CS00 PUSHJIDCGOl * 

;start xfer — MAPF is relevant if Me looped back here on READ 

MAPFI0) START-IN OIOtAnEMl) OeSTCAR] C600 PUSHJCNCNTUl) « 

;Wait for TP CNT GO to be off (continue with current tioeout 
count ) 

:nAPF is relevant if ue caoe froo OCCUR below. 
D[D*AMEn7] C5S0 -DBLIS<0 JUMPtSTDCl] » 

;Juop if this is a URITE operation. 
START-(XJT DIARl C550 -OBUS<0 JLMPCSTDCll $ 

:REAO op, so set fEM RQ to store last word. 

;Jurnp unless we timed out waiting for ENDX of last COUNT. 
WCOCNE: MAPF[0) START-IN DCDSAMEml DESTIARl 0606 JUnPIFMNBWl) $ 

;Enter FMNBWT with the tioeout count left froo NCNTWT. 

;The MAPF sets MEM RQ if we have fallen in froo previous instr. 



XGO: D[DSiAnEM51 DEST[Q AR HOLD) C550 Q8US=0 JUMPtWCDONEll $ 

;(3Ct remaining word count. If =0, we are done. 
D[CONST 141 ROT[B] ALU[Q-D] C550 OSUS<0 JUnPCDCGll $ 

;Ju«p if it is less than 1406 
OILIT 1400] DESTIQ ARl NORM S 

;It is not. Use 1490 instead. 
KGl: OrMEMl ALU[D-Q1 DEST [ DSATEMS 1 NORM S 

;Decrement remaining UC by aoount of current HC. 
DID:*ftHEI141 DEST[HOLD] SHORT t 

;(jet current starting adr 
DIMEM] ALUtD+Q] DEST [ DStfKIErM ] NORM % 

:Increment it by current UC. 
Dm*ArEM01 C550 OBUS<0 JUflPt . + 21 » 

;Are we in 32-bit oode ? JuKp if so. 
D[AR1 R0T[2) ALUID+iai OESTIARl NORM JUMPC. + 2) $ 

;Foro byte count (=5*word count). 
0[AR1 R0TI21 ALULDl CESTIARl NORM t 

;Forin byte count (=4*word count). 
D[AR] ALUID-n DESTIAR] NORM * 

jAdjust count to be right for hdwr. 
DCARl R0TI35. - 13.1 DEST[Q1 NORM $ 

;Align count at bit 13. 
START-OUT OtrEMl MASKCZl.] ALUtOlDRQ) OESTIIOOl NORM S 

;Include oem addr and load into COUNT, Mh 

;Also sets BUF CNT to (if IN) or 5 (if OUT)— this 

; depends on COUNT not =0 and BUF CNT not = 4 or 5 
MAPFITP.UMfl] DtCONST 2] DESTtD*AMEM21 CG06 $ 

;Reiaember what we are about to set bits in TP.UC to so we 

; can set the enable bits in TP.UC later. 
START-OUT D[CONST 21 DESTdOO) C600 » 

:Set M BUSY 
MAPFITP.UCl START -OUT CG06 * 

;Set CNT GO 
MAPFtlSl 0[0»Af1EM71 CS00 DBUS<0 POPJ t 

.•Return if this is a READ op. 
DCGWR: START-OUT D[DS;ftMEM51 C550 -OBUS=0 POPJ $ 

;Set MEM RQ to fetch first word. 

;Return unless this is the last UCMA in the record. 
MAPF[01 DICONST 12) DEST [ D*AnEn2 1 C606 » 



ji^eooeoDer wnax we sex 



r.HL, xo so we can sex enaoie Dixs 



SLOE March 23. 1384 ZlilSsSe file STRING: 



e^naeii 

84190611 
e4m8611 
e4ne611 
e4in0611 

e4i<ie6ii 

84ne611 
S4ae811 

e4iieeii 
e4Be6ii 
e4Be6ii 
e4iie6ii 

e4ne611 

04iiieeii 

04010611 
04B0611 
04n0611 
04ne611 
04110611 
0410611 
04B0611 
04aQ611 
04>0611 
04iiie611 
04010611 
04K0611 
04n0611 
04III0611 
04m0611 
04110611 
04>0611 
04III0611 
04a0611 
04B0611 
04Q0G11 
04K0611 
04110611 
040.0611 
04010611 

04B06U 
04!-0811 

04010611 
04a0611 
04010611 
04o>a611 
04010611 
04o>0611 
04B06U 
04010611 
04o>0eil 
04Be611 
04m6611 
04010611 
e4ai0611 
04OI06U 
04*0611 
04B0611 
04U0SU 
04 0611 
04 061Z 
04 0613 
04 0614 
04 0615 
04 0616 
04 0617 
04 0618 
04 061S 
04 0G20 
04 06Z1 
04 06Z2 
04 0623 
04 0624 
04 06ZS 
3^ 8GZG 
04 0627 
04 0628 
04 0629 
04 0630 
04 0631 
04 0631 
04 0632 
04 9633 
04 0634 
04 0635 
04 0636 
04 0637 
04 0638 
04 0639 
04 0633 
04 0640 
04 0541 
04 0642 
04 0643 
04 0643 
04 0644 
04 0611 
04 0612 
04 0613 
04 0614 
04 0615 
04 061B 
04 0617 
04 0618 
04 0619 
04 0620 
04 0621 
04 0622 
04 0623 
04 0624 



13174 81073117000325317416162025431456003 



13175 01073117003006055415162365431416000 
1317S 01073117040800001415150025711456000 



13177 01073817000006055415162366377416000 

13200 01063117000026303060316225571456000 

13201 01073117000000001415152025431456000 

13202 01073117000026215416162225431456000 

13203 01024017000006055416162365431416000 

13204 01073100600000001016162225461556080 

13205 010?310060000e0ei03515222S4615S60ee 

13206 81873117003006055415162365431416000 

13207 01073137023006055416162365711416000 

13210 01063017030006055405312365711416000 

13211 01073188600008000476162025421458000 

13212 81872100800800000600762025421456080 

13213 01021017000006055416112365431416000 



13214 01073017088886055416162426271416000 



13215 01063017000006054754162425571416000 

13216 010630170000060547521S2425571416800 



13217 0107301240000000140456222577145G000 

13220 81866100200810211414162025561456080 

13221 01065100200018211414362825561456880 

13222 81073117888826451416162225431456880 

13223 540731I700000605541B152325420416000 

13224 01866100208880081400162025561456000 

13225 01066100200000001400362225561455000 

13226 01066100200000801401362225561456000 

13227 81866100200080081401562225561456000 

13230 01066100200000001482752225561455888 

13231 81066100208000001412152025561456000 

13232 01866188200008881412362825561456008 

13233 01073100088000001400762026361456000 

13234 0102411700002640S41E110225431456080 



13235 54023317000306055415152325420416000 



13236 01073017000006054160362365571416008 

13237 010631170000000003203S002S571456000 



13240 01073017000026476140762025571456000 



F41Mr 

wcD(WEi:SPEC[nu-POP) JUMPEwnxac] s 



;Rcut;r.E to satSer ending ststus fcr a taps speratisn. 
;Returns status + end ins HA in Q 

ITRCHK: STflRT-IN NOai S 

MflPFiTP.HSl DIIODl DeSTtHOLOl C808 JLWETRCHKB3 « 
;Gat tEp« status in MEJI and 9c asseable status in G. 

;Here to do the data xfer for a non- interrupt read operation. 
TRPZ: DlDidlEmi DESTEQS SHORT S 
:5ET REM) FLAG IN ft-rEn[7] 
DICQNST 1] R0T[35.] flLUCOCKQ] DEST t D*flfEn7 ) NORtI PUSHJCSTRTX] « 

;Fla9 op. as a R£^. start the data channel 
JUMP[TRCHKB1 $ 

TRCHEDC: 

PUSHJtFPteWTl » 

;Mait for formatter not busy. 
TRCHK8: M.U(01 OeSTCQl NCRfl % 

;P(ssuBe no errors. 
D[nEH] R0T[32. ] C550 -OBUS<0 PUSHJITRERRl S 

;check for hard error status. 
Dtrtrt] R0TC33.] C550 -OBUS<0 PUSHJITREQFl t 

;check for EOF seen by formatter 
TROONE: STflRT-IN NORM » 

tWPFtTP.RCI START-IN DIIOOl DESTCAR] 0608 « 

;Get data channel status bits. 
nAPF[3) DtlOO] WSK[21.) flLU[DORQ] DEST[Q DtAMEHS] C880 * 

;Include endins MA value in status info. 
D(AR] R0T(19.1 C558 -OeuS<8 JUWtTPMfOCl S 

;If TP CNT GO is off. 
DIARl R0TC24.1 MASKISl ALUtO-l) 0558 -OeUS=« JUfPCTPMAQK] S 

; or if 8UF CNT is not =1. then right no. of words were 



stored. 



ALU[Q-n DEST(0 DtAMEMS] NORM $ 

;OtherMisE. 1 extra Mord uas stored. 



so decreoient ending MA. 



;Note; we no longer support fiRZI kludge oKide. and no longer 
; clear pgrt of re^ buffer that no data «Jas read into- 

TPHAOK: DtD*ftHEM51 DESTIQ] NORM POPJ $ 

;Recover ending status and return. 

TREOF: D[CONST 681 ROTC30.1 ALU[D0RQ1 DEST[Q1 NORM POPJ * 
TRERR: OtCONST 501 RQTI38. 1 ALUIDORQl DESTCQ] NORM POPJ $ 
;Flag hard read error to proga. 

jOPCOOE 7Z6 — MTAPE FUNCTIONS. 

.-Set/Clear NRZI kludge mode used to be fns 60/61. 



TAPEMT: DtlRl MASK [18.1 DEST[01 NORM 
.repeat waitsfix [ 

CONDIUSERl PUSHJCOCIOTUl 
];[ 

C0I«)ll5ER1 PLSKjrCKIuTul 
1. repeat waitsfix 
S 

DCCONST 60] ALU[D»Q1 CQND[OaiS=01 JUtPtMUUOl C550 $ 
□ [CONST 611 ALU[Dltai CONO[OBUS=01 JLrP[MUU01 C550 $ 

;N0 LONGER SUPPORT M?ZI MODE 
HORn PUSHJI. + 21 t 
NEOI t :HDWR HACK TRYING TO PROGRAM! 



DtCONST 01 ALU[D«C11 COND[OeuS=01 
DtCQNST 11 ALUIDsQl COND[O8US=01 
DICQNST 51 ALUtDaQl CaND[OBUS=01 
D[CONST 61 ALUrOttOl COND[GBLB=0] 
D[CONST 131 ALU[D»Q1 COND[OajS=0 
D[CCNST 50] ALU[Cj>Q] COND[O8US=0 
D[C0NST 51] ALU[13eQ] COND[aeuS=0 



JUrf[TAPERUl C550 t 
PUSHJ[TURE0F1 C550 $ 
PUSHJ[TAPEFR1 C550 » 
PUSai[TflPEBRl C550 $ 
1 PUSHJ[TERASE] C550 % 
1 JLW[TPSETIM)1 C550 % 
1 JUnPITPSETOnPl C550 t 



0[DtAMEM7] MASKI31 -CeJS=0 C550 JUMPIINT-MTl S 

;JUnP IF THIS IS INTERRUPT VERSION OF INSTRUCTION. 
ALU[81 DEST[[)*ArEM4] NORM PUSHJ t TRCHECK 1 S 

;Uait for op. to finish and get ending status in Q. 

; The in A-HEMI41 prevents TROCCK froa clearing read buf 



ALUIOl DESTIfCl SPECCMU-POPl NEOI $ 

^Return status to caller in his AC (s 



READ) 



TUREOF: 



;kRITE AN ENDX OF FILE (TAPE MARK) 
OtCONST 11 ROTtS. - 28.1 DESTCQ] NORM % 
.-Get UFM (WRITE EOF) cod bit for foroiatter 
TERftSl: DtCONST 11 ROTISS. - 22.] ALUIDORQl DESTIHDLDl NORM JUrPIKNYMTPl 



;Acld URT CMD bit and start coa 



nd. 



TERASE: DtCONST 31 R0TI35. - 29.1 DESTtQ) NORM JUMPtTERASll * 

;ERASE A 3. 75- GAP ON THE TAPE Cget HFM and ERASE bits for 
forttatter ) 

1;TAPE 



.REPEAT TBOOT [ 

<NVnTP: START-OUT NORM * 

;Give TP MR to clear aode. error status 
HAPFiTP.MRl DtMEMl DESTtQl C-OUT PUSHJ t KNYGOA 1 % 

iPut coaoiand bits in Q and start foraatter. 
START-OUT DtCONST 11 R0T[3S. - 26.1 DESTtlXl NORM S 

;Clea- all coaaoand bits except FORMATTER ENABLE. 
MAPFITP.UF) ALUt-11 CSSTtOl LONG POPJ » 

;Put -1 In Q in case v^ are returning to TAPEMT. 

Tr,acatt. .ociiTun 



SLOE March Z3, 1984 Zl:15:39 file STRING: — of — F^INNF 



8'fiieBZ9 

3ti»a623 13241 31073117883185855415152365431415888 

04818623 

04h8G29 13242 01073017950025203416152225451555888 

04c«0629 

84me629 13243 81873117883105054220352365571415080 

e4i»8629 

84iii96Z9 13244 01072017820006055488152425551416889 

e4ni0625 

841.8629 

e4i«623 

e4«8629 13245 81073117888826583485158825571456888 

04a>862S 

e4a>8629 

84 8629 

84 8630 

84 8631 

84 8532 

84 0633 

84 0634 

0T vo3a 

84 0636 

84 0637 
84 8638 
04 8639 
04 0648 
04 8641 
04 0642 
04 0643 
04 0644 
84 0645 
04 0646 
04 0647 
04 8648 
84 8649 
04 0558 
84 0651 
04 8652 
04 0653 
04 0653 
84 8654 
04 3655 
84 8655 
84 0656 
84 8656 
84 0657 
04 8658 
84 8659 
04 0659 
04 0560 
04 8661 
04 0652 
04 0663 
04 0664 
04 0665 
04 0666 
04 0667 
84 0668 
04 0669 
04 0670 
04 0671 
04 0672 
04 8673 
04 8874 
04 867S 
04 8676 
04 0677 
04 8678 
04 8679 
04 8680 
04 8681 
04 0682 
04 8683 
04 0684 
84 0634 
04 0685 
04 0686 
04 0687 
04 8688 
84 0689 
34 8698 
04 8691 
04 0692 
04 0693 
04 8694 
04 8695 
04 8636 
04 0637 
84 8638 
84 8693 
84 3788 
94 879! 
04 9782 
04 3783 
04 0784 
84 3785 
04 0706 
04 3707 
34 0708 
04 8709 
84 8713 
34 8711 
04 8712 
34 8713 
84 8714 
84 8715 
84 8716 
34 3717 



04 0713 



KNYtlTP: START-OUT ra?M « 

;Give TP MR to clear Bocie> error status 
rWPnTP.IIR] DtrtMl DESTIQI C-OUT PUSHJCKNYGOni * 

*Put coKmand bits in Q and start formatter. 
STffiT-aiT OtCDNST 1] RQTC35. - 26.1 DESTIIOOl NORM $ 

;Clea- all comm^id bits except FDRdftTTER ENABLE. 
HflPFCTP.HF] fiLU[-l] DESTCQl LONG POPJ $ 

;Put -1 in in case nc are returnins to TAPEMT. 

TAPERW: ;REUIM3 

DtCOfST 241 DEST[ra.DJ WSn JUfFIKNYMTP] $ 

,-RUD (*0 GO BITS — KNYGOA WILL DELETE THE GO BIT ! 

1;TB00T 

.REPEAT TAPE [ 

TAPEFR: ;SKIP FORWARD ONE RECORD. 

DICaiKT 0] DESTtHOLDl NORM JUHPtKNYMTP) S 
;START A REflO, BUT IGNORE ThC DATA. 

TAPES?: ;SKIP BACKWARD ONE RECORD. 

D[CONST 11 R0T[35. - 27.1 DESTtHOLDl NORM JUMPtKNYMTPl $ 
;JUST A READ BACKWARD, WITH THE DATA IGNORED. 

TPSETIND: ;Set industry cospatable node 

D[D*ffl1EM81 DESTtQl NORM $ ;Stupid A-TEH 
DiCONST 11 R0T[35. 1 ALUtDORQ] DEST t O*PrEM0 1 JUMP[TAPE0I1 t 
;5et appropriate bit and done 
TPSETDMP: ;Set POP-10 Dump Mode 

D[D%M1EM8] DESTIQl NORM $ ;Stupid A-MEM 
D[CONST 11 R0T[35. 1 ALU[-D«Q1 0EST[0*AnEM81 JUMPITAPEOIl » 
.'Clear industry compatable node and done. 

INT-MT: ALU[0I DEST [ D*AMEM4 1 NORM » 

:ZERO COUNT REGISTER TO BE SAFE 
DtD«inEM71 HASKI33.1 DESTtQl SHORT $ 

:GET READY TO SET READ BIT, MTAPE BIT, AM) WAITING FOR 
FORMATTER BIT. 

BCCONST 71 R0T[33.1 ALUIDORQl DEST [ D»AfEM7 1 NORM » 

;REA0 BIT SO INTERRUPT CALLS ITRCHC, MTAPE BIT SO NO LENGTH 
ERROR DK 

; FORMATTER INTERRUPT BIT SO DOESN'T HESS AROUND WITH TRANSFER 
COUNTS 

ALUI01 DEST[0*AMEM21 NORM S 

;NOT WRITING ANY BITS TO TP.UC, SO 2ER0 THIS OUT. 

; (DON'T REMEMBER REAL LAST BITS WRITTEN, SINCE A-MEn[21 IS USED 

; FOR BOTH REMEMBERING TP.UC VALUES AND ENDING STATUS.) 
DICONST 21 ROTtiZ.l DESTCIOOl START-OUT NORM $ 

;ENAeLE FOR FORMATTER NOT BUSY 
MAPF [ TP . UC 1 SPEC [ rKj-POr J JuTiFiuAInii CS88 » 

;AM3 RETURN FROM INSTRUCTIWJ. 



;OPCODE 727 — READ STATUS BITS FROM TAPE DRIVE- 

. DEFINE TSSiM Bi 

£ ;MOyE BIT A OF AR TD BIT B OF Q. 

DlARl R0T[1 * A) MASK[11 DEST[HOLD] NORM $ 
D[MEM1 R0T[35. - Bl ALUCOORQl DESTtQl NORM $ 1 



.REPEAT WAITS 1 

.PAIR 
];. REPEAT WAITS 

TAPERS: 
.REPEAT WAITS t 

CLR-DEU-FROM-INTR DtlRl R0T[12. +1+11 MASK[41 DEST[Q1 
COND[US£R] PUSHJ[CKI0TU1 $ 
;Treat device 370 and 374 as "identical for now... 
;Extract IDT decode » 2. Note we can do this because the 

:machine has already done i ndex ins/indirect ion and bits 

;13:17 are suaranteed zero 
DtLABEL TAPE-DISPATCH] ALUtD+Ql D£ST[Afil NORM $ 
D[AR1 R0T[MUA-ROT] ODISP LONG $ 

;Dispatch of type of lOT 

jAllocate space for dispatch table 

.PAIR ;Li«it address to 12 bits in width 
TAPE-DISPATCH: 
:. + 20 

.ORG [TAPE-DISPATCH] 
1;. REPEAT WAITS 
.REPEAT 1 - WAITS [ 

UIOTRP[MUU01 $ 
1;. REPEAT 1 - WAITS 

START-IN "CRM S 

;NEED TO CHECK FOR FORMATTER BUSY 
MAPFITP.RSl OtlODl ALU(N0TD1 OESTtARl CB80 
;GET STATUS BITS 
;Only the .RELOC really needs to be under WAITS conditional. 
.REPEAT 1 - WAITS I S 1 
.REPEAT WAITS [ 

JUt1PITAPERS01 $ 
;GET STATUS BITS 
.RELK 
TAPERS0: 
1;. REPEAT WAITS 

OtARl R0TI7) 08USO C550 JUMPI TAPERSll % 

;JUMP IF FORMTTER STILL BUSY, DON'T TOUCH AND RUIN XFER. 
;JUST USE THESE BITS. 

START-OUT ALU[0! DEST[I001 NORM % 

;CLEAS THE M£H5E CTRL REGISTER. 
MAPF[TP.WM1 START-OUT 
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94 6725 
94 972S 
94 9727 
94 0729 
94 0729 
94 0730 
04 0731 
04 0732 
04 8733 
04 0734 
04 0735 
04 9736 
94 9737 
04 9738 
04 97K 
04 0740 
94 0741 
94 9742 
94 0743 
94 0744 
04 0745 
04 0746 
04 0747 
04 9748 
94 9749 
94 97S9 
94 9751 
04 9752 
04 0753 
04 0754 
04 9755 
04 0755 
04 9756 
04 9757 
94 9758 
04 9759 
94 9769 
04 9761 
04 9762 
04 9763 
94 9764 
04 0765 
94 9766 
94 9767 
94 9768 
04 0769 
94 0779 
94 0771 
94 9772 
94 9773 
94 9774 
94 9775 
94 9776 
94 0777 
94 0778 
94 9779 
94 0779 
04 0780 
84 87G1 
94 0782 
04 0783 
94 0784 
94 0786 
94 0786 
94 0786 
04 0787 
94 9788 
94 0789 
94 9799 
04 0790 
94 0791 
94 0792 
94 0793 
94 0794 
84 8734 
04 9795 
94 0796 
94 9796 
94 0797 
94 8798 
04 0799 
04 0890 
94 8891 
04 0802 
94 0993 
04 0804 
94 0895 
94 9896 
94 0897 
94 0808 
94 0899 
94 0819 
94 0811 
04 0812 
04 8813 
04 0814 
04 0815 
04 9816 
94 8817 
94 0818 
04 9818 
04 0819 
94 0820 
04 0821 
04 0822 
04 0823 
04 0824 
04 0825 
04 0826 
04 9827 



■ WW RE-flRRftNGE THE BITS 



TflPERSl: 



TS5[ 3 39. ] 


CM LINE 


TSSt 11. 31. 1 


REUI^GIN6 


TSSC 4 32. ] 


FILE PROTECT 


TSSt 12. 33. ] 


LOM) POINT 


TSSt 10. 34. ] 


REflOY 


TSSt 34. 35. ] 


EfBX OF TAPE 


ALUtQ] SMAC « 





;725 - OBSOLETE VERSION OF REflO 

TAPERD: 

.repeat 1 - waitsfix I 

UIDTRPtnUUO] t 

D[D«f#En71 !1flSKt33.] DESTIQ] SHORT $ 
];. repeat 1 - Maitsfix 
.repeat Maitsfix I 

DtD«AnEH71 ms:t33.) DESTIQ] NORM aH5IUSER) PUSHJ[t3CI0TU] » 
iftaice sure we're in Exec or lOT-user node 
]:. repeat Maitsfix 

;a_EflR Orr REfO, fITfIPE flMJ INTERRUPT FLfGS. 

ALUtoi DesTt[«ArEii7] ^aa1 « 

DICONST 14] R0T[6] DESTtlR-fORl NORM PUSHJtKNYRGO] $ 

;Fake a Mord count of 1489 
DIMfl] DESTCWWHErMl NORtI PUSHJITRP21 $ 
ALUIQ] DESTIAC] fCSELCAC] NEOI « 

jMove status into AC. 

;739, AC/COUNT. READ WHOLE RECORD, STORING UP TO COUNT WORDS STARTING AT 
EFF ADR. 

;SWAP AC AND IR, THEN DO TAPERX. 

TAPENR: 

.REPEAT 1 - WAITS I 

UIOTRPtnUUOl S 
];. REPEAT 1 - WAITS 

01 IR] DESTtO-AC IR-AOR) ACSELtftC] NDRfl JUtflTflPERXl « 



;732 - (AC) IS START ADOR. , E IS • OF WORDS TO READ. 

TAPERX: 

.repeat 1 - Maitsfix I 
UIOTRPCrWUOl » 

D£D*AnEri7] mSK[33.1 DESTIQ] SHORT $ 
];. repeat 1 - waitsfix 
.repeat waitsfix I 

DID«MtH71 mSKI33.1 DESTIQ] NDRH CONDIUSER] PUSHJICKIOTU] * 
:nat<e sure we're in Exec or lOT-user node 
];. repeat Maitsfix 

sCLEAR ALL FLAG BITS IN A-fE«[71 
ALUIQI 0ESTID»AfEri71 NORM PUSHJtKNYRGO] S ;GET TAPE STARTED. 
DtOSAMEn?] I1ASKI3] -O8US=0 C550 JUMP 1 1 NT -READ! $ 

JJUMP IF WE ARE TO DO THE INTERRUPT FLAVOR OF 
INSTRUCTION. 

RLUiaCl ACSELIACl DEST 1 0*Art:M4 ] PUSHJtTRP2] NORM $ ;READ REC. 
DIAR] RQTIIS. ] -aa!S<a JUfPITNRPa] % 

;Was record longer than word count ? 
;JuRip unless FIFO RDY FCX? 8UF is on. indicatina 
: that tape supplied nore bytes after count ran out. 
DILIT 4498000990001 ALUIDORQ] DESTIQ] NORM $ ;YES. SET BIT 3. 
TNRP3: ALUIQI DESTIAC] ACSELIAC] SPECIMU-POP] NEOI S ;N0, NOT TOO LONG. 

;MOVE STATUS INTO AC. 

;HERE FOR INTERRUPT FLAVOR OF TAPE READ INSTRUCTIONS. WHERE PI ASSIGNMENT 

; IS NON-ZERO. 

INT-READ: 

DID««en71 MASKI34.1 DESTIQ] NORM $ 

;GET PLACE WHERE TO SET READ FLAG, CLEAR INTERRUPT STATE 

FI_OQ 

; IN BIT 1. 
DICONST 1] R0TI35.) ALUIDORQ] DESTID*ArEM7] JUHPIINT-WRITEl NORM 
t 

;SET READ FLAG IN A-rEni7]. 
;REST OF STUFF SATC AS FOR IRITE. 



;731. AC/ADR. EZ+COUNT. WRITE RECORD OF +COUNT 
WORDS, DATA FROM ADR. 
.-SET AC:=e IF OPERATION COf«-ETED SUCCESSFULLY. 
SET AC:=<KT2> + HIGHEST ADR READ IF REACHED 
EOT DURING OPERATION (CURRENTLY THIS IS THE ONLY 
ERROR CONDITION. ) OPERATION IS COMPLETED EVEN 
IF EOT IS PASSED. 



TAPEWR: 

.repeat 1 - waitsfix I 

UIOTRPIMUUO] S 
];. repeat 1 - waitsfix 

DID*Af1EM7] MASKI33.I DESTIQ] NORM 
.repeat waitsfix I 

CONDIUSER] PUSHJICKIOTU] 
];. repeat waitsfix 



flass. 



;5etup to clear the read, atape, and interrupt state 

:Mai<e sure we're in Exec or lOT-user node 
ALUIQI DESTIDSf»tn7] NORM PUSHJIDCINIT] $ 

;Init. the data channel. 
DID4Af1E(101 ROTH] MASKU] OESTIAR] NORM % 

;Get the 32-bit »ode flag. 
DIfiRl ROTlaS. - 29.1 DESTIQ] NORM S 

jPosition it for the hare^jare. 
START-OUT DICONST 1) R0TI35. - 28.] ALUIDORQ] DESTIIOO] NORM $ 

;Set the OUT bit. 
htePFrTP uMi nrrnnKT ii oriTr^c; _ 77 i nFCTroi piiqu irmvnnai « 
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04 e83Z 
04 0833 
04 0634 
9* 0835 
84 0836 
04 0637 
04 0838 
04 0833 
04 0840 
04 0641 
04 0842 
04 0843 
04 0644 
04 0845 
04 0648 
04 0647 
04 0648 
04 0643 
04 0850 
04 0851 
04 085Z 
04 0653 
04 0654 
04 0655 
04 0658 
04 0657 
04 0658 
04 0653 
04 0660 
04 0651 
04 0662 



; instruction. 
ALUtfiC) DESTtKftfErMl NORtl PUSHJ[STRTX] « 

;Get Mord count and start the channel. 
DIHEH] R0T[32.] -OBUS<0 JUHPtTlCRR] « ;Test HARD ERR. 
riLu[0j GEST[nCj rJGRn S ;Me return in AC if no EuT. 
Dtftfl] R0TI34.) C550 OBLB<0 JLTPtTAPEQI] t 

;If no EOT seen A all done. 
DtCCNST 60] R0TE35. - 51 ALUtORAC] DESTCAC] fEOI » 
;7urn on bit 8 to indicate EOT seen durins operation. 

;Here for the case where PI assisnnent is non-zero - just start the 
; transfer and return. Also corac here at EFOX of INT -READ. 

INT-W?ITE: 

ALUCACl D£ST[(»«trM] PUSHJEINT-STARTXl NORtl t 

;PUT COUNT IN Af1EM[4], START TfC TR(*ISFER 
NEOI t 

;fiM) RETURN FROtI THIS INSTRUCTION WITHOUT CHANGING AC. 



TUERR: ;;Error occurred during MTitc. 

NORtl PUSHJtKNYRSl) $ 

;Blast the tape formatter and drive 
DICONST 501 ROTE30. 1 DESTIAC] KOI * 

;And give error return to program. Ue no longer 

;do backspace erase gap reurite at ■icro-level* 

; nust do this. 



nACRO level 
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35 8863 
85 8864 
85 8865 
85 8866 
85 88E7 
85 8868 
85 8863 
85 8878 
85 8871 
85 8872 
85 8873 
85 8874 
85 8875 
85 8876 
85 8877 
85 8878 
85 8873 
85 8888 
85 8881 
85 8682 

85 eeB2 

85 8683 
85 8883 
85 8684 
85 8885 
85 8886 
85 8687 
85 8688 
85 8683 

@b et«e 

85 8831 
85 8692 
85 8833 
05 o69t 
95 6695 
85 8836 
85 0837 
85 8838 
85 8833 
85 8388 
85 8381 
85 8382 
85 8383 
85 898+ 
85 8385 
85 8386 
85 8387 
85 8388 
85 8383 
85 8318 
85 8311 
85 8312 
85 8313 
85 8314 
85 8314 
85 8315 
85 8316 
85 8317 
35 8318 
85 8319 
85 8328 
85 8321 
eS 8322 
85 8923 
85 8924 
85 8925 
85 8926 
85 8927 
85 8928 
85 8328 
85 8323 
85 8338 
85 8331 
85 8332 
SS 8333 
85 8334 
85 8335 
85 8336 
85 8337 
85 8938 
85 8939 
85 8948 
85 8341 
85 8342 
85 8343 
85 8344 
85 8345 
85 8346 
85 8347 
85 8348 
85 8349 
85 8358 



TAPINT: START-OUT D[DtAMEI12] CESTtlODl MRU t 

nAPFCTP.wcj STfWT-iK cses S 

;CLE(W ENflBLES 
mPF[TP.RS] OIIOO] DE5T[f«] C^8 $ 

;GET STATUS IN ftR FOR DCDCING. 
DtD*AfEn7] ROTtl) 08USO CSSe JLTPIFnTDONl * 

;JLriP IF EXPECTING ft -FMT BUSY INTERRIPT 
D[D»AfEH71 -£BUS<e CS58 JUHPITflPINTlRT) S 

;JUfP IF THIS XFER IS A URITE. 
START-OUT » 

;THE HAPFI01 WRITES LAST UDRD TO rETBRY. 
rWTte] DIAR) R0TC7] DBUS<8 C558 JUTPtlNT-RIXXWEl « 

;IF FORMATTER NO LONGER BUSY, TtCN bE READ RECORD SKJRTER 

; THAN THE COl*IT, SO FORGET REST OF TRANSFER. 

;HERE ALWAYS IF WRITE OR IF READ AND FORTIATTER IS STILL GOING. 

; MAY EITHER BE ENDX OF TRANSFER OR TIHE TO CONTINUE CURRENT LONG RECOTO. 



! TAPE COUNT GO HAS TO BE OFF SINCE ITS EIThER WRITE. 
FORTIATTER 
; IDLE. 



OR READ WITH 



TAPINTWRT: 

D[D*AnEre] OBus=e cs58 juhpctapexfroon) $ 

;IF If HAVE EXHAUSED COUNT. TRANSFER IS DONE. 
; COnE BACK TO FMTDON WTCN -FHT BUSY CCftS TRUE. 

ruSHJiuCGGl fCKn S 

: START UP NEXT PART OF THE TRANSFER 
HAPFI8) DICQNST 12] R0T[12. ] DEST(C] JUf*>[TAPINTENBl NORM $ 

;t1APF 8 for XGO. Enable for -FTITR BSY and -TP CNT GO. 
TAPEXFROON: 

D[DS:AfEH7) OEST[ai SHORT $ 

;GET DATA TO OR IN WAITING FOR FORMAT DONE BIT 
DlCONST 1! ROTtaS. - 1j ALUtDORQl DeST[D*AfE1173 fCRti t 

:WE CONTINUE AT FUTDON ON NEXT INTERRtPT. 
DtCONST 821 R0T[12.] DEST[0] NORil JUTPtTAPINTENB) t 

jBITS for just -FHT BUSY INTERRUPT ENABLE 

TAPINTEN8: ;HERE WITH BITS FOR INTERRUPT ENABLES IN 0. 

D[D4fWEM21 ALUtDORQl DESTCIOO] START-OUT NORfl » 
;ENABLE FDR BITS IN 0. 

nAPF[TP.wc) caee 

JUMPCdAIN) » 
;AND RETURN FROM THIS nlCROINTERRUPT. 

FUTCON: D[Afi] ROTI73 -0BUS<9 CS50 JUMPC] * 
.-HANG IF FORMATTER IS STILL BUSY. 
DCDSATEM?] -0BUS<8 CS58 JUnP[ INT-WRTDONE) % 
;JUMP IF ITS NOT A READ. 

;HERE ALSO IF FORMATTER SHUT DOWN BECAUSE NOT ENOUGH DATA ON TAPE TO 
SATISFY 
; THE CHANNEL'S COIWT. 

INT-RDOONE: 

PUSHJCITRCHK] NORM $ 

:GET STATUS OF XFER INTO Q 
D[D*AfEM7] SailZl a8US<8 JUMPtlNT-ROiCOKl C55e $ 

;IF NON-DATA OPERATION, DON'T CHECK FOR WORD COUNT. 
D[AR] R0T[1S. ] -O8US<0 JUMPC INT-ROWCOKl C558 $ 

;JUMP IF NO PRDSLEtl WITH WORD COUNT 
DCCONST 441 R0T[3e. 1 ALUtDORQl DESTtQl NORM $ 

; RECORD WAS LCSJGER THAN WORD COUNT, SET LENGTH ERROR. 
INT-RDUCOK: 

ALUEQl DEST[D*Af1EM21 NORM t 

.-STORE STATUS IN AMEdtZl FOR THE TRANSFER STATUS READING INST. 

TAPEPI: DIDS[AMEM7] OESTtQ] SHORT % 

:GET CONI WORD. 
DtCONST 181 ALUtDORQl DEST t D*AMEM7 1 NORM * 

;SET INTERRUPT BIT FOR CONSO 
DtD^Af£n?] DESTtQ AR3 ?1ASKt31 -0&JS=8 JUMPtPIGENl C5E8 S 

;IF PI CHAfSCL ASSIGNED, GO INTERRUPT. 
NEOI S 

jCLEARED pi ASSIGNMENT OUT DURING XFER? 

INT-WRTDONE: 

ALUtei DeSTtD*AMEM2 QI NORM $ 

;CLEAR OUT ACCUMULATED STATUS 
DtARl R0Tt32.1 OBUS<e JUMPt. + 21 CSSe S 

;JUrP IF NO HARD ERROR 
DtCONST 5! ROTtaa.l ALUtDORQl DESTtD%AfEM2 Ql PUSHJIKNYRSll S 

;HARO ERROR, SET 1B0 FOR ANY ERROR, 1B2 FOR HARD WRITE ERROR 
DtARl R0Tt34.1 oajS<0 C558 JUTPITAPEPIl $ 

;IF EOT NOT SET. JUST CAUSE PI ON PROPER CHANNEL. 
DtCONST 61 R0Tt33.] ALUtDORQl OEST t D*AMEn2 1 JUMPtTAPEPIl NORM S 

;EOT, SET IT IN AflEM AM3 GO CAUSE PI 
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0G 0951 
ee 095Z 
0G 0353 

as as54 

06 0955 
06 99SG 
0G 0957 
06 9958 

06 ess9 

06 0960 
06 0961 
06 095Z 
06 0963 
06 0964 
06 0965 
06 0966 
06 0967 
06 0968 
06 0969 
06 0979 
06 0971 
06 0972 
06 0973 
86 0974 
96 0975 
06 0976 
06 0977 
06 8378 

06 0980 
06 0381 
06 0982 
06 0963 
06 0984 
06 0985 
06 0386 
06 0967 
06 0988 
06 0389 
06 8930 
06 8331 
06 0392 
06 0393 
06 0334 
06 0395 
66 0996 
06 0997 
06 0398 
06 8999 
06 1000 

06 1001 

06 1902 

06 1002 

06 1093 

06 1004 

06 1005 

06 1806 

86 1887 

06 1006 

06 1809 

06 1810 

06 1011 

06 181Z 

06 1013 

86 1014 

06 1015 

06 1916 

06 1917 

06 1016 

06 1913 

06 1920 

06 1921 

06 1022 

86 1923 

06 1924 

06 1925 

06 1926 

06 1927 

06 1028 

06 1929 

06 1939 

06 1031 

06 1932 

06 1933 

06 1934 

06 1035 

06 1036 

06 1937 

06 1938 

86 1933 

ee 1949 

06 1941 

06 1842 

06 1943 

06 1844 

06 1945 

06 1046 

66 1047 

06 1048 

06 1949 

06 1950 

66 1051 

06 1052 

06 1953 

06 1954 

06 1055 

06 1056 

06 1057 

06 1058 

OR iac;q 



TPCDNI I^'STi?UCTIDN. OPCODE 733- 
10 HEftNS INTEHi?LPT HAS BEEN REQUESTED. 
33-35 PI ftSSISNfEMT. 

.REPEAT WfilTS [ 

.ORG[TftPE-uISrATCH + 12] 
];. REPEAT UfllTS 
TPCONI: 
.REPEAT 1 - WAITS [ 

UIDTRPItmUOI $ 
I ;. REPEAT 1 - WAITS 

START-ISI DICONST 61 R0T[15.] DESTEQl PUSHJITPCDNIBTS] NORM » 

;GET THE HI ORDER CttNI BITS 
D[D%AfEM7] MASKtlS.l ALUCDQRQ] SMAC « 

.-STORE CCNI BITS INTO EA. 

;ALSO STORE INTERRUPT STATE BITS FOR DEBUGGING. 

.-CAUTION: Still in dispatch table under WAITS snitch 

.REPEAT WAITS I 

TPCONSZ: START-IN DICONST GI ROTHS.) DESTIQl PUSHJITPCONIBTSl NORH $ 
:GET THE HI ORDER CDNI BITS 
D[0XAnEM71 mSKilB.l ALUIDORQI DESTIQ] NORM JUMPIXXCONSZI S 
;STORE CONI BITS INTO Q AND DO USUAL CONSZ THING 
TPCO.^0: STA.RT-1?^ DICONST E] ROTHS.] DESTIQ] PUSHJITPCD.MBTS] MQR?1 $ 
;GET THE HI ORDER CONI BITS 
D[D*Af!EM71 MASKIIS.] ALUIDORQ] DESTIQ] NORfl JUMPIXXCONSO] S 
:STDRE CONI BITS INTO AND DO USUAL CONSO THING 

.RELX 
];. REPEAT WAITS 

TPCONO INSTRUCTION. OPCODE 734. 
100 MEANS CLEAR FORMATTER- 
20 MEANS CLEAR INTERRUPT FLAG. 
33-35 ARE TO SET PI ftSSIUNMENT. 

.REPEAT WAITS [ 

.ORG! TAPE-DISPATCH + 10] 
];. REPEAT WAITS 
.REPEAT 1 - WAITS [ 
TPCONO: UIOTRP[MUUO] » 
];. REPEAT 1 - WAITS 

DIIR] R0TI23-] OBUS<0 CSSO PUSHJ [ TAPCLR ] $ 
;IF 100 BIT IS SET. CLEAR THE FORMATTER. 
.REPEAT 1 - WAITS [ 

rQnly the -reloc really needs to be under WPITS s*-*ltch- The JUflP and 
NORM 

;are done separate!/ to make BINCOfI succeed. 
DICONST 7] ftLU[^OTD] DESTIQ] SHORT $ 
jMASK to CLEAR PI ASSIGWENT 
];. REPEAT 1 - WAITS 
-REPEAT WAITS [ 

DICONST 71 ALUINOTD] DESTIQ] JUHPITPCONQZ] NORM $ 
;MASK TO aEAR PI ASSIGNMENT 
-reloc 
TPC0W12: 
];. REPEAT WAITS 

DIIR] R0TI31.1 -OBUS<0 CSSO JUMP!. + 2] $ 

;JUrP IF NOT CLEARING IT 
DICONST 17] ALUINOTD] DESTIQ] SHORT t 

.-CLEARING INTERRUPT FLAG, GET DIFFERENT MASK 
DtD*AflEM7) ALUIOaQl DESTIQ] SHORT » 

.-CLEAR OUT PI ASSIGNMENT A^D MAYBE INTERRUPT FLAG 
DtIR] MASKC31 ALUIDORQ) DESTID*AMEn7] NORM JUMPITAPEOIl » 

jSTORE PI ASSIGNMENT IN A-MEMI7] AM) RETURN FROM INSTRUCTION. 

TAPCLR: PUSHJIDCINITl NORM » 

;GET RI'^ ^^ INTERRUPT E?^£LESr RE^T CJ ^JJCL 

jumpiknyclr] norm $ 
jano clear fortiatter and drive. 

tpcnso - opcode 735. 
skip if bits in ea are set. 
see tpconi for bit assignments. 



.REPEAT 1 - IKITS I 

TPCNSO: UIOTRPlnUUO] S 

START-IN DICONST G] ROTIlS.l DESTIQ] PUSHJITPCONIBTSl NORM % 

;GET THE HI ORDER BITS INTO Q. 
DtD5;AMEM7] HASKI18.] ALUIDORQ] DESTIQ] SHORT » 

;GET WHAT BITS ARE. 
DIMA] ALUID&Q) C0NDSKPI-ALU=9] * 

:IF ANY MASKED BITS ON => SKIP 

;LEAVE OUT TPCNS2. DON'T WASTE THE SPACE. 

] (.REPEAT 1 - WAITS C includes co»iwnt because WAITS includes CONSZ) 

;TPOATI - OPCODE 73G 

(RETURNS TRANSFER STATUS (BITS. ENDING AOORESS) TO C(Efl). 

.REPEAT WAITS I 

-ORGITAPE-OISPATCH + 2] 
];. REPEAT WAITS 
-REPEAT 1 - WAITS I 
TPOATI: UIOTRPCMJUOl S 
] (.REPEAT 1 - WAITS 

DlD*AftMZ] SMAC » 

; STORE STATUS avJED ON LAST XFER TO CCEA) 
.REPEAT WAITS I 
av « 
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of 



FtlWJF 



86 less 
as 18SS 

06 1067 
as 1068 
06 1069 
06 1070 
06 1071 
06 1072 
as 1873 
06 107+ 

05 107S 

06 1076 
86 1077 
86 1078 
06 1073 
06 1080 
06>10ei 
06al0ei 

06<nieai 

06al0ei 
06011081 
06ib1081 
0Sinl0Sl 
06011081 
06ml081 
06ml0ei 

06Bii0ei 

061111081 
06m18ei 
06011061 
06ml081 
06oil081 
0Go>1081 
06di1881 
06011081 
86011881 
86nil881 
86011081 
86011881 
86011881 
06011881 
aSnlUul 
06nie81 
06011081 
06011081 

06oiieei 

06ml081 
06>il081 
06niieei 
06nl081 
06nil081 
06011081 
06011081 
06011081 
06011081 
06oil081 
0Goil081 
e8ml081 
06oil081 

0Soiieei 

06oil081 
06011081 
06oil881 
OEoil0ei 
06oil081 
86aie81 
86ail881 
86«il0ei 
06011381 
06 1881 
06 1082 
86 1083 
86 108+ 
06 1085 

06 lees 

86 1887 
06 1088 
06 1088 
06 1089 
06 1090 
06 1831 
06 1032 
06 1033 
06 103+ 
06 1035 
06 1096 
06 1037 
06 1038 
06 1033 
06«110e 
06all0e 
06all00 
Oeall00 

esaiioe 
06>iiee 
SEniiee 
eE«iie0 

061111100 

eeioii00 

06>1100 

e6Bii00 

06lilll00 

06all0e 
06all0a 

e6«ii80 

08aill00 

06011100 
06011100 

65 1160 

06 uei 



132+6 01073117000026503+00150025571+56000 



132+7 01073117000025582200350025571+56000 



13250 01073017000006055415152366031+16000 
13751 01053117000025161060300025571+56000 



13252 01073017000006055+1S162366031+16000 

13253 010651 1700002S1B1060300025571+56000 



1325+ 6182+117000835055+16118365+31415888 

13255 01073017000006055+10362366377+16000 

13256 01063117006006055021716365571+16000 



13257 0102+117000006855+1618+365+31+16860 



13260 8107311700310605+300552365571+15000 

13261 01073117010322711+16152025+11+56000 



1326Z 81073012+0+0000003+1162225771+56000 



13Z63 01060137000000000000162365531+16000 
1326+ 01073117000000000016000725+11+56000 



.RELOC 
l;REPEftT WAITS 



TPCONIBTS: 

nAPF[TP.RC) D[I001 ALUCCKQ! DEST[Q1 CB00 STflRT-IN « 

;1B18 = OyERRUW. CLEARED ON MASTER RESET. 

;1B19 = CONTROLLER BUSY. 
i1APF[TP.R5J DilOOJ D£ST[ftR] CSBS S 

;GET FCS?fWTTER STATUS IN AR 
DCARl R0T[71 DBUS<0 C550 PQPJ $ 

;RETURN IF FORMATTER IS IDLE. 
DtCONST 11 R0T[35. - 20. 1 ALUtDOROl XSTIQ] NORM POPJ $ 

;FORMATTER IS SUSY, SET THE BIT. 

;1B20 = FORMATTER BUSY 



] [ 



TAPEFR: 



TAPEBR: 



;SKIP FCKWftRO ONE R£CCS?0. 

OtCDNST 01 DESTIHOLDl NORM JUMPCKNYMTP) t 
;5TART A READ, BUT IGNORE THE DATA. 

.-SKIP BACKWARD 0^€ RECORD. 

D[CONST 11 ROTtSS. - 27.] DESTtHQLDl NORM JUMPCKNYMTP) $ 
jJUST A READ BACKWARD, WITH THE DATA IGNORED. - 



TPSETIM3: 



;Set inckjstrx compatable made 



OtD*AHEI101 OESTIQl NORM X ;Stupid A-MEM 
DtCONST 11 RDTtSS.l ALU(DORQ) OEST(D%AMEM01 JUHPCTAPEOI] » 
;Set appropriate bit and done 
TPSETDMP: ;Set POP-10 Duoip Mode 

D[D:SAMEM01 OESTtQ) NORM $ ;Stupid A-MEM 
D(C0N5T 1] R0T[3S.l ALUt-DiQ) DESTCDSAfJEMO) JUMP[TAPE0I1 $ 
;Clear industr>' compatable oiode and done. 

INT-MTi ftLU!8! DEST!DSfl:EM+J NORM S 

;2ER0 COUNT REGISTER TO BE SAFE 
0tD*AnEM7) MASKOa.l DESTCQ] SHORT « 

;GET READY TO SET READ SIT, fiTftPE BIT, AND WAITING FOR 
FORMATTER BIT. 

DICONST 71 R0T[33.1 ALUtDORQl DEST[D*AnEM7] NORM $ 

iKCTMj Oil bu in I ci^KUr I <.n_i_o iii<k.ra\, iiirirt. bi i bu nu i-Li«jin 

ERROR CHK 

: FORMATTER INTERRUPT BIT SO DOESN'T MESS ABOUND WITH TRANSFER 
COUNTS 

ALU[01 DeST[DtAMEM2] NORM S 

!NOT WRITING ANY BITS TO TP.WC, SO ZERO THIS OUT. 

; (DON'T REMEMBER REAL LAST BITS WRITTEN, SINCE A-HEMC21 IS USED 

! FOR BOTH REMEfSERING TP.WC VALUES AND ENDING STATUS.) 
DtCONST 21 R0T[12. 1 OESTdODl START-OUT NORM $ 

;ENAGLE FOR FORMATTER NOT BUSY 
MAPF[TP.WC1 SPECCMU-POP) JUMPtMAINl CG00 S 

;AND RETURN FROM INSTRUCTION. 



;OPCOOE 727 — READ STATUS BITS FROM TAPE DRIUE. 

.DEFINE TSSIA Bl 

I sMOVE BIT A (F AR TO BIT B CF Q. 

D[AR1 ROTCl + Al MftSK[ll DESTCHXDl NORM * 
DlftMl R0TC35. - Bl ALUCDORQl DEST[Q1 NORM » ) 



.REPEAT WAITS [ 

.PAIR 
1;[ 

.PAIR 
[:. \ 2 + . 

n. REPEAT WAITS 

TAPERS: 
.REPEAT WAITS [ 

CLR-DEV-FROn-INTR OCIRl R0T[12. + 1 ♦ 1 1 MASK[+] DESTCQ) 
CONDIUSERl PUSHJICKIOTUl $ 
;Treat device 370 and 37+ as identical for now... 
;Extract lOT decode * 2. Note ue can do this because the 

;Bachine has already done index ins/ indirect ion and bits 

;13:17 are guaranteed zero 
DtLABEL TAPE-DISPATCH 1 ALUCD+Ql DESTCARl NORM $ 
DIARl ROTCHUA-ROTl ODISP LONG S 

;Dispatch of type of lOT 

;Allocate space for dispatch table 

.PAIR ;Li«it address to 12 bits in width 
TAPE-DISPATCH: 
:. ♦ 20 

.ORG [TAPE-OISPATCHl 
1;[ 

CLR-DEy-FROn-INTR D[IR) R0TI12. +1+1) MASKt+) DESTCO) 
CONDiUSER) PUSHJCCKIOTU) $ 
;Treat device 370 and 37+ as identical for now... 
;Extract lOT decode » 2. Note ue can do this because the 

;oiachine has already done index ins/ indirect ion and bits 

:13:17 are guaranteed zero 
DCLABEL TAPE-DISPATCH) ALU[D+Q) OESTIARl NORM S 
DIAR) ROTCMUA-ROT) ODISP LONG « 

;Dispatch of type of lOT 

;Allocate space for dispatch table 
.PAIR [:. \ 2 + . 
]:LiBit ack^ess to 12 bits in uidth 
TAPE-DISPATCH: 

:. + 20 

.ORG [TAPE-DISPATCH) 
[ xlist 

list Ji.f5lFc.ni nniib 

.REPEAT 1 - WAITS [ 
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of -- F+INNF 



86 1107 
as 1138 
0E 1109 

as uie 
06 nil 

06 1112 
06 1113 
06 UH 
06 1115 
06iiilll6 
06alll6 
06«111E 
06alll6 
06«1116 
06iiilll6 
0ealll7 
06 1115 
06 1117 
06 1118 
06 1113 
06 1120 
06 1121 
06 1122 
0G 1123 
06 1124 
06 1125 
06 1126 
0E 1127 
as 1128 
06 1129 
06 1130 
06nll31 
06iill31 
06mll31 
06 1131 
0e«n3Z 
06nll32 
06i>113Z 
06 1132 
06nll33 
06nll33 
@6inll33 
06 1133 
06*1134 
06mll34 
06all34 
06 1134 
06all35 
06all35 
06ml 135 
06 1135 
0enill3G 
06mll36 
06ii<1136 
06 1136 
06 1137 
06 1136 
06 1133 
06 1140 
06 1141 
06 1142 
06 1143 
08 1144 
06 1145 
06 1146 
08 1147 
06 1148 
06 1149 
06*1150 
06ml 150 
06«1150 

06 iisa 

06 1151 
as 1152 
06 1153 
06 1154 
06 1155 
06 1156 
06 1157 
06 1158 
06 1153 
06 1153 
06 1150 
06 1151 
06 1162 
06 1163 
06 11E4 
06 1155 
06 1156 
06 1167 
06 1168 
06 1163 
06 1170 
06 1171 
06 1172 
as 1173 
06 1174 
06 UTS 
06 1176 
06 1177 
06 1178 
06mll73 
06all73 
06(ill79 
06 1173 
06 1180 
06 1181 
06 1182 
SG llo3 
06 1183 



132B7 01077137040000001415152025711456000 



13306 01073100400600000175162025421455000 

13307 010Z411700310605541S1523S543141S000 

13310 01073117043106054220352355551415000 

13311 0102401702300G05541S15Z3S5411416080 

13312 0ia7713704000G05541ElE23E5711415000 



13313 01073117000006054100350355431415000 

13314 01063017000006054136162355471515000 



13315 01073117000006054300350365431415000 
13315 0105301700000605411S1B2385471515000 



15317 010731 i7000605*ra41do3503S543i415090 
13320 01063017000006054076152365471515000 



13321 01073117000006054320350355431416000 

13322 01063017000006054056152355471515000 



13323 0107311700000S0542S03S036543141E000 

13324 010B3017000005054036152365471516000 



13325 01073117000006055060350365431415000 
133ZS 01063017000005054015152365471516000 
13327 O102313100002266541E156125430456000 



13330 01073012400000001410362225371456000 



13331 01023117900006055416116365431415000 

13332 61073117000028172143144225571456000 



13333 01073117000025377416110225671456000 

13334 54023317000006055416152325429416000 



13335 51073217000000001415144025771456080 



13336 0107301Z40000000141035222E371456000 



13337 01023117000026173416116225431456000 
13340 01073100000000001400762026361455000 



nAPFITP.RSJ OtlOO) ftLU[NOTD] DEST[flRl C800 
;GET STl^TUS SITS 
;0nly the -RELQC really needs to be under i4hlIT3 conditional. 
.REPEfiT 1 - iJfilTS [ $ 1 
.REPEAT WAITS I 

JUnPtTAPERSOJ » 
;GET STATUS BITS 
.RELOC 
TAPERSe: 
];[ 

JUMP[TfiPERS01 $ 
;GET STATUS BITS 
.RELOC 
[.USEEHILOCl 
[ xlist 

list ) ITAPERSO: 

]. REPEAT WAITS 

DCARl ROTI?] DBUS<0 C550 JUHPCTAPERSl] S 

;JUfP IF FORHTTER STILL BUSY, DON'T TOUCH AND RUIN XFER. 
;JUST USE THESE BITS. 

START-OUT ALUI01 DEST[IOO] NORM $ 
;CLEAR THE MODE CTRL REGISTER. 

MAPFtTP.Ufl! START-OUT 
D[CONST 1) R0T[35. - 25.1 DESTIIDOl C-OUT » 
; ENABLE THE FORMATTEI?. 

rifiPFETP.Uf ] START-IN ALU[0] DESTtQl CS0e $ 
;REAO STATUS BITS. 

rtAPfCTP.RS) DtlODl ALUtNOTD] DEST[AR1 C800 * 
:NOW RE-ARRANGE THE BITS 
TAPERSl: 

TSS[ 3 30. ] 
[ ;nOVE BIT 3 OF AR TO BIT 30. OF Q. , 

DtARl ROTLl + 31 rWSKCll OESTtHaOl NORM S 

D[f1EMl R0T[35. - 30.1 ALUEDCRQ] CCSTCQ] NORM $ ];0N LINE 

TSSt 11. 31. i 
[ ;MOVE BIT 11. OF AR TO BIT 31. OF Q. 

D[AR1 ROTIl + 11.1 MASKtll DESTIHOLDl NORM S 

DtMEMl R0T[35. - 31.1 ALUCDOROl OESTIQl NORM S 1;REMINDING 

TSSt 4 32. 1 
[ ;MOVE BIT 4 OF AR TO BIT 32. OF Q. 

D L AR 1 KuT L 1 ■*■ 4 i flASK 1 1 j 0E5T [ mlLD 3 riukil $ 

OtMEMl ROTtSS. - 32.1 ALUCDOROl DESTtQl NORM S ];FILE PROTECT 

TSS[ 12. 33. 1 
I .-MOVE BIT 12. OF AR TO BIT 33. OF Q. 

DtARl ROTtl + 12.1 MftSKtll DESTtHQLDl NORM $ 

DIMEMl RDTt3S. - 33.1 ALUtDOROl DESTtQl NORM S 1;L0A0 POINT 

TSSt 10. 34. 1 
[ ;HOVE SIT 10. OF AR TO BIT 34. OF Q. 

DtARl RQTtl + 10.1 MftSKtll DESTtKOLDl NORM % 

DtMEMl R0Tt35. - 34.1 ALUIDCRQl DESTtQl NORM $ l;READr 

TSSt 34. 35. 1 
t ;MOVt BIT 34. OF AR TO BIT 35. OF Q. 

DtlW) ROTtl + 34.1 MftSKtll OESTtHOLDl NORM * 

DtrEM! R0TI3S. - 35.1 ALUtOORQl DESTtQl NORM $ 1;ENDX OF TAPE 

ALUtQ) SMAC t IFRO DESTtMEMSTO ARl CONDtnA<Z01 LBJUMPtSEOIl 1$ 



;725 - OBSOLETE VERSION OF READ 

TflPERO: 

-repeat 1 - waitsfix t 
UIDTRPIMUUOl $ 

DlDXmEn?} nftSKl33.1 OESTtOl SHORT « 
];. repeat 1 - waitsfix 
.repeat waitsfix t 

DtD*AfEM71 MASKI33. 1 DESTtQl NORM CQNDtUSERl PUSHJICKIOTUl t 
;nake sure we're in Exec or lOT-user Mode 
l;t 

DtD»(*EM71 nASlCt33.1 DESTtQl NORM CONDtUSERl PUSHJtCKIOTUl » 
jMake sure we're in Exec or lOT-user *ode 
I. repeat waitsfix 

; CLEAR OUT READ, MTAPE AND INTERRUPT FLAGS. 
ALUtQl DESTtD5;ftf1En71 NORM $ 
DtCONST 141 ROTtSl DESTCIR-ADRl NORM PUSHJ I KNYRGO 1 » 

;Fal<e a word count of 1400 
OtMAl D£STtD*AMEM41 l«»1 PUSHJtTRP21 $ 
ALUtQl DESTtACl ACSELtACl NEOI $ 
;Move status into AC. 

;730, AC/CDUNT. READ WHOLE RECORD, STORING UP TO COUNT WORDS STARTING AT 
EFF ADR. 

;SWAP AC AND IR, THEN X TAPERX. 

TAPENR: 

.REPEAT 1 - WAITS t 

UIDTRPtMUUOl $ 
J;. REPEAT 1 - WAITS 

DtlRl DESTtO-ftC IR-AOfil ACSELtACl NORM JUMPtTAPERXl $ 



:73Z - (AC) IS START M»R. , E IS • OF UOTOS TO REfO. 

TAPERX: 

.repeat 1 - waitsfix f 

UIOTRPtMUUOl $ 

DID*AnEM7] nASKt33.1 DESTtQl SHORT t 
];. repeat 1 - waitsfix 
. repeat wa i tsf i x I 

DID*AnEn7] nASKt33.1 DESTtQl NORM C0M5IUSER) PUSHJtCKIOTUl $ 
;nake sure we're in Exec or IDT-user node 
1;E 

DID««:M7] nftSKI33.1 DESTtQl NORM CONDtUSERl PUSHJtCKIOTUl $ 
;nal<e sure we're in Exec or lOT-uscr aodc 
1. repeat waitsfix 

;CLEAR ALL FLAG BITS IN A-flEMt71 

ALUtQl DESTtD*(»EM7) NORM PUSHJ t KNYRGO 1 $ ;GET TAPE STARTED. 

DID4«EH7] HftSKtSl -D8US=a C550 JUMPIINT-READl % 

INSTRUCTION. 



SLCE March 23, 198+ 21:16:35 file STRING: — of -- F41NNF 



ee 1189 

ee 1138 
86 use 

X MSI 

% 1132 

86 1133 

86 1193 

86 119+ 

86 11£ 

86 1136 

86 1137 

86 1138 

86 1138 

86 1199 

86 1286 

86 1288 

86 1281 

86 1282 

86 1283 

86 1284 

86 1285 

86 1286 

86 1287 

86 1286 

86 1289 

86 1218 

86 1211 

86 1212 

86 1213 

86 iiu 

86 1215 
86 1216 
86 1217 
86 1218 
86 1219 
86 1229 
e6al221 
e6ml22! 
96 1221 
86 12Z2 
86 1222 
86 1223 
86 122+ 
86 1225 
86 1226 
86 1227 
86 1228 
eS 1229 
as 1238 
86 1231 
86 1232 
06 1233 
86 123+ 
86 1235 
86 1235 
86 1236 
86 1237 
86 1238 
86 1239 
86 12+8 
86 12+1 
86 12+2 
86 12+3 
86 12++ 
86 12+5 
86 12+6 
86 12+7 
86 12+8 
86 12+3 
86 1258 
86 1251 
86 1252 
86 12S3 
86 125+ 
86 1255 
86 12SE 
96 1257 
86 1258 
86 1253 
86 1269 
96 1261 
86 1262 
86 1263 
96 126+ 
86 1265 
96 12G6 
96 1267 
86 1268 
86 1269 
86 1279 
96 1271 
as 1272 
96 1273 
96 127+ 
96 1275 
96 1276 
96 1277 
96 1278 
86 1279 
86 1298 
86 1281 

86 izaz 

66 1283 
86 128+ 
96 1Z8S 
86 1286 
86 1286 
86 1287 

86 1288 



133+3 81863817819899999088162365531+16808 
133++ 5+e233170e039585541SlS232S+28+lS80a 



133+S 81873017999806855+18552366371+16688 



133+6 81963117800000001860315025571+56689 



DCLIT ++8086000090] ftLUtDORQl DESTCQ] NORM $ ;YES. SET BIT 3. 
TrjHPS: fiLUIQI DEST[fCl ftCS£L[fC] SPECIHU-PQPJ NEDI S ;W3. ^BT TCO LONS. 

;f!CyE STSTUS INTO AC. 

;HERE FOR INTERRUPT FLAVOR DF TAPE READ INSTRUCTIONS. UHERE PI flSSIGNTENT 

; IS NON-ZERO. 

INT-REftD: 

DIDVirEH?] mSK[3+.l DESTCai HQRM S 

;GET PLflCE UHERE TO SET REM) FLAG, D-EflR INTERRUPT STATE 
FLAG 

; IN BIT 1. 
D[CONST 1] R0T[3S. ] «.U[DCRQ) DeST[DW»tn7] JUTPEINT-HRITEl NORM 
$ 

;SET READ FLAG IN A-MEMt?]. 
;REST OF STUFF SflfE AS FOR WRITE. 



AC/flOR, E/tCOUNT. WRITE RECORD CF +COLNT 
WCRDS. DATA FROM ADR. 
;SET AC:-0 IF OPERATION COTPLETED SUCCESSFULLY. 
SET AC:=<SETZ> + HIGHEST AOR READ IF REflClCD 
EOT DURING OPERATION (CURRENTLY THIS IS THE ONLY 
ERROR CONDITION. ) OPERATION IS CDHPLETED EVEN 
IF EOT IS PASSED. 



TAPEWR: 

.repeat 1 - Maitsf ix I 

UIOTRPCnUUOl « 

];. repeat 1 - waitsfix 

0[D«ArEn7i msK[33.] destioi norh 

.repeat wattsfix [ 

CONDCUSERJ PUSUiCKIOTUl 
];[ 

C0M3[USER1 PU9UICKI0TU1 
I-repeat Maitsfix 



133+7 01873812+88000001+18362225371+56008 

13358 81823117899926255+16116225+31+55999 

13351 8187313789990695+828362356831+16999 

13352 9197391799990695+156162365+31+16999 

13353 9196311788318605+168352365571+16008 
1335+ 819739178+8926292328362225571+56999 

13355 81873180090000891+88762826361+56999 

13356 81833117099926393+16119225+31+56989 

13357 81973188689000061816152925+71556899 

13360 9182+317809006055416162365+31+16980 

13361 81873190+99026161956152825+61556886 

13362 5+85331789998685+75+162325568+16889 



13363 918331 1790992627S+161 18225+31456089 

13364 54873117090066955416162325429416999 



13365 91873117980826167416162225431456999 

13366 5487331789990605+752162325560+16009 



flags. 



;5etup to clear the read, ata 



and interrupt state 



13367 018731178931060SS+16152366131+1G090 
13379 81873117913006055+16162365+11+16099 

13371 819731379+0986855+16162365711+16089 

13372 91973188+80066669836162826361+56800 

13373 81073189699999001416152826361456868 

13374 81873117983106055415152365+31416000 

13375 8187318049099990017E16202S421456999 



;r1ake sure i^e're in txcc or lUI-user node 
ALU[01 DEST[D*AREH7] NORM PUSHJIDCINIT] % 

;Init. the data channel. 
DIDtftnErW) RQTdJ mSKCl] DESTCAR] NORM $ 

;Get the 32-bit node flas. 
DtARl R0TC3S. - 29.1 DESTtOl NORM « 

;Po5ition it for the hardMare. 
START-OUT DCCONST 1] R0T[35. - 28.) ALUIOOROl DESTtlOOl NORM $ 

;Sct the OUT bit. 
MAPFITP.UM] D[CONST 11 R0TL3S. - 22.1 DESTIQ] PUSHJ [ KNYGOA ] % 

; Issue WRITE coocnand to fortaatter. 
DtD*AMEn7] MASKISl -0euS=9 C559 JUffl INT-WRITE] S 

;If non-zero PI assignnent, do the interrupt fora of the 

; instruct ion. 
ALU[AC] OeSTID^AMEfH] NORM PUSHJtSTRTDC] t 

.'Get Mord count and start the channel. 
DCMEMl R0T[32.] -OBUS<0 JUrP[TlERRl t ;Test HARD ERR. 
ALU[0] DESTifCI NGRfl S ;i4e return in AC if no EOT. 
DtMEH] R0TI34.1 C550 O8tB<0 JUMPCTAPEOU $ 

;If no EOT seen, all done. 
DtCONST 50] R0TI35. - 5] ALUCDORAC] DESTCAC] NEOI $ 
;Turn on bit 9 to indicate EOT seen during operation. 

;Here for the case i^iere PI assignment is non-zero - just start the 
; transfer and return. Also come here at ENDX of INT-READ. 

INT-WRITE: 

ALU[AC1 CeST[D«AMEn+l PUSHJ [ INT-STARTK ] NORM S 

;PUT COUNT IN AfEn[ + ]. START ThE TRANSFER 
NEOI * 

;AND RETU?N FROM THIS INSTRUCTION WITHOUT CHANGING AC. 



TWERR: ;:Error occurred during write. 

NORM PUSHJCKNYRSl] S 

:Blast the tape formatter and drive 
D[CDNST 501 ROTC30.1 DeST[AC] NEOI * 

;And give error return to progran. Us no longer 

:do backspace erase gap reM~ite at aicro-Ievel, MACRO level 

; Must do this. 



TAPINT: START-OUT DID«AMEM2] DESTtlOOl NORM t 
MAPFITP.WC) START-IN C699 « 

.-CLEAR E?wa_ES 
MAPFdP.RSl DdOOl DESTEARl C990 « 

;GET STATUS IN AR FOR CHECKING. 
DtD4AMEM71 R0T[11 OHJS<0 CS50 JUMPtFMTDONl » 

■,JWP IF EXPECTING A -FHT BUSY INTERRUPT 
D[D%AMEn7] -OBUS<0 C558 JUTPCTAPINTWRTl $ 

;JLrP IF THIS XfER IS A WRITE. 
START-OUT $ 

;THE MAPFCel WRITES LAST WORD TO MEMORY. 
MAPFCei DEAR] R0Tt71 0ajS<8 C550 JUrPtlNT-ROOONE) $ 

;IF FORMATTER NO LONGER BUSY, THEN WE READ RECORD SHORTER 

; TWN THE COUNT, SO FORGET REST OF TRANSFER. 

;HER£ ALWYS IF WRITE OR IF READ AW FORMATTER IS STILL GOING. 

; MAY EITHER BE ENDX OF TRANSFER OR TlfE TO CONTINUE CURRENT LONG RECORD. 

; TAPE COUNT GO HAS TO BE OFF SINCE ITS EITttR WRITE, OR READ WITH 

; IDLE. 
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13377 01673117888625321415162225431458909 

13400 01073017000000000302552025571455609 

13401 01073917000006055416162366377416000 

13402 91063117000986055040316365571415909 

13403 0107301790090000030055202557145S009 

13404 010G311700310G05541S15236613141S099 

13405 9107311701092271141S162825411456900 

1340G 01073100500027014176162025421455099 
13407 01073100600999001416162025361456009 



05 1294 
86 1235 

06 1296 
06 1297 
06 1298 
06 1239 
06 1390 
06 1301 

85 1392 
06 1303 
06 1304 

86 1305 
06 1306 
06 1307 
06 1306 
06 1309 
06 1310 
06 1311 

05 1312 

06 1313 
06 1314 
06 1315 
06 1316 
06 1317 
06 1318 
06 1318 
06 1319 
06 1320 
06 1321 
86 1322 
06 1323 
06 1324 
06 1325 
06 1325 
06 1327 

05 1328 

06 1329 
06 1330 
06 1331 
06 1332 
06 1332 
06 1333 
06 1334 
06 1335 
06 1336 
06 1337 
06 1338 
06 133S 
06 1340 
06 1341 
06 1342 
06 1343 
06 1344 
06 1345 
06 1346 
06 1347 
06 1348 
06 1349 
06 1350 
06 1351 
06 1352 
06 1353 
06 1354 
06 1355 
06 1356 
06 1357 
06 135a 
06 1359 
06 1350 
06 1351 
06 1362 
06 1363 
06nil364 
061111364 
06«il364 
06 1364 
06 1365 
06 1366 
06 1367 
06 1368 
06 1363 
06 1370 
06 1371 
06 1372 
06 1372 
06 1373 
06 1374 
06 1375 
06 1376 
06 1377 
06 1378 
06 1373 
86 1380 
06 1381 
06 1382 
66 13S3 
06 1384 
06 1385 
06 1386 
06 1387 
06 1388 
06al3a3 
06«1389 
06al3a9 
06nl389 
06inl389 
06iil389 
06el389 

65al3^ 133^ 5155351 78686Z5SZ1 4^3 75ZS^S3?lijuuvc) 
0601389 



13410 01073117009926373416162225431455099 

13411 01073199499000000056152025361455000 

13412 01073100600900999416162025421456090 

13413 01063617009096^4751152365571415808 

13414 01023117000006055416104365431415099 

13415 0i0730i78000060554iSiS23oD37?41So08 

13416 01863117090006055402115365571416000 

13417 010730200900203434007S202636145S000 

13420 540731 1700000G05541615232S42041E000 

13421 0102401700000605541E104365431415000 

13422 01073100400027051015152025421456000 

13423 01063017000026167021304225571456099 

13424 01 0731 00400027033055 15202S42 1456000 

13425 01063117000027033021504025571456000 



13300 01073017003000000361562225571456000 

13301 01063131000022665403756126370456000 



PUSHJtDCGC] HCJSn t 

jSTflRT IS" «EXT PfST DF THE TRfJBFER 
liaPFi0j Oia3«eT 12j HOT1I2.I OESTiQ] JUfPtTflPINTENBI NORff t 

;(TfiPf for OCGO. Enable for -FilTR BSY and -IP Oil GO. 
TftPEXFRDON: 

D(D«fiftl17] DESTEOl SHORT $ 

;GET DftTfl TO OR IN WAITING FOR FORMAT DONE BIT 
DtCONST 1) R0TI3S. - 11 ftLUIDORQj DESTtD««:«7] NORM % 

;wE CONTl!*£ ST F"rtTDC»i ON NEXT INTERRUPT. 
D!CO^ET 02] R0Tfl2.] DESTiQl NORM JUMPITAPINTENB] « 

;8ITS FOR JLST -FHT BLEY INTERRUPT ENABLE 

TftPINTENB: ;HERE WITH BITS FOR INTERRUPT ENABLES IN Q. 

D[D*AfEH21 ALUIDORQ) DESTIIOO] START-OUT NORH S 

;ENABLE FOR BITS Vi Q. 
riAPFCTP.UC] C800 

JLl^ff'[mIN) » 

;f*D RETURN FROfl THIS MICRO INTERRUPT. 

FMTDON: DCARl R0T[7] -OBLB<0 C550 JUHP[.l $ 
;HANG IF FORMfilTER IS STILL BUSY. 
D[D*flrEt171 -OeUS<0 C550 JUTPtlNT-WRTDONEl $ 
;JUnP IF ITS NOT A READ. 

.-HERE ALSO IF FORMATTER SHUT DOWN BECAUSE NOT ENOUGH DATA ON TAPE TO 
SATISFY 
: ThE CHANNEL'S COUNT. 

INT-RDOOrC: 

PUSHJ[ITRCHK] NORM $ 

:GET STATUS OF XFER INTO Q 
DtD«(MEM7} K)T[2] O8US<0 JUMPCINT-RDUCOK] C550 $ 

;IF NON-DATA OPERATION. DON'T CHECK FOR WORD COUNT. 
DtAR] RCT[1G. 1 -OBUS<0 JUMPCINT-RDUCOK] C550 t 

;JUrP IF NO PRCELEM WITH WORD COUNT 
DICONST 44] RGTL30. 1 ALUEDORO] DEST[Q] NORM S 

; RECORD WAS LONGER THAN WORD COUNT. SET LENGTH ERROR. 
INT-ROICOK: 

ALUCQ] DEST[D4AnEM2] NORM $ 

;STORE STATUS IN AMEMI2] FOR THE TRANSFER STATUS READING INST. 



SHORT $ 



TnPEPI: u[D^tM7j DE3ii«J 

:GET CONI WORD. 
D[CONST 101 ALU[DORQ] DEST [ D%AMEM7 1 NORM $ 

;SET INTERRUPT BIT FOR CONSO 
D[DSAMEf17] KSTtO AR] MASKt31 -OajS=0 JUTPIPIGENl C550 * 

;:F pi CHANNEL ASSIGNED. GO INTERRUPT. 
NEDI t 

.-CLElWED PI ASSIGNMENT OUT DURIfffi XFER? 

INT-WRTDONE: 

flLU[01 CIESTt0tAMEM2 Q! NORM » 

:aEAR OUT ACCUMULATED STATUS 
D[AR1 R0T[32.1 OajS<0 JUMP[. + 21 C550 « 

jJUMP IF NO HARD ERROR 
DCCONST 51 R0TI33.] ALU[D0R01 DEST[D*AnEM2 01 PUSHJ[KNYRS11 « 

;HARO ERROR. SET 1B0 FOR ANY ERROR. 1B2 FOR WBD WRITE ERROR 
OCAR] RaT[34.1 O8US<0 C550 JUrP[TAPEPI] $ 

;IF EOT NOT SET. JUST CAUSE PI ON PROPER CHANNEL. 
DiCONST 63 R0Ti33.] ALUiDORQl DEST i D»AMEM2 ] jUfPJTAPEPlJ NORfi S 

;EOT. SET IT IN AMEM AND GO CAUSE PI 



TPCONI INSTRUCTION. DPCOOe 733. 
18 MEANS INTERRUPT HAS KEN REQUESTED. 
33-35 PI ASSIGNMENT. 

.REPEAT IWITS I 

.ORGtTfiPE-DISPATCH + 121 
];[ 

.ORG[TAPE-DISPATCH + 121 
[ xlist 

list 11. REPEAT WAITS 
TPCONI: 
.REPEAT 1 - WAITS ( 

UI0TRP[MUU01 $ 
I;. REPEAT 1 - WAITS 

START-IN DCCONST 61 R0T[15.1 DESTCI31 PUSHJITPCONIBTSl NORM $ 

.•GET THE HI ORDER CONI BITS 
DtD*AfEM71 MASKtlS.l ALUIDOROl SMAC [ IFRO DESTtMEHSTO AR) 
C0ND[MA<281 LBJUMPCSEOIl ]$ 

;STOR£ CONI BITS INTO EA. 

;ALSO STORE INTERRUPT STATE BITS FOR DEBUGGING. 

;CAUTION: Still in dispatch table under WAITS switch 

.REPEAT WAITS [ 

TPCONSZ: START-IN D[CONST 61 ROTiiS.l OESTlQl PUSHjiTPCONIBTSJ NORM » 
;GET THE HI ORDER CONI BITS 
D[D«Af1EM7] MASKI15.I ALUCDORQl DESTIQ] NORM JUMPtXXCDNSZl $ 
;STORE CONI BITS INTO Q AND 00 USUAL CONSH THING 
TPCONSO: START-IN D[CONST 51 ROTdS.l OESTEQ] PUSHJCTPCONIBTSl NORM « 
:GET THE HI ORDER CONI BITS 
0[D»AnEM71 MASKClS.l ALUtOORQl DESTtQl NDRtI JUMPIXXCOHSOl S 
;STORE CONI BITS INTO Q AND 00 USUAL CONSO THING 



13302 01073617803000000361562225571455000 

13303 01063017000025523403762026371456000 
13364 01073017003000000361562225571456600 



];[ 

TPC0NS2: 



TPCONSO: 



.RELOC 

START-IN OtCONST 61 ROTtlS.l OESTCQl PUSHJITPCONIBTSl NORM S 

jGET the HI ORDER CONI BITS 
D[D*AMEM7] MASKIlS.l ALU[OORQI DESTtQl NORM JUMPIXXCONSZl $ 

.-STORE CONI BITS INTO Q AND 00 USUAL CONSH THING 
START-IN DCCONST 61 R0T[15. 1 DESTtQ] PUSHJITPCONIBTSl NORM S 

:GET THE HI ORDER CONI BITS 

DiDXnoLi^f] nRSKL lb< J ra_u [ DuKu J uc-BTluj nurai JumP [ XXCuri3u i * 

.-STORE CONI BITS INTO Q AND DO USUAL CONSO THING 
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ee 1393 

36 13S1 
86 139Z 
eS 1393 
96 IS* 
86 1395 
86 1396 
86 1397 
36al3ae 
86nl398 
8691396 
86 1396 
86 1399 
86 1488 
86 1481 
86 148Z 
86 1483 
86 1484 
86 1485 
86 1486 
86 1486 
86 1487 
86 1488 
86 1489 
86 1418 
86 1411 
86 141Z 
86 1413 
86 1414 
86 1415 
86ail416 
e6i>1416 
86(111416 
86i>1416 
86i>1416 
e6(>14!6 
86«1417 
86 1416 
86 1417 
86 1418 
86 1419 
86 14Ze 
86 1421 
86 14Z2 
86 1423 
86 1424 
86 142S 
86 1426 
86 1427 
86 1426 
86 1429 
86 1438 
86 1431 
86 1432 
96 1433 
86 1434 
86 1435 
86 1436 
86 1437 
86 1436 
86 1439 
06 144« 
86 1441 
86 1442 
96 1443 
86 1444 
86 1445 
86 1446 
86 1447 
96 1448 
86 1449 
86 1458 
86 1451 
86 1452 
86 1453 
86 1454 
86al455 
86al455 
86nl455 
86 1455 
86 1456 
86 1457 
86 1458 
86 1459 
86 1468 
86 1469 
86 1461 
96 1462 
96 1463 
86 1464 
96 1465 
86 146E 
96 1467 
86 1468 
86 1469 
96iil47e 
96iiil478 
96ml478 
96al478 
96al478 
86=1478 
86al479 
e6ial478 
86011478 
e6ml47e 
96 1479 
86 1471 
96 1472 



13276 918731894808988887^152225761455800 



13277 81877817800990001491762925571455089 



13426 91973188600827969776162925761456008 

13427 019779170000060SS4037E236S577416000 
13438 81954917000006055416162366377416900 

13431 91963117800826161480716925771456080 

13432 91873117900026255416162225431456080 

13433 91973117900026167416152925431456900 



13279 81973131900822555416156126130456900 



13271 81973117000896055415152365431416800 

13272 91873117099819211415152825431456008 

13273 91073117990896055416162365431416000 

13274 91073117000010211416162825431456008 

13275 91073117990886855415162365431416888 



jTPCOiE INSTRUCTIOK. DPCOOE 734. 
; 190 rEfWS CLEfiR FOWITTER. 
; 29 ^EflNS CLEfH INTERRUPT FLfC. 
J 33-35 fKE TO SET PI ASSIGMENT. 

.REPEAT UfllTS [ 

.ORGETflPE-DISPfiTCH + 18] 

.ORGCTfPE-DISPfiTCH + 18] 
[ xlist 

list 11. REPEAT WAITS 
.REPEAT 1 - WAITS [ 
TPCHNO! UI0TRP[MUU01 » 
];. REPEAT 1 - WAITS 

DtlRl RaT[23.] CIBUS<0 [1550 PUSHJ [ TAPCLR 1 « 
;IF 100 BIT IS SET. CLEAR THE FCRtlATTER. 
.REPEAT 1 - WAITS [ 

■.Only the .reloc really needs to be under WAITS suitch. The JLK> x<d 
NORM 

;are done separately to nake BINCCX1 succeed. 
DtCONST 71 fiLUCNOTDl DEST[Q] SHORT $ 
;nASK TO CLEAR PI ASSIGMtNT 
];. REPEAT 1 - WAITS 
.REPEAT WAITS [ 

DICOKST 71 «.U[N0TD1 DESTtOl JUMPCTPCDN02] NORH « 
;MASK TO CLEAR PI ASSIGMtNT 
•reloc 
TPC0N02: 
]:[ 

DICONST 7] ALU[N0TD1 DESTCQl JUMPITPCONOZl NORM « 
;nASK TO CLEAR PI ASSIGNMENT 
-reloc 
t.USEEHILXl 
L xlisi 
list 
]. REPEAT 



1 1TPC0N02: 

WAITS 

DciR] R0T[3i.i -oajs<e esse jumpi. + 21 $ 

;JUM' IF NOT CLEARING IT 
DtCDNST 171 ALU[NOTD! DESTIO) SHORT $ 

vCLEnRING I?iTER??JrT FLAG. GET DIFFERENT nnStC 
D[D«tf1Efl7] ALUID&Q1 DEST[Q1 SHORT $ 

;CLEAR OUT PI ASSIGNMENT AND MAYBE INTERRUPT FLAG 
DCIRl MASK[3] fLUIDORQl DEST[DtAttn71 NORM JUHP[TAPE0I1 » 

sSTORE PI ASSIGNMENT IN A-nEM[7] AND RETURN FROM INSTRUCTION. 



TAPCLR: PUSHJtXINITl NORM » 

:GET RID OF INTERRUPT ENABLES, RESET CHANNEL 
JUMP[KNYCLR] NORM S 

;ANO CLEAR FCRHATTER AND DRIVE. 



TPCNSO - OPCODE 735. 
SKIP IF BITS IN EA ARE SET. 
SEE TPCONI FDR BIT ASSIGNMENTS. 



.REPEAT 1 - WAITS [ 



TPCNSO: UIOTRPJMLJUOl i 

START-IN DCCONST 61 R0T[15. 1 DESTtQ) PUSHJ [TPCONIBTSl NORM S 

;GET THE HI ORDER BITS INTO Q. 
DtD*AMEI17] MASKtlB.l ALUtDORQl DEST!Q1 SHORT $ 

;GET WAT BITS ARE. 
DtMAl ALUEDaOl C0NDSKPI-ALU=8] » 

;IF ANY MASKED BITS ON => SKIP 

.-LEAVE OUT TPCNS2, DON'T WASTE THE SPACE. 

];. REPEAT 1 - WAITS Cincludcs coranent because WAITS includes C0NS2) 

;TPOATI - OPCODE 736 

;RETURNS TRANSFER STATUS (BITS, ENDING ADDRESS) TO C(EA). 

.REPEAT WAITS [ 

.GRG[TAPE-DISPATCH + 2] 
1;I 

.ORG[TAPE-OISPftTCH + 21 
t xlist 

Irst 11. REPEAT WAITS 
.REPEAT 1 - WAITS [ 
TPDATI: UIOTRPEMUUOl $ 
];. REPEAT 1 - WAITS 

DCDtAMEMZl SMAC [ IFRQ DEST[rtfSTO ARl C0ND[nA<2ei LBJUMPCSEOIl 
IS 

: STORE STATUS SAVED ON LAST XFER TO CCEA) 
.REPEAT WAITS [ 



NOP $ 

JUMPinUUOl $ 
NOP $ 

JUfFiflULei $ 
NOP $ 

.RELOC 

NOP S 

JUWtMUUOl $ 
NOP $ 

JUMPIMUUOl $ 
NOP $ 



;BLKO 
;DftTHG 



;BLKO 
;DATAO 



.RELX 
[.USEtHILXl 
[ xlist 
list 1 



IIREPEAT WAITS 



06 1474 13434 81864817823006055416162365711416000 



MAPFITP.RCl DCIXl ALU[D8,ai DEST[Q1 C800 START-IN t 
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06 I'tee 

06 14B1 13«7 0i0G30i7eeeeaG0s+3603BZ*zs57i4iEeee 

06 U8Z 
06 1483 
06 1+84 
06 1081 
06 1082 
06 1083 
06 1084 
06 1065 
06 1086 
06 1067 
06 1088 
06 1089 
06 1090 
06 1031 
06 1092 
06 1093 
06 1094 
061111095 
06*1095 
06nl095 
06iil095 
06ml095 
06iiie95 
06aie95 
06*1095 
06aie95 
06aie95 
06 1095 
06 1096 



;REiU(?N IF FtKTIftTTER IS 
D[Ct)NST 1) ROTEX. - 20.1 
;FG(81f!TiER IS SUSY, SET 
;1B28 = FQRTi^TTER BUSY 



IDLE. 

M-UtCORal DESTCQ] NORT) POPJ t 

T!C SIT. 



];TflPE 



:ThES prcbably should be scssei^^src else... 
.REPEAT HftlTS t ;If WAITS 

.REPEAT 1 - LPT [ ;and no LPT 

.REPEAT 1 - STMtSH t ;and no PAN 

;General CONSZ/CONSO terai nation 
XXCONSO: 

OUR] mSK[22] ALUID&0] CaM)SKP[-M_U=0] C 
XXC0NS2: 

DllRI neSKi2Zl ALUriXO] nM3S»CP[ALU=0] s 
]:. REPEAT 1 - STANSW 
];. REPEAT 1 - LPT 
J;t ;If WAITS 

.REPEAT 1 - LPT [ ;and no LPT 

.REPEAT 1 - STANSW [ ;and no PAN 

;General CONSZ/CONSO tern i nation 
XXCONSO: 

D[IR1 nASK[2Zl ALUID&Q] CI»DS)CP(-flLU=0] S 
XXCONSZ: 

0[IR] HASKCZZl ALUtO&Ol CCIOSKP[ALU-«1 « 
1;. REPEAT 1 - STANSJ 
];. REPEAT 1 - LPT 
]. REPEAT WAITS 
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e? 1037 
37 1938 
07 1033 

87 nee 

07 1101 

07 1102 
07 1103 
07 1104 

07 lies 

07 1106 
07 1107 
07 1106 
07 1109 
07 1110 

07 nil 

07 1112 
07 1113 
07 1114 
07 HIS 
07 1116 
07 1117 
07 1118 
07 1113 
07 1120 
07 1121 
07 H22 
07 1123 
07 1124 
07 1125 
07 1126 
07 1127 
07 1128 
07 1123 
07 1130 
07 1131 
07 1131 
07 1132 
07 1133 
07 1134 
07 1135 
07 1136 
87 1137 
07 1138 
07 1133 
07 1140 
07 1141 
07 1142 
07 1143 
07 1144 
07 1145 
07 1146 
07 1147 
07 1148 
07 1149 
07 1150 
07 1151 
07 1152 
07 1153 
07 1154 
87 1155 
07 1156 
07 1157 
07 1158 
07 1159 
07 1160 
07 1160 
07 1161 
07 1162 
07 1163 
07 1164 
07 1165 
07 1166 
07 1167 
07 1168 
07 1169 
07 1170 
07 1171 
07 1172 
07 1173 
07 1174 
07 1175 
07 1176 
07 1177 
07 1178 
07 1173 
07 1180 
07 1181 
07 1182 
07 1183 
07 1184 
07 1185 

07 lies 

07 1187 

07 1188 

07 1189 

07 1190 

07 1191 

07 1132 

07 1133 

07 1194 

07 119S 

07 1136 

07 1137 

07 1138 

07 1199 

07 1200 

07 1201 

07 1202 

07 1204 



.REPEAT TS£K3T [ 

;aQOTSTRflP LOADER FOR nfCROCOOE. 

MBCDT: OECONST 0] ROTiJrEfl-P-ROTl OESTtJ^En-P] * 

; Reset JfEfl pdl ptr 
OimK] CESTifiLUl 03 S 

;5ave count of files to load. 
0[CC»ET 7] DEST[DeV-(WRl PUSHJ[KNYaR] » 

;Reset tape ctrlr 
PUSHJtTflPERUI S 

;RcMind the tape. 
flLUtl^LUl Q-11 DESTCQ! -OajS<0 JunPIMBOOTl] $ 

;Get count of files to load. 

;Clear meaory only if bit is on. 

DcmsK 18.1 ocsTcm] pusHJicLRtEni K«n % 

;Clear soae nemory. 

mOOTl: MflPFtTP.WI] START-OUT 

DtCONST 1) ROTtSS. - 26.] DESTtlOO] C-OUT « 
-.EHfBLE THE FORHflTTER. 
mPFITP.WFl START-IN ALUC01 OEST[QI CB00 « 

;REflO STATUS BITS. 
MAPFITP.RS] DtlOO] ALUENOTO] DESTIAR] C800 S 
DtftR) ROTtlZ. ] -OBUS<0 JUnPtrBOOTU $ 
lUait until tape is at load point. 



MBOOTR: DtCONST 7] DEST [ DEy-ADR 1 CYLENILGNG] PUSHJttCNYRGO] « 
;Select device 7, start read. 
PUSHJ[KNYWAIT1 * 

:l4ait for first byte. 
MAPFiTP.RC] START-IN D[IC»1 HLUINOTDl DESTtHOLDl C800 
PUSHJtrSTBYX) $ 

;Read 1st byte of new record. 
ALUI0] DESTCtlA] NORM JUnPtP2A] S 

;Clear MA and enter readins loop. 

.•All DCMEMl's here reading fron HOLD. 

P2: OrMAl ALU[D+1] OeSTCMA) PUSRJIMBTBYTE] NORM % 
P2A: DCMEMl R0T[34] DESTCQ] PUSHJ [ MBTBYTE ] NORM * 

0[MEM] R0TCZ4] ALUCOORQl DEST(Q] PUSHJ t MBTBYTE ] NORM $ 
OIMEM] R0T[14] ALUtOORQ] DEST[Q] PUSHJ (MBTBYTE] NORM % 
DEMEM] R0T[41 ALUtDOWl DESTIQ] PUSHJ [fBTBYTE] NORM $ 
DEMEM] MfiSKE4] ALUEDORQl DESTEHEMSTOl NORM JUtf>EP2) « 



MBTBYTE: 

OECONST 35] ROTELLOAD-ROT + 1] DESTELLOADl NORM » 

;5et loop counter to do tineout 

; (TIMEOUT ABOUT 78 USEC) 
START-IN HCRn t 

;Ask tape for a byte and status thereof 
MBTBYl: MAPFETP.RC] DEIOO) OESTEHOLO) CB00 L0GP(MBTBY2] $ 

;Read byte and status. Byte cobcs coHpleacntcd. 

;Result is put in HOLD to avoid synchronizer proble 

;Dc tineout chack and branch if still Maitin^ 
START-IN NORM PUSHJ E rBTCHEC^C ] % 

;Byte Masn't ready in tine. Go find out i-ily 
PUSHJ iKNYRGOl S ;START NEXT RECXRD. 
NORM PUSHJ (KNYUAIT] $ 

MAPFETP.RC] START-IN DEIOD] ALUENOTOl OESTEHOLO] CB00 
PUSHJ EHBTBYX] % 

;Read 1st byte of new record. 
NORM SPECEHU-POPl JUMPEP2A] » 

;£30 for another record 



MBTBY2: 



START-IN DEMEM] R0TE26. ] -<BUS<0 C550 JUMPtrBTBYU $ 

;Check for byte ready (this is a two instruction loop) 
:Start setting byte and status again in case we have 
; to loop 

START-IN MAPFETP.RC] DEIDOl ALUENOTD) OESTEHOLO] C80e $ 
;READ THE DATA AGAIN (NOU THAT IT'S STABLE !) 

HAPFEU DEfEMl MASKEie] DESTIHOLD] CS50 POPJ » 
jHAPFEU clears byte ready 
;Extract data byte fro» other status inforaation 



KNYUAIT: ;Uait for first byte of read data (BOOTSTRAP aode only) 
START-IN SHORT % 

tlAPFEl] START-IN DECONST 771 RaTE12.1 OESTCAR] NORM S 
:Clear read data ready flag 
KNYWl: MAPFETP.RC] DEIQOl OESTEHOLO] CSee $ 

START-IN DEMEM] R0TE2S.1 OBUS<0 POPJ C550 $ 
;Return if READ DATA ROY is now on. 
START-IN DEAR] ALUIO-11 DESTIAR] C5S0 -Oaj5=0 JUMPEKNYHl] $ 
Na»1 PCS=J f 



START-IN NORM PUSHJ E FMNBWT 1 * 

;Uait for FORMATTER IXE. 
DEMEM] R0TI32.] C5S0 -O6US<0 JUMPirfiTERR] * 

;Chec(< for error status. 
DEftM] R0TE33.] C550 DBUS<0 POPJ $ 

;If cnd-of-file not seen, return for nore, else done. 
ALUE0] OESTEQl NORM $ 

;Clear lights to indicate no errors. 
MBTDNX; ALUE0] DESTEDEV-ADR] NORM « 

;Setup to display code in lights 
;Select APR 
ALUE<3] DESTED»flrEni71 NORM $ 
;Load lights fro« Q. 

:: nrniAfirni'^l M^^^r?! riF'^Tf™] rryg^ f noi jc— q i Jijf*pf , i NHStl 

;; ;UAIT FOR A SWITCH. 



SLOE Harch 23, 198't 21:17:85 file DSK:F'HD.SLD 



of 



F+IWF 



87 1216 
e? 1211 
07 1212 
07 1213 
07 12H 
07 1Z15 
07 1216 
07 1217 
07 1218 
07 1213 
07 1220 
07 1221 
07 1222 
07 1223 
07 1224 
07.1225 
07nlZ25 
071.1225 
07>1225 
07«1225 
07«1225 
07»1225 
07«122S 
07»il22S 
07b1225 
07i«1225 
07i«122S 
87fil225 
e7«1225 
07.1225 
07i<1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
071.1225 
07.1225 
07.1225 
@7b122S 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.12ZS 
07.122S 
9?is!22S 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
87.1225 
07.1225 
87.1225 
87.1225 
07.1225 
87.1225 
87.1225 
87.1225 
87.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07.1225 
07ml2Zb 
07.1225 



134+0 01073117000036054000006355571417000 

13441 01073057000006855416152355431416000 

13442 01073117004025167401546225571457000 

13443 01073117000026513416162225431456000 

13444 glg21848Se9S8e©S141BlS202543145S8ee 



13445 71073117000000001404562224731456000 



13446 8187311784318G8542283S23SSSS14IE000 

13447 01024017023006055416162365411416000 



13450 0107713704000G05541616236571 1416000 

13451 01073100600027114316162025431456000 



13452 01073117004026173401646225551457000 

13453 01073117000000001415162225431456000 

13454 01077117023000001416150225711456000 

13455 7i824ii78eeeeeeei4i5i52ezs43i4sseee 



13455 7U7011700000000141E15222S671456000 
13457 81873ei7e80ee8«8871SlS2ZZ547155S088 

13450 01063017080000000516162225471556000 

13451 81063017000000000315152225471556000 

13452 01063017000000000116162225471555000 
13463 01063117000027135401156025471555000 



13464 01873117001006054027200365571417000 

13465 01873117003006055415152365431416000 

13466 01873107020000001416150025711456000 

13467 01073117003000001415162225431456000 

13470 01073117000026173416162225431456000 

13471 01073117000000001415152225431456000 

13472 01077117023000001416150225711456000 

13473 01873117000327137416162025431456000 

13474 01073180603027154556162025451556000 

13475 01077117023806055416150365711415000 

13476 81073117818006855482150425461516800 



13477 01073117003006055415162365437416000 
13500 01073137013086054317762365571416000 



13501 01073117020006055415150365711416000 

13502 01873100403886054556152425461515000 



13503 01072128003027203416162825421456000 
13584 01073117000006055416152425431415000 



ISbeti 010,^1 l,^^B30Z5Zlb4151BZZZb4314b600B 



;See if i^e sNDuld load more files. 
D[CC9eT 12] DEST[ftRJ jmP[H.TLX] $ 

:Ha t it's t!»e to quit- Get propsr halt code and halt. 

fIBTERR: flLU[-l) DESTEQl jmPEMBTDNXl * 



iCLEAR MEM STARTING ST fW CiN SOiSi 

CLRTEM: i^UO! DESTtPEMSTO] HtSStl S 

.-CLEfW THIS Oft 
DIMfil ftLUtD-ll DESTtrWl COND[-aBUS<01 JUW[. - 1] C600 $ 

;CONTINUE TIL flft GOES NEGATIVE (JUT DID 8) 
POPJ tORTI % 

1 t 

: BOOTSTRAP LOADER FOR MACROCODE. 

MBOOT: D[CONST 81 ROT[jrErt-PH?OTl DESTUMEM-P] $ 
; Reset JflEH pdl ptr 
DEAR] DEST[ALU1 Q] $ 

;Save count of files to load. 
DICONST 7] DEST[Dev-ADR] PUSRJ I KNYCLR ] $ 

;Reset tape ctrlr 
PUSHJ[TAPERW] S 
;ReMind the tape. 

;Get count of files to load. 
;Clear memory only if bit is on. 
DCMASK IB.] DESTEMA] PUSHJ [ CLRTEn 1 NORM $ 
;Clear soi.e aemory. 

tBOOTl: mPFtTP.Wnl START-OUT 

BICONST 1] R0T[35. - 25.] DEST[IDD] C-OJT S 
; ENABLE THE FORMATTER. 
nfiPF[TP.WF] START-IN ALUt01 DESTtQl C800 $ 

;READ STATUS BITS. 
mPFITP.RS) DtlOO] flLU[NOTD) DESTCflR] C800 S 
DtAR] R0TI12.] -CBJS<8 JUMPEreoOTl] $ 
;Uait until tape is at load point. 



MBOOTR: DCCONST 7] DESTtDEV-AOR] CYLENILONG] PUSHJtKNYRGOJ » 
;Select device 7# start read. 
PUSHJ[KNYWAIT] $ 

;Uait for first byte. 
riAPFITP.RC] START-IN DtlOO] ALU[N0TD1 OESTCHOLD] C800 
PUSHJCriBTBYX] $ 

;Read 1st byte of new record. 
fS_U[0] DEST[f1A] KFM JUfy[P2fi] £ 

;Clear KA and enter readins loop. 

;A11 DinEMl's here reading fro. HOLD. 

P2: DCMAl ALU[D+11 DESTtnA] PUSHJIMBTBYTEl NORtI * 
P'ft : D [ MEM ] ROT 134] DEST [ * ] PU&L! I fSTBYTE ] MC^ S 

DlrEH] RCT[24] ALLKDORQ] DESTIQl PLBHJ [ MBTBYTE ] NORM $ 
DtfCn] R0T[14] ALUtDOROl DESTIQ] PUSHJ [ HBTBYTE ) NORH S 
DIHESIl R0T[4] ALUtCORQ] DESTtQl PUSHJ [ tBTBYTE ] NORM « 
DinErt] nASK[4] ALULDORQ] DESTtttflSTO] NDRH JUnP[P2] « 



fBTBYTE: 

DICONST 35] ROTCLLOAO-ROT + 1] DESTILLOAD] NORfl « 

;Set loop counter to do ti.eout 

;CTlnEOUT ABOUT 78 USEC) 
START-IN N0W1 * 

;Ask tape for a byte and status thereof 
HBTBYl: mPF[TP.RC] D(IOO) DESTIHOLD] CB00 LD0P[mTBY2] « 

;Read byte and status. Byte co.es co^sleoiented. 

;Result is put in HOLD to avoid synchronizer problcs 

?Dg t i Hsou t check a?^d branch i f st i 1 1 ^^ i t i n^ 
START- IN NORM PUSHJ I nBTCHECK ] $ 

;Byte wasn't ready in ti.e. Go find out uhy 
PUSHJ [KNYRGO] $ ; START NEXT RECORD. 
NORfl PUSHJ (KNYWAIT] $ 

riAPFITP.RCl START-IN DtlX] ALUCNOTO] OESTIHDLD] C800 
PUSHJ [fBTBYXl « 

;Read 1st byte of new record. 
NORM SPECtnj-POPl JUnPtP2A] $ 

;Go for anothra" record 

rOTBY2: 

START-IN 0[flEH] R0TE25.1 -{)BUS<0 C550 JUtF[HBTBYl] t 

;Check for byte ready (this is a two instruction loop) 

;5tart setting byte and status .gain in case we have 

; to loop 
START-IN HAPFITP.RC] DdOO) ALUtNOTD] DEST[HOLD] CB00 S 

:REAO ThE DATA AGAIN (NQU THAT IT'S STABLE !) 
MBTBYX: MAPFtl] DCftM] nASK[10] DEST[HOLD] C550 POPJ % 

;HAPF[1] clears byte ready 

;Extract data byte fro. other status infor.ation 



KNYWAIT: ;Uait for first byte of read data (BOOTSTRAP ao6e only) 
START- IN SHORT $ 

MAPFdl START-IN DICONST 771 R0T[12.] DESTIAR] NORM $ 
;Clear read data ready flag 
KNYUl: MAPF[TP.RC] DtlOD] DESTIHDLDl C500 « 

START-IN D[l1En] RaT:2S. 1 OBUS<0 POPJ C550 $ 
jReturn if READ DATA ROY is now on. 
START-IN DLAR] ALUID-U XSTtAR] C550 -CaJS=0 JUMPCKNYHll * 
NORM POPJ * 

fBTDCCK: 

blAKI-IN NOKM f-USHJlFMHaWTl S 
:Wait for FORMATTER IDLE. 



SLOE Harch 23, 1984 21:17:13 file STRING: 



of 



F+INNF 



e7miz25 13511 eie24ii70e4ease55'TiE0TB3e5'i3Hi7e8e 

07m 1225 

87nil225 

e7iiil225 13512 8 16231 i7e380aseSS41£l 363854314 15886 

07m 1225 

07iiil225 

07m 1225 

07ml22S 

87!!!i225 

07m 1225 

07m 1225 

07ml225 

07ml225 13S13 01021042200627125415152025431456806 

07m 1225 

07ml2Z5 13514 01073137000622423402562025571456000 

07m 1225 

07ml225 

07ml2Z5 13515 01072017800627223400152025571456000 

07m 1225 

07ml225 

87ml225 

07m 1225 

07ml225 13515 01024117000086855416156355431415066 

07m 1225 

07ml22S 13517 71872180606027235415152025651456866 

e7ml22S 

07b1225 13520 01073117080086055416162425431416060 

87ml 225 

87 1225 

87 1226 

07 1227 



fBTDNX: ftLU[3J DEST[DEV-PlORl NORM $ 

;Setup to display code in lights 
;Select APR 
ftLUIQ] DEST[0%f!t1E(1171 NORM t 

;Lo3d lights from Q. • • 



D[D3ift«t1151 MASK[21 DESTIARl COND [ 06115=0 1 JLWt.l NORM * 
;Wft!T FDR fl SWITDH. 
;CHECK STftRT ftlUD CQNT SUITCHEE. RD NEXT FILE QfJ CONT 
DtflRl HflSK[l] COTB[-O8US=0] JUnP[GOt1ST0] C550 $ 
; ... START HflIN HICROCOCE ON START SWITCH. 

ALUiflLUl Q-IJ DESTIQ] -0BUS18 JUnP[tBDOTR] NORH $ 

;See if uie should load more files. 
DCCmST 121 OESTlPlRl JUMPIHLTLX] $ 

;No, it*s time to quit. Get proper halt code and halt. 



MBTERR: flLUt-lJ DESTIQ] JUMP[rfflTl»X] $ 



;CLEAR MEM STARTING AT m [W DOWN 

CLRftn: ALUI01 DESTErtnSTOl NORM » 

;CLEAR THIS OtC 
DtPIA] ALU[D-11 DESTtfIA) C0ND[-OBUS<81 JUMPC . - 11 CS0e t 

:CONTINUE TIL MA GOES NEGATIVE UUT DID 9) 
POPJ NORM t 

];TBOOT 



SLOE March Z3. 1984 21:17 = 15 file OSKiFtlD.SLO — 

08 1ZZ8 
98 1229 

m izae 

08 1Z31 

es 1Z3Z 

08 1Z3Z 

ee 1Z33 

08 1Z3+ 
08 1Z35 
08 1Z36 
08 1Z3G 
08 1Z37 
08 1Z38 
08 1239 
08 1240 
08 1241 
08 1Z4Z 
08 1243 
08 1Z44 
08 1245 
08 1246 
08 1247 
08 1Z48 
08 1Z43 
08 1250 
08 1Z51 
08 1252 
08 1253 
06 1254 
08 1255 
08 1256 
88 1257 
08 1258 
08 1253 
08 1250 
@8 1251 
08 1252 
08 1263 
08 1264 
08 1265 
08 1265 
88 12SS 
08 1267 
08 1268 
08 1258 
08 1263 
08 1270 
08 1271 
08 1271 
08 1272 
08 1273 
08 1274 
08 1274 
08 1275 
08 1Z7S 
08 1277 
08 1278 
08 1273 
08 1273 

08 izee 

08 1Z81 

08 1282 

08 1283 

08 1284 

08 1284 

08 1285 

ee 1286 

06 1287 

08 1287 

06 1288 

08 1283 

08 1230 

08 1230 

08 1231 

08 1232 

06 1233 

08 1234 

08 1235 

08 1236 

08 1297 

08 1296 

08 1239 

08 1300 

08 1301 

08 130Z 

08 1303 

08 1304 

@6 1305 

66 1306 

08 1307 

ee 1308 

66 1303 

06 1310 

08 1311 

ee 1312 

ee 1313 

ee 1314 
ee 1315 

06 1316 

ee 1317 

ee 1318 

ee 1313 

ee 1320 

ee 1321 

es 1322 
08 1323 

ee 1324 

08 1325 



of — F41NNF 
;CTY 

.REPEftT CTY I 



CTY - Console Teletype 



Device 120 



ft-rtEfl Usage 

CTY-OISP = 
CTY-CONT = 
CTY-STftTUS - 



40 
41 
42 



;Instruction and interrupt dispatch 
;Ct)ntrol bits for LWRT, etc. 
;Firinuare status 



»»« Meanings of hardware bits sr.ould be documented here. 
MAPF values 



TTY.DI = 
TTY.WD = 12 
TTY.MC = 14 



;raad data 
;wr i te data 
;wr i te control 



.opcode[7121 :CTY & LPT 

DCCONST 41 DESTLDEV-lWR) NORM CONDt-USERl LBJUnP[CTYiaTl $ 
DICONST 41 DEST[D£V-fiCIR) NORM CDNOI-USER) LBJLWICTYIQT] $ 



.RELiX 



CTYDSP: ILEIOT $ 
:BL<I 

!LG!OT $ 



;DflTftI 



;BLKQ 



;COM) 



:CONI 



;ccmsz 



;CCWSO 



Dt CTY-STftTUS 1 C)eST[0] SPEC tICB- INI NORM » 

MflPFCTTY.DIl DIIOO] DEST[(«1 JUMPtCTYDIl CYLENCIQB-INl $ 

ILGIOT S 

ILGIOT $ 

DFRQ flLU[MEMflCl DESTCHOLD] * 

:Get CCE3 fro« either nenory or PC%- 
D[CTY-STftTUSl DEST[Q] JUMP(CTYC»1 M3RI1 t 
; GET C»II BITS 

DtCTY-STl^TUS] fWSK[71 CESTiQl NCRM $ 

; GET CONI BITS 
ClIR] MftSKI?) ROTC40] flLUt-O&Q] DEST[Q1 JUTPtCTYCOl NORM » 
:CLR THE aR BITS 

DECTY-STflTUSl DESTCQl PUSHJ[CTYCI1 NORM SPECtlCB-INl $ 

D[(W) SflflC $ 

D[CTY-STflTUS) DESTCai PUSHJCCTYCI] NORM SPECCIOB-INl S 

D[IR1 MftSKtlS.] DEST[Q] JUtVECTYCZl NORM S 

DECTY-STflTUS] DEST[Q) PUSHJICTYCII KFII SPECtlQB-IN] $ 

DtIR) rWSKClB. 1 OESTIQ] JUrP(CTYCS) WRM * 



for LPT dispatch 
to put it 



LPTDSP: 

-REPEAT 1 - LPT [ 

.REPEAT 10 I ILGIOT S 
ILGIOT % 
];. REPEAT 10 
];. REPEAT 1 - LPT 



.REPEAT LPT t jAllocate 

:. + 20 

.repeat 1 - Msitsf ix i ;Th is is a si 11/ pi 

.insert F4LPTX ;LPT code 

];. repeat 1 - waitsfix 

];. REPEAT LPT 



;;;CTY and G0 H2 CLOCK INTS COME HERE 

CTYINT: ;;; 6eH2 elk shares DEV 4 w/ CTY. 
START-IN SHCRT $ 
MftPFCS] D[IOD] ALU[NOTt)] DEST[AR1 CS00 $ 

;Read the NET interface status... 
OtAR) HAStCtll esse -CBUS=0 JUnP[CLKINTl $ 

;Is 50H2 elk request in9 an int. ? Jun 
NORH JUMPrCTYINll * 

;Else it is the CTY's turn. 



;Ue branch here fron CTYINT if intrpt. is really 6eHZ CLK. 

aKINT: START-OUT flLUtei DESTtlODI NORM $ 

;Clear ha-ckiare int. enb. for 60HZ CLK. 
flftPFISl CG00 » 



ee 1327 



CLR-DEV-FROM-INTR PUSHJ [ TYHCLK 1 C600 * 



SLOE March 23. ISa^* 21:17:23 file DSK:F4I0.SLa 



of 



Fiiwr 



ee 1333 

88 133^ 

ee 1335 

ae 1336 

ee 1336 

eS 1337 

ee 1338 

ee 1333 

88 1318 

ee 1311 

ee 1312 

eS 1313 

ee 1313 

ee 1311 

ee 1315 

ee 1316 

ee 1317 

08 1318 

08 1313 

ee 1350 

08 1351 

08 1352 

08 1352 

08 1353 

08 1351 

08 1355 

08 1356 

08 1357 

ee 1358 

08 1359 

06 1360 

ee 1361 

ee 1362 

ee 1363 

ee 1361 

ee 1365 

08 1366 

ee 1367 

ee 1366 

ee 1369 

ee 1369 

0U 1370 

ee 1371 

ee 1372 

ee 1373 

ee 1371 

ee 1375 

ee 1376 

ee 1377 

ee 1376 

ee 1379 

08 1380 

06 1361 

ee 1362 

06 1363 

ee 1363 

88 1361 

88 13SS 

ee 1385 

as 1388 

ee 1387 

ee 1386 

ee 1369 

ee 1390 

06 1391 

ee 1392 

ee 1392 

ee 1333 

ee 1393 

ee 1331 

ee 1391 

ee 1395 

ee 1396 

ee 1336 

ee 1397 

ee 1398 

ee 1338 

88 1339 

86 iiee 

ee 1181 

ee iiei 

ee 1102 

88 1183 

66 1101 

ee 1105 

ee nee 

ee 1107 

ee nee 

88 lies 

06 1110 

ee 1111 

ae 1112 

88 1113 

86 1111 

88 1115 

ee 1116 

88 1117 

ee 1118 

86 1119 

08 1120 

ee 1121 

ee 1122 

ee 1123 

ee 1121 

ee 1121 

ee 1125 

ee 1126 

ee 1126 

66 1127 

ee 1128 



CLKRDFLG: ;Put hardware E3H2 O-K FLfC into (W3S. 

STfST-!N D[CONST B] DEST [ D£V-ira)RESS ! NOW 8 

;3eiect device S- 
fWPFISl DIIODl RQ7t31. + 1] rIflSKill DEST[flR] CYLENilOB-INl PCPJ S 

;Get bit and return. 

aiCRST: ;Fall in to CLKCLR 

CLKCLR: START-GiJT DLCtWST 1] OEST i DE'J-ADDfiESS J fOm » 

;Clear elk flag. 
CLKEN8: nAPF[71 OIlVEM-ffflS flPR-STflTUS 1 RQT[2B.l DESTCIDD] CSSe $ 

;Get the fiPR conditions wd. put CLK INT ENB bit in bit 
35. 

STPlRT-DUT NORTI * 

HftPFtsi ceee pcpj $ 

;SET an CLEAR THE HflRDUWRE INTRPT. ENB. ACCORDING TO 
; STi^TE OF CLK INT ENS BIT IN APR 



CTYINl: DICTY-STflTUSl OESTCQ] PLBHJ[CTYCI1 NORM SPEC[IOB-IN] $ 
; DO ft CONI, GET BITS 
DtCTY-CONTl mSKdl] DEST[I0O] SPEC[IOB-OUT] NORM $; DISABLE INTS 

riAPFITTY.IC] CrLENIIOB-OUT) DtCTY-STATLBl MASKISl DEST[0 ARl $ 

: GET PI CHAN 
ffijRM SPECiCLR-DEU-FROn-INTRi JUMPLPIGENl S;CAUSE INTR. 



CTYIOT: 

.repeat 1 - waitsfix [ 

JLM=[MijLe)J % 
];. repeat 1 - waitsfix 
.repeat waitsfix [ 

UIOTCKtrUlKIl t 
];. repeat waitsfix 

ICTDIS 



;Illesal in Luser Mode. 



;5oa)e diagnostics checl< for too nuch CTY output 



CTYDI: 



CHR 



OCCONST 101 ALU[-08Q1 DESTCCTY-STATUSl NORfl $; CLR TTI FLAG 

D[CONST 10] R0TI3] DESTIQ] SHORT $ 

OECTY-CONT! ALU[DORQ) DESTdOO] SPECtlOe-OUT] SHORT $;CLR RCV. 



"lAPFiTTY. WC J CYLEFi L lOS-DUT J $ 
OCCTY-CONT] DESTtlQOl SPEC[ 108-OllTl SHORT $ 
HAPflTTY.UCl CYLENtlOB-OJTl S 
DEAR] mSK[10] SUAC $ 
CTYDO: Dtncnl DESTCIOO] SPEC[IOB-OUT] NORM $;SEND CHR. 

fWPF[TTY.UO] CYLENtlQB-OUT] 0[CONST 101 ALU[-D8,Q1 DESTIQl $ 

;CLR TTO FLAG 
D[CTY-CONT) «.UtD+l) DESTCIDD) SPECCIOB-OUT] NORd * 

; ENABLE UART STB 
nAPFtTTY.UCl CYLENEIDB-OUT] 

D[ CONST 20! ALUfDORQ! DESTCCTY-STATUS] S 
;SET TTO BUSY 
DtCTY-CONTl DESTIIOOl SPEC( lOB-OUT] NORM »;CLR UART STB 
MfiPFtTTY.UCl CYLEN[IOe-OUTl DICONST 7] ALU[DiQl COND[OaJS=0I 
JUrPCriAINl t ; DOfiE IF NO PI CHAN 

D[CTY-C0NT1 OESTIOl SHORT $; GET I08-0UT BITS 
DtCONST 11 ROTtlU ALUIDORQl DESTCO IX] SPECtlOB-OUT] NORM » 
.-ENABLE XMT INT 

HftPFETTY.yr] CYLENLIDB-OUTj ALUiQJ DESTiCTY-CONTl JUHPiflftlNJ $ 
CTYCD: DICDNST 17] R0T[3) ALUID8.Q1 DESTCQl NORM $;CLR PI BITS 

DIIR] nASK[7] ALUIDORQl DESTICTY-STATUSl JUMPICTYCOll NORH $ 
;0R IN NEW PI BITS 
CTYCI: MAPFITTY.DI] DdOOl DEST[HOLD] CYLENIIOB-IN] $;GET UART BITS 
DCCTY-CONTl OESTIIOOl SPECtlCe-OUT) NORM % 

HAPFCTTY.UC) D((1EM1 R0Tt261 MASKdl COND [ -OaUS=0 ] JUfPICTYCIll 
CYLENt MAX, I OB-OUT, esse ] $; J IF RCV ROY 
CTYCI2: D[CD^ET 18] R0T[3] flLU[-D8,Q] DESTII3 ARl JUnP[CTYCI9] NORM $;CLR 

TTI BUSY 
CTYCIl: DtCCWST 18] ALU[D8,Q1 C0NDI-08US=e] JUrPtCTYCI2] C55e *;J IF TTI 
FLAG ON 

DtCONST lei R0T[3] ALUIDaQ] DESTIQ ARl NORM $;COnPL BUSY. 
OICONST 10] R0TC31 ALUCDS.Q1 CONO ( -08US=e ] JUHPICTYCISl CSSe S;J 
IF BUSY NOW ON 

DtCDNST 101 ALUIDORQl DESTIQ ARl NORM *; SET TTI FLAG 

DIMEtll R0TI25] MASKdl COND[-OBUS=01 JUMPICTYCiei 0550 $;J IF XMT 



CTYCI9: 
ROY 



CTYCIB: 
OFF 



DC CONST 201 ALUIDORQl DESTICTY-STATUSl POPJ NORM S 

;S£T BUSY — NOTE. MO 'AR DEST' IS CORRECT 
DtCCNST 201 ALUID&Q] CONDtOBLK=01 JUrP[CTYCI3] C550 $; J IF BUSY 



DICONST 101 ALUtDORQl DCSTIQl NORM $; SET FLAG 
DtCONST 20] ALUI-D&Ql DESTCCTY-STATUSl POPJ NORM » ;CLR BUSY 
DdR) ROTdll nASK[101 DESTIQ] NORM «; GET SET8.CLR BITS 
DICONST 101 R0TI3] fILUID&Ql COND[O8US=0] JUTPICTYCOIl $ 

; J IF CLR TTI FLAG OFF 
DICTY-CONTl MASKdl 1 DESTIQ) NORM t;GET lOB-OUT BITS 
DICONST 101 R0TI3] ALUtDORQ] DESTdODl SPECCIOB-OUT) NORM % 

;GET CLR RCV RDY BIT 
MAPFCTTY.UC) CYLENdOB-OUTl $ 
ALUCQl OeSTCIOOl SPECCI08-0UT] NORM $;CLR IT 

hapfitty.uci cylenciob-out! s 

DCCTY-CDNTl MASKdl] DESTIQ) NORM t; GET lOB-OUT BITS 
DCCTY-STATUS) MASK[3) CCK)COeUS-0] JUMPCCTYC05) 0550 « 

; J IF NO PI CHAN 
DCCONST 21 ROTCll) ALUCDORQl DESTCO) SHORT S; ENBL RCV INT 
DCCTY-STATUS) ROTCll) nASKC2] CONDCOBUS=e) JUMPCCTYC05) CSSe « 

; J IF NO OUT FLAG OR 8USY 
DICONST 1) ROTCll) ALUtDORQ) DESTCQ) SHORT $;ENBL XMT INT 
ALUCQ) DESTCIOO) SPECCIOB-OUT) SHORT t; FIX INT ENBLS 
MAPFCTTY.UC) CYLENCIOB-OUT] ALUCQ) DESTtCTY-CCWT) JUMPIHAIN] * 
; H» HERE IS DEFN. OF CTY UART CONSTANTS «««« 



CTYCI3: 
CTYCQl 



CTYC03! 



CTYC01: 



CTYCOS: 



CTYRST: DICONST 1) DESTCDEV-flOR) NORM t OICONST 1) R0TC6) KSTCO) 
CLR-DEV-FROM-INTR NORM % 

OICONSJ 71) ALUIDCRQ) DESTCQ CTY-CONT) NORM $ 

DCCONST 3) ROTCS) ALUCDORQ) DESTCIOO) SPECCIOB-OUT] NORM $; RESET 
UART 



ALUCQ) DESTCIOO] SPECCIOB-OUT] NORM JUTPCCTYRSl) « 



40 


CTr-DISP = 


4e 


tl 


CTY-CONT - 


41 


42 


CTY-STATUS = 


42 



a TTY.DI = ;read data 

12 TTY.WD = 12 ;v*-ite data 

14 TTY.UC = 14 .-write control 



SLOE March 23, 1384 21:17:38 file DSK:F4IQ.SLD 

08 1433 
83 1434 

ea 143S 

05 143E 
08 1437 
08 1438 
08 1439 
08 1448 

ee 1441 

08 1442 
08ml443 
08«1443 
08011443 
080.1443 
080.1443 
080.1443 
080.1443 
080.1443 
08ml443 
08ml443 
08nil443 
08nil443 
080.1443 
080.1443 
08oil443 
08oil443 
080.1443 
080.1443 
080.1443 
080.1443 
08ml443 
080.1443 
08oil443 
080.1443 
080.1443 
0aml443 
08nl443 
080.1443 
080.1443 
080.1443 
080.1443 07G24 81973112504600801401046125571457988 

085.1443 076ZS 01073112B0400eeei40ie4E125571457000 
080.1443 

080.1443 
080.1443 
080.1443 
080.1443 
0B«il444 
080.1444 
0BB.1444 

080.1444 13521 54073117800886055416162325420418088 
0aml444 

080.1444 13522 54073117880805955416152325420416888 

060.1444 

080.1444 13523 01073817003806055416152366131416880 

080.1444 

080.1444 13524 01073137000888881416162025711456800 

ee«1444 

080.1444 iSSZS S4073117000e060bb416162i2b4204ieeee 

a8«1444 

aBo.1444 13528 54073117088806855416162325420415080 

08oil444 

080.1444 13527 01033117000806855415150345431215888 

08b 1444 

0Bml444 

08oil444 13530 01073017000888881416162826131456888 

08m 1444 

0Bnl444 

08oil444 13531 01073017000606055401762365131416000 

0e«1444 

080.1444 

080.1444 13S32 01055017088008081001752025771456006 

080.1444 

080.1444 

080.1444 13533 01073017083008081416152225131456008 

080.1444 

080.1444 13534 01073131088022565416155125438456066 

080.1444 

08ml444 13S3S 01073817063008881416162226131455886 

080.1444 

8a«il444 13536 81073017068008881484562825771456866 

08»1444 

ee«1444 13537 01073017803008801416162225131456068 

aaal444 

aail444 13S40 01073017080006601404552025771455080 

a8al444 

eeKl444 

a8Bl444 

eeiii444 

0a«1444 

eeni444 

e8BH44 
0a«1444 
880.1444 
a8iil444 
880.1444 
060.1444 
aB»1444 
080.1444 
080.1444 
080.1444 
0eBl444 
080.1444 
08 1444 
08 1445 
08 1446 

06 1447 
06 1448 

ee 1458 13551 01073117003006055415152365437416868 



of 



D!LIT 1988068 « CTYDSPl DEST[Q] % 

D£L:T CTYINTl ftLUEDORQ! DEST[D*AfEn81 NGRM POPJ 



■ pair 

CTYCZ: D[flRl ftLUIDSOl SKPDSP[fa-U=0] $ 

SKPOSPtflLWftYS] $ 

CTYCS: DEAR] ftLUCD&Ql SKPOSPt-«.U=e] % 

SKPOSPfftLWAYSl % 



1 [ 



CTY - Console Teletype 



Device 120 



ft-MEfl Usage 

Instruction and interrupt dispatch 
Control bits for UART, etc. 
Firou^are status 



«■■ Meanings cf hardware bits should be documented here. 
ttAPF values 



.opcode[7i2] [xlist 
list 1:CTY 1 LPT 

DICCNST 4) DESTIDEV-fORl NORn CONO[-USER) LBJLSIPECTYIOTl $ 
DICQNST 4] QEST[DEy-AC>R] NORfl CONDC-USER] LBJUMPECTYIOT] $ 



.RELX 

[.USEIHILOCl 
[ xlist 
list 1 



CTYDSP: ILEIOT $ 
;BLKI 

ILGIuT $ 



;DATftI 



sBLKG 



;CONO 



;CaNI 



iCONSZ 



;CaNSa 



0[CTY-ETflTLB] DEST[Q1 SPEC[IOB-IN] NORM $ 

MflPrlTTY.DI! DdOO] DESTEftRl JUTfCCTYDI) CYLENIIDe-IN) S 

ILGiOT $ 

ILGIDT $ 

DFRQ «_U[rEmCl DeSTEHOLDl « 

;Get C(E) fron either oremory or ACs. 
DECTY-STftTUS) DESTEQl JUMPECTYDOl NCRft S 
; GET CONI BITS 

DECTY-STftTUS) nftSKE7) OESTEQ) NORM S 

; GET CONI BITS 
DEIRl mSKE71 RDTt40] flLUE-C&Q] DESTEQl JEJOPECTYCOl NORM $ 
;CLR THE CLR BITS 

OlCTT-STPiTuSJ tXSTEQl PUShjECTTCI) NORn SPECCIQe-lNJ S 

DEAR] SfWC [ IFRO CESTEnEHSTO («) CONDEnfl<201 LBJUnPESEDI] 1« 

DECTY-STflTUSl DESTEQl PUSHJECTYCIl tOm SPECtlOB-IN] $ 

DEIR] MASKEia.] DESTEO) JUTPECTYCHl NORM t 

DECTY-STflTUSl DESTEQl PUSHJECTYCIl NORfl SPECEIIB-INI $ 

DEIR] MflSKElB.l DESTEQ] JUTPECTYCSl NORM $ 



LPTDSP: 

.REPEAT 1 - LPT E 

.REPEAT 10 E ILGIOT $ 
ILGIOT $ 
];. REPEAT 10 
3j.S:P£AT 1 - LPT 



;AI locate 



for LPT dispatch 



;This is a silly place to put it 
;LPT code 



.REPEAT LPT E 

:. + 20 

.repeat 1 - waitsfix E 

. insert F4LPTX 

I;. repeat 1 - waitsfix 

1;E ;A1 locate space for LPT dispatch 

:. ♦ 20 

.repeat 1 - waitsfix [ ;This is a silly place to put it 

. insert F4LPTX ;LPT code 

] ; . repeat 1 - wa i tsf i x 

1. REPEAT LPT 



;;CTY and 60 HH aODC INTS CDfC fCRE 



rrvTiuT. . . . catn _ii, -j-. 
START- IN SHORT % 



ncii A ../ nv 



SLCE rlarch Z3. 198+ 21:17:37 file STRING: 



of 



F-HNNF 



ee 145G 

88 itsa 
ea 14S9 

68 UGe 

ea 1461 

08 14E2 

08 1453 

09 1464 
88 1465 
88 1455 
88 1457 
88 1458 
08 1463 
88 1470 
08 1471 
08 1472 
08 1473 
08 1474 
08 147S 
08 1475 
08 1476 
08 1477 
88 1478 
88 1473 
88 1480 
08 1481 
08 1482 

05 14B2 
08 1483 
08 1484 
08 1485 
88 1485 
08 1487 
08 1488 
08 14SS 
08 1438 
08 1431 
08 1431 
08 1432 
08 1433 
08 1494 
08 1435 
88ml435 
88nl496 

06 1497 
88 1438 
88 1433 
08 1500 
08 1501 
08 1582 

eamises 

08iiil503 
08m 1503 
08m 1503 
08 1503 
08m 1504 
08ial504 
08*1584 
88m 1584 
88*1584 
8Bial5e4 
08 1505 
08 1506 
08 1507 
08 1508 
ee 1588 

ee 1583 

88 1510 

88 1511 

08 1512 

08 1512 

08 1513 

88 1514 

88 1515 

88 1516 

08 1517 

08 1518 

08 1513 

08 1528 

ee 1521 

88 1522 

88 1522 

as 1523 

08 1524 

88 1524 

88 1525 

ee 152E 

08 1527 

88 1528 

ee 1529 

ee 1530 
ee 1531 
ee 1531 

06 1532 
as 1532 

ee 1533 
ee 1533 
ee 1534 
ee 1535 
ee 1535 
ee 1536 
ee 1537 
ee 1537 
ee 1536 

86 1533 

ee i54e 
ee i54« 
ee 1541 
en 1M7 



13565 01624117803106055415152365431415000 

13566 01673117660066055415162365411415008 



13567 01073117M402015541516202541145S000 



13570 01073117003886055401446365571417000 

13571 01073137050686055060352425711416000 



13572 01073117003136055401846355571417000 

13573 01073117070088004656152367011416000 



13574 0107311700310605541S1623S5431416000 

13575 01073117060086055416162425411416000 



13576 01073017003000801416162226131456000 

13577 01673117003106055402352366071416008 
13S00 01073037146086055480752366111416000 
13601 61073117004020343416162025431456800 



13602 01073100600010210156162024611455668 



13603 01073817864006054321 152365771416000 
13684 818500170088^854321152355777416800 
13605 01660137000006054444562366031416000 
13686 01073117888000000016000725411456008 

13607 01065117088666855416164355571416088 
13610 01073017000006054062152355577415008 
13511 01063117003106055416152366077416000 

13612 01073117140006055415152365411416800 

13613 01073117003106055416152356077416000 

13614 01073117140066955415162365411416008 

13615 81073131000022665402156125430456008 

1361B 61073117003106055416152365471515880 
13617 81865817120086855482152365551415008 



13620 01170117003166855415152366871416888 



13621 61663117146006655484164365551415608 

13622 81873117863106655416152366871416886 

13623 81664188346822711461762825551456880 

13624 81873317888006855416162366077416000 

13625 01063017683166854221152365571416808 

13626 01023117140022711416102025411456000 

13627 01664617886666654863762365571415688 
13638 81863117008080001401704025771455000 

13631 6ie73J1700ee060S5416150K57U41S000 

13632 01073117003106055416152366071416008 

13633 01873100140008880548362025451556008 

13635 81664188808827471410162025561456006 

13636 01066037808806054062162365571415000 

13637 01064100080000888062162025561456008 

13640 01063037080006855410162365571416008 
13841 81873106086888800520362025461556088 

13642 81663117888006055404104425571416800 

13643 01064100200888881404162825561456880 

13644 81063017080006855482162365571416608 
1%4<; 01CIR<;i17«VIIVI»¥?;4(H1CH47<7;714inV« 



;Elss it is the CTY's tu 



;Ue brsnch here f.-oa CTYINT if intrpt. is really S8H2 CLK. 

aKINT: STfiRT-OUT «.U[01 DESTCIODl NORM t 

;Clear hiarduare int. enb. for 60HZ CLK. 
HflPF[B) CB06 $ 

.repeat TYmET [ 

CLR-0EU-FRt»1-INTR PJSHJ [ TYHCLK 1 CS00 S 
;Start up TYr^£T interface if needed. 
1; TYMNET 

CLR-OEU-FROH-INTi? JUMPCflPRCHKl CE00 » 

;Causa PI on APR channel if enabled* and exit. 

CLKROFLE: ;Put hardware 66H2 CLK FLAG into AR35. 

START-IN D(CC»eT 51 DEST [ OEU-ADDRESS 1 NORM * 

:Select device 6. 
MAPF(S] D[ICDJ RQT[34. + 1] MASK[1] DESTIAR] CYLEN[ lOB-IN] POPJ $ 

;Get bit and return. 

CLKRST: .-Fall in to CLKaR 

CLKCLR: START-OUT DICONST 41 DEST t DEV-AOORESS ] NORM $ 

;Clear elk flag. 
CLKENB: MAPF[71 D[AMEn-ABS APR-STATUS] RQT[26.] DESTCIOO] C600 S 

;Gct the APR conditions ud, put CLK INT ENB bit in bit 
35, 

START-OUT NORM $ 
MAPFtei CS00 POPJ » 

;SET OR CLEAR ThC HARDWARE INTRPT. ENB. ACCORDING TO 
; STATE OF CLK INT EHB SIT IN APR 



CTYINis DICTV-STATUSJ DESTtOl PUSHJ[CTYC!! NORM SPECIIOB-INl S 
; DO A CONI, GET BITS ■ ' 
DCCTY-CDNTl MASKEll] DESTHQDl SPEC! lOB-OUTl NORM *; DISffflLE INTS 

MAPFITTY.UCl CYLEN[I08-0UT] D[CTY-STATUS1 nASK[31 DESTCO AR] $ 

; GET PI CHAN 
NCKM SPECICLR-DEy-FROn-lNTR) JUTIPIPIGENl $;CAUS£ INTR. 



.pair 
t:. \ 2 + . 
ICTYIDT: 
.repeat 1 - waitsfix [ 

JURPiMUUOl % 
1:. repeat 1 - waitsfix 
.repeat waitsfix [ 

UIOTCKinULBl % 



Jlllegal in Lussr Mode. 

;SoDie diagnostics checl< for too much CTY output 



UIDTCKtMUUO) 
I DIPC-FLAGS] R0T[61 COND[-OSUS<01 JUTPtMUJOl LONG $ 
]$ ;Some diagnostics check for too much CTY output 
]. repeat waitsfix 

IDTDIS 



[ 



CTYDI: 



CHR 



CLR-DEV-FROM-INTR D[IR! R0T[13.] m5K[4] DEST[Q1 NORM $ 
D[IR) RCT[13.1 MA5(<[41 ALU[D+<3! DEST[Q1 SHORT i 
D[DS;At€M0] R0TE13.) MASKC18.1 ALUID+Ql OESTCARl NORM S 
DIARl RDT[MUA-RQT] ODISP LONG » 

DICONST 401 ALU[-D401 DESTtCTY-STATUS) NORM S; aR TTI FLAG 

D[Ca«T 101 R0T[3] DEST[01 SHORT S 

DtCTY-CONTl ALUIDORQl DEST[IDD1 SPEC[ I08-0UT] SHORT $;CLR RCV. 



MftPFITTY.UCl CYLENtlOB-DUT] S 
DtCTY-CONTl DESTIIODl SPEC[ lOB-OUT] SHCKT $ 
MAPFITTY.WCl CYLEN[ I OB-OUT] $ 

D[AR1 flASKIiei SMAC [ IFRO DESTIMEHSTO AR] C0ND[MA<26] 
LBJUMPtSEOIl IS 
CTYDO: DiMEMl DEST[IOD] SPEC[ I08-0UT1 NORM $;SEND CHR. 

MftPFtTTY.WO: CYLENIIDS-QL'T) DtCONST 181 ALUt-OSai OESTIiSi S 

;CLR TTD FLAG 
DrCTY-CONTl ALUtD+11 DEST[IOD] SPEC[ I08-0UT] NORM t 

; ENABLE UART STB 
MAPFITTY.WCl CYLENIIOB-OUTl 

DICONST 281 ALUIDORQl DESTICTY-STATUS) » 
;SET TTO BUSY 
DICTY-CONTl DESTIIODl SPECI lOB-DUTl NORM $;CLR UART STB 
MAPFITTY.lCl CYLENIID8-0UT1 DlCtWST 71 ALUtD&Ql CONDIQeuS=ei 
JUMPIMfilNl $ ; DOC IF NO PI CHPW 

DICTY-CWTl DESTtQl SHORT it GET lOB-OUT BITS 
DICONST 41 ROTIUl ALUIDORQl DESTIQ 1001 SPECI lOB-DUTl NORM $ 
; ENABLE XMT INT 

HAPFITTY.MCl CYLENII08-0UT1 ALUtQ] DESTICTY-CDNTI JUMPirWINl $ 
CTYCD: DICONST 171 R0TI3] ALUID&Ql OESTIQl NORM $;aR PI BITS 

DIIRl MASKI71 «_UID0RCI] DEST I CTY-STATUS 1 JUnPICTYCOU KXm S 
;DR IN NEW PI BITS 
CTYCI: MAPFtTTY-DIl DllOOl DESTIHOLD! CYLENIIDB-IN] SsGET IW?T BITS 
DICTY-CONTl DESTIIODl SPEC I lOB-OUT 1 NORM S 

MAPFITTY-HCl DIMEM] R0TI2G] MASKIl] CONDI-QBUS-81 JUtflCTYCIl] 
CYLENIMAX.IOB-OUT.CSSei $; J IF RCV ROY 
CTYCI2: DICONST 181 R0TI3] ALUUXOl OESTIO AR] JUMPICTYCIS] NORM *;aR 

TTI BUSY 
CTYCIl: DICONST 461 ALUID&Ql COW) t -OeuS=e ] JUnP[CTYCI21 esse «;J IF TTI 
FLAG ON 

DICONST 161 R0TI31 ALUID«ia] DESTIQ AR] NORM »;COnPL BUSY. 
DICONST 16J R0TI31 ALUIDM] C0M)t-08US»e] JUMPtCTYCISl CSSe »;J 
IF BUSY NOU ON 

DICONST 481 ALUIDORQl DESTIQ flfil NORM $; SET TTI FLAG 
CTYCI9: DIMEM] R0TI25] MASKUl CONDI-CBUS^e] JUMPICTYCIBl C55e »ij IF XMT 
ROY 

DICONST 261 ALUIDORQl DESTICTY-STATUSl POPJ NORM * 
;SET SUSY — NOTE. NO 'AR DEST' IS CORRECT 
CTYCIB: DICONST 261 ALUIDiQ] CO«)!aBUS=0] JUTPICTYCISl CS50 t: J IF BUSY 
OFF 

DICONST 16] ALUtDORQ] DESTIQ] NORM $; SET FLAG 
rTYTTq. nrrnwciT 7fli aiir-rttm nrqTrrTv-^iTaTiKi onp i unoM « -n d aicv 



SLOE flarch Z3, 138^ 21:17:47 file STRING: 



of 



FtlMf 



08 15+B 

83 lS+3 

es isse 

as issi 

ee 1S5Z 

ee 1553 

88 155+ 

88 1555 
e9 155S 
08 1557 

ee 1558 

88 1553 
08 1568 
08 1561 
08 1582 
08 1563 
08 1563 
08 1564 
08 1585 
08 1565 

ee 1566 

08 1567 
08 1568 
08 1563 
08 1570 
ee 1578 
08 1571 
08 1572 
08 1573 
08 1574 
88 1575 
eeal576 
eealSTG 
08 1577 
08 1578 
08 1579 
08 1580 
08 1581 
08 1443 
06 1444 
06 1445 
06 1446 
06 1447 
08 1447 
88 1448 
08 1443 
08 1458 
0aal451 
08i>1451 
OSniHSl 
88a<1451 
aeioHSl 

eei>i45i 

06iil4Sl 
0eiil451 



13SS2 018731!714e0K0EE41ElE23SS41141B0e0 
13653 01023117083106855415152365431416080 
13SS4 01073117140006855416162365411416008 

13655 81073017888886055482362366071416088 

13656 01073100208000001408762826121455080 

13657 01063017088806054228562365577416008 
13550 01073100200000001020562825121456088 



13661 01063017000606054221162365577416000 
13652 01023117003106055416152365437416080 
13663 01023117140022711416102025411456088 



13664 01073117004006055401046365571417000 

13665 01073017004006054141162365571416000 

13666 01063017000006055417182365571416000 

13667 01863117803106854148752365571416008 

13670 01024117140886055416104365411416888 

13671 01023117003100001416152025431456000 



13672 01073117140006055416162365411416088 

13673 01073017002724288888162365531416888 

13674 01063117880008002734300425531416008 



13676 54864108880087355416162325420416000 

13677 54073117200007355415162325420415000 

13700 54064100200007355415162325420416008 

13701 54073117200007355416162325420416000 



;GET CLR RCV RDY BIT 

CTYCC3: nftPf^iTTY.wc; CYLEsitiaa-ajT] s 

fiLU[Ql iJESTtlOOl SPECtIQ8-0UTl NORH $;aR IT 

MflPF[TTY-WC! CYLENtlOa-aUTl » 
CTYC04: DtCTY-CDNT] mSK[ll] DESTIQ] NORfl »; GET lOB-OUT BITS 

D[CTY-STflTUSl mSK[3] CONOtOeUS-01 JUHPCCTYCOSl C550 S 
; J IF NO PI CHfIN 

OiCQNST 2) ROTIUl ALU[00RQ1 DESTtQl SHORT «; ENBL RCV INT 

CLCTY-STflTUSl R0T!411 flaSK!2] CQND[D8US=8i JUHPiCTYCOSJ C550 S 
; J IF MO OUT FLAG GR BUSY 

D[CIWST 4] ROTdl] flLUtDORQl DESTtOl SHORT S;EN8L XHT INT 
CTYCOS: flLUIOl DESTtlQDl SFEC[I08-mjT] SHORT $: FIX INT ENBLS 

rWPFtTTY.HCl CYLEN[!CB-OUT] flLUCQl CESTtCTY-CONT] JUMPCnftlN] S 
; H» HERE IS DEFN. OF CTY UfiRT CONSTANTS «»«• 

CTYRST: D[CC9eT 43 DEST t DEV-flOR 1 NORTl S OICONST 4) R0T[6] DESTCQl 
CLR-DEV-FROfl-INTR NORH * 

DECONST 74] fiLUCDCFQl OESTCO CTY-CONT] NORH $ 

DCCOHST 31 ROTCSJ ALUCDORQ) DESTIIOOl SPEC(I0B-OUT] NORM »; RESET 
UflfiT 

fIftPFtTTY.WC] CYLENCIDB-DUTl flLU[01 OEST [ CTY-STflTUS ] $ 

ALUCC] DESTEIODl SPECIIOB-OUTl NORM JUtflCTYRSll S 

CTYRSl: 

;Setup entry vectors: IDT vector in left half, interrupt vector in riaht 
half 

mPFITTY.HCl C800 $ 

DILIT 1000000 « CTYDSP] DESTtQ] $ 

DELIT CTYINT] flLLUDORQ! DEST[D%flfEM0] NORM POPJ $ 



.pair 

[:. \ 2 + . 

ICTYCZ: DEflRl flLUEMQ) SKPDSP[flLU-01 $ 

SKPDSPEftLWAYSl $ 
CTYXS: Ot<WJ «-U[C*03 SKPOSPt-flLU=0] S 
SKPOSPCflLUflYSJ $ 



I; CTY 



.repeat uaitsf ix ! ;fl better place 

.repeat LPT [ ;LPT should follow CTY as they share the saw dispatch 
table 

.insert LPTX 

:LPT code (sa«e source for F2 or F4) 
1 
];[ ;ft better place 

.repeat LPT [ ;LPT should follow CTY as they share the stmt dispatch 
table 

. insert LPTX 

;LPT code (sane source for F2 or F4) 
1 
t ;LPT should follow CTY as they share the sne dispatch table 
.insert LPTX 



SLOE tlarch 23. IBS'* 21:17:52 file DSK:LPTX.SLO 



of 



FnKNF 



Read status res 



J Est == 



;Urite data 



LPT-oisP - e * osawEne 



LPT-CONSflV ' 1 + l»flnEf10 



LPT-UORO - 3 + [KfiTEMe 



LPT-ROT - + + DWftne 



Dtflftne 



eiaeeei 
eirseeei 
eimeeei 
eiaeeei 
eineeei 
eiaeeei 
eineeei 
eimeeei 

31nd001 i LPT-STmujS = 1 

eimeeei 
eineeei 
eimeeei 
eiitieeei 
eimeeei 
eimeeei 
eimeeei 
eineeei 
eineeei 
eiaeeei 
eineeei 
eineeei 
eimeoei 
eineeei 
einoeei 
einoaei 
eineeei 
eineeei 
eineeei 

Ai_<v>?i i I DT_rrBUTpm . i 

eineeei 

einaaei 

eineeei 2 lph»ta = 2 

eineeei 

eineeei 

eineeei 

einoaei 

eineeei 

eineeei 

eineeei 

eineeei 

eineeei 

eineeei ^e 

eineeei 

eineeei 

einaeei ^1 

eineeei 

eineeei 

eineeei ^3 

eineeei 

eineeei 

eineeei 44 

eieeeei 

eineeei 

einaeei « lpt-pos 

eineeei 

eineeei 

eineeei 

eineeei 

einaeei 

eineeei 

eineeei 

einaeei 

eineeei 

eineeei 

eineee2 

eineee2 

einaae2 

eineee2 

eiineee2 

einaee2 

eineeez 

einaeez 

eineee2 las'ti eie73ii7eeeeie2iuisiGzezS'»3i45Geee 

eineee2 13542 eie73ii7eeeee6e554iGiE2365'f3HiEeee 

einaeez 13543 eie73iieeeee273e74i5iS2e2S437456eee 

einaee2 

eineee2 13544 eie24i3ieeee22EES4i6i56i2S43e45Geee 

eineee2 

eineee2 

einaeez 

einaeez 13545 eie73ii7eeeeie2ii4iGiB2e2S43i45Geee 

eineeez 13545 eie73ii7eeeeeees54i6i5236543i4iGeee 

eineeez 

eineeez 13547 eie33ii7eeeeeGes54iGise34543iziseee 

eineeez i355e eie73ii7ee4eeeeei4e324se2S57i457eee 

eineeez 

eineeez 

eineee2 13551 eie73ii7ee4eeeeeue324Gezs57i457eee 

eineeez 

eineeez 13552 eie73ii7eeeee6es54iGiG23G543i4iseee 

eineeez 

eineeez 13553 eie73ii7ee3eeeeei4e324BZZS57i4S7eee 

eineeez 

eimeeez 

eineeez 13554 eiez3i3ieeeezzGG54iGi5EiZ543e45Geee 

eineeez 

einaeez 

eineeez 

eineeez issss eie73ii7ee3eeeeei4e324G22S57i4S7eee 

eineeez 

eineeez 

eineeez i355g eie73ii7eeeezs5234iGiG2e2S43i45eeee 

eineee2 

eineee2 

eimeee2 

eineee2 13557 eie73ii7ee3eeeeei4e324622557i457eee 

eineeez 

eineee2 issee eie73ii7eeeezsszi4i6iEze2S43i45Beee 



; 
; 


- L 


nepr 


inter Interface 




;MAPF f 
ister 


ields 

Bit ze 


;(firaiwarG only) 


;51eM nore paper 


; 
F2 

; 


Bit 

Bit 
Bit 


21 

22 
23 


;-LPT READY 

:-LPT LOW PAPER 
;-LPT PRESENT 


;Thcse three bits only present on 


; 


Bit 


24 


:LPT 128 


iRubout seen on WAITS (or slew 


paper 

; 


if 

Bit 
Bit 


25 

26 


;LPT SG 
;Not used 


;bit 2e is set). 


; 


Bit 
Bit 
Bit 


27 
28 
23 


;-LPT ON LINE 
;-SYNC LPT OK 
;-SYNC LPT DONE 




1 


Bit 
Bit 


3e 

31 


;SYNC ANY INT 
;SYNC Dftt WAITING 




•St ST 

; 


Bit 
Bit 


IG 
17 


;LPT STATUS SPARE 
;LPT INT OB 




; 
; 

! 


Bit 
Bit 
Bit 


2S 
27 
28 


;LPT SPARE OUT 
;LPT PRINT CnO 
;LPT DATA BIT 8 





Bit 35 ;LPT DATA BIT 1 



;A-t1EM usase 
OEFINE-A-MEmLPT-DISP 0] 



1 ;Instruct ion and interrupt dispatch 
DeFINE-A-MEMtLPT-CONSAV 1) ( 



3;Save control information including PI channel 
DEFINE-ft-nEWLPT-WQRO 31 t 

] ;Last data word read 
DEFINE-A-rEmLPT-ROT 4] t 

J ;Rotation value for next byte> -n if non 

DEFINE-A-ME(1[LPT-P0S 51 [ 

I ;Colunn position of the character 



left 



Nornsl lOT dispatch for LPT 



.org[LPTDSPl 
[ xlist 
list ] 
;5ince nacro-device code is 124, dispatch is conbined uith CTY (see 
F4I0) 

.orgtlptdsp] [ xlist 
list 1 ;«$«»» TEMPORARY *%***% 
LPT-DISPATCH: 
;BLKI LPT. - Not inplenented 

JLTPdmUOl $ 

NOP S 
;OATflI LPT. 

CONDI-INTRPTl JUMPC.l SHORT t 

:Wait for something to happen. 

ALU[01 DESTtMEMSTOl fEflST [ SHflC [ IFRO DESTCnEMSTQ ARJ 

C0ND[nfi<2e] LBJurpcsEoii IIS 

;Do saiK thing as DATAI LPT uould. i.e. read nothing. 
;BLKD LPT. - Not inplenented yet 

jurpcnuuoi $ 

NOP $ 
;DATAO LPT. 

FIXm t DFRQ ALUtflEmCI OESTCHOLD) 1$ 

D( CONST LPT-UDEVl DEST t DEy-fCR 1 JUnP[LPTD021 NORM $ 
;Set device address to LPT 
;C0NO LPT, 

D[ CONST LPT-UDEU] OEST t DEU-ADR 1 JLjr*'[LPTC021 t 
;Set device address to LPT 

NOP S 
.•CONI LPT. 

DtCONST LPT-UDEV) OEST [ DEy-ADORESS 1 SPECCIOB-IN) PUSHJtLPTSTSl 

mm % 

;Set device code and get status of LPT 
ALU[Q) DESTLrenSTD] rEMST [ SnAC [ IFRQ DESTlrtHSTO ARl 

CQWiirvKze] lbjumpcsedii 1!» 

;5tore status in nenory in the usual uay. 
:C0NS2 LPT, 

DtCONST LPT-U3EU] DEST t DEV-flOORESS ] SPEC[I0B-IN1 PUSRJ [ LPTSTS 1 
NORM ( 

;Set device code and get status of LPT 
JUfPrXXCONSZ) NORM S 

;Fini5h reading status fron LPT and go do generalized 
C0NS2. 
:a»ISO LPT. 

DtCONST LPTHJDEV] DEST I Dev-flOORESS 1 SPECtlCB-INl PUSHJtLPTSTS] 
NORM » 

JUrP[XXCO»SO] NORM $ 



SLOE March 23, laa^ El: 17:57 file STRING: — of ~ F^INSF 



13782 ei873100+0ee980e0G3SlG2225761456080 
13763 eie73817eeee060S5+e45E2365777+lBe0e 

1379+ 0i0G4iee2ee0aeeeei447E2e2556i45Ee0e 



13705 ei063017800e0G0S44403G23E557141600e 

13706 0102311700310605S41BlS23G543141B0e0 

13707 010731 17010096e5S41BlBZ3G541141E0ee 

13710 01065117086006054240302365571416000 

13711 01073100400022710736162026071456000 

13712 01073117000000001416162025431456000 



13713 0107301 70100060S540376236571 1416000 

13714 01065017000006055402162364731416000 

13715 01065017000006054220362365571416000 



01K0002 

Sl>0003 

0100003 
81:20003 
01010003 
01O>0003 

0im0ee3 
eiii<ee03 

81III0003 
01n0e03 

01il0003 

0iii<e003 

01IB0003 
01m0003 
01ll<0003 
01010003 

01m0003 

01010003 
01ma003 
01010003 
01 0003 
01 0003 
01 0004 
01 0004 
01 0005 
01 0006 
01 0006 

ei 0007 
01 09ee 

01 0009 
01 0010 
01 0011 

ei 0012 

01 0012 
01 0013 
01 0014 
01 0015 
01 0016 
01 0016 
01 0017 
01 001S 

01 0019 
01 0020 
01 0021 
01 0022 
01 0023 
01 0023 
01 0024 
01 0025 
01 0026 
01 0027 
01 0028 
01 0029 
01 0030 
01 0031 
01 0032 
01 0033 
01 0034 
01 0034 
Ol>>0a36 
O1bO03E 
O1B0035 
Olo>0O35 
Oln0035 
01110035 
Oli>0035 
01*0035 
01 0035 
01 0036 
01 0037 
01 0036 
01 0033 

01 0040 

01 0041 
01 0042 
01 0043 
01 0044 
01 0045 

01 00TO 

01 0047 

01 0046 

01 0043 

01 0050 

01 0061 

01 0052 

01 0053 

01 0054 

01 0055 

01 0056 

01III0057 

01100057 

01 0057 

01 0058 

01 0053 

01 0060 

01 0060 

01 0061 

01 0062 

01 0063 

01 0063 

01 0064 

01 0065 

01 0066 

01 0867 

01 0067 

01 

01 0863 

01 0869 

01 DorO 13735 515731175 

01 0071 



13716 01063017000806055402152366071416000 

13717 01073137000006054620362366071416088 
13720 01063017008806054276152425431416088 



13721 01073017008006055416162366871416888 

13722 01865017088806054140362365571416000 

13723 01063117088806054148502365571416000 

13724 01073108808800001414162025451556088 

13725 01073117003186055416152365471516000 

13726 01073117021006054081600365551417088 



13727 01073107000027657415162025411456880 

13730 010631170031060S4440352365S77416000 

13731 0107311701O02271141B1S2O2S4114S6000 



[ xlist 

list ; : 

;Continu3tion of CONO LPT. 

;Set control status 

LPTC02: DtIR] R0TC25. ] CI!NO[C®JS<01 PUSHJILPTRSTl C550 S 

;Reset LPT if bit 25 (clear printer) is on 
DCIR] mSK[22] OESTIQI SHORT $ 

;U5e inmediate forn. i.e. Instruction as data. 
;Setup control information 
DECONST 231 ROTIE] flLUCD£Q3 COND[OBUS=0] JUnP[LPTC03] C550 $ 

;If setting DONE. BUSY or ckiins CLEAR, then enable Bicro 

; interrupts so that BUSY gets cleared and DO^E set at the 

;appropriate times 
DECDNST 1] ROTCIB. 1 flLU[CCRQl DESTtQ] NORM $ 
;Turn on nicro interrupts 
LPTC03: flLU[Ql DESTLIOO] SPEC [ lOB-OJT ] NORTI S 

;Start sending control inforaation to LPT interface 
MfVFILPT-CONIROLI CYLENCIOB-OUT] 
.REPEAT F4SW [ t 1 t $ ];Bu9: F4 can't do A-TEn write during 
lOe-OUT cycle 

DECONST n R0TE35. - 25.1 ALUt-O&Ol 
OESTELPT-CONSAVl t 

;Savc control inforiDation with reset bit 
DELPT-CONSAV] R0TE23. 1 CONDEOBUS<0) FETCH-NEXT- INST t JUMPlWlIN] 
INORM S 

;Check done bit 
.and start next instruction 
JUMPtLPTNT21 fCRfl S 

;Done bit set. Try interrupt 



Get LPT status 

Call with: SPECEIDG-INl PUSHJELPTSTSl t 



LPTSTS: mPFELPT-STATUS) CYLENEIOB-INl OEIOOl MflSKElS.] DESTEQ] $ 

;Finish reading status. 

;l9nore stuff not being driven 
DEMASK B.I ALU[-D£Q) DESTEQ] NORH $ 

;Turn off bits ^#iere PI channels and done/busy bits go. 
DECONST II R0TE3S. - 26. 1 ALUt-OfcQI OESTEQI NORM % 

;Turn off un iMpleoMinted bit fit's line overflow at SAIL) 

• REPEAT 1 - WITS [ 

OELPT-CONSAUI MASKEBI ALUEEXKOI CESTCQ) POPJ NORH t 
:Fill in PI channels and ne're done for now. 
J;. REPEAT 1 - WAITS 
.REPEAT WAITS E 

DELPT-CONSAVI MASKEBI ALUEDOROl DESTEQ] NORTI « 

;Fill in PI channels 
DELPT-CESBAVI ROTCl + 24.1 HASKEll DESTEAR] NORH » 

jRufaout flag on? 
DEAR] R0TE35. - 24.1 ALUEDOROl DESTEQ] POPJ S 

;yes. return in COHl Mord instead of 126-character tirum 
bit. 
l:t 

DELPT-CtjgSAyj MASKEBI ALUEDOROl DESTEQ] NORM % 

;Fill in PI channels 
DELPT-CONSAVI ROTEl + 24.1 MASKEU DESTEAR] NORM $ 

;Rubout flag on? 
DEAR] ROTtSS. - 24.] ALUEDORQ] DESTEQ] POPJ $ 

;Yes. return in t^ONI word instead of 126-charactcr drua 
bit. 
]. REPEAT WAITS 

.•Continuation of DATAO LPT, 
LPT0CI2: DELPT-CCNSAV] DESTEQ] NORM $ 
;Get status word 
DECONST I] R0TE6] ALUE-D&Q] DESTEQ] NORH S 

.-Turn off DONE 
DECONST 2] ROTEB] ALUEDORQ] DEBT E LPT-CONSAW ] NORM S 

;Turn on BUSY 
DEfEMl LEFT CONDE-OaJS=0I JUMPELPTPK71 CSSO t 

;E)ecide ti^ich foroiat to use 
OEHEMI DESTEIOOI SPECEID8-0UTI NORM $ 
;Send single character to LPT 
HAPFILPT-DATAl CYLENE I OB-OUT] 

dEconst 71 rotEMua-rot] lload f 
;Finish outputting data 
;Begin delaying tactic (4 usee) 
•repeat 1 - f4sw E 

loopE.I c500 $ 
];. repeat 1 - f4sw t 
. repeat f 4sw E 

loopE.l long S :ClaiBed by F4DEF to be 500 ns 



];E 



;ClaiBed by F4DEF to be 500 ns 



loopE . ] long $ 
3. repeat f4sw E 

DECONST 1) R0TE18.] ALUEDORQ] DESTEIQO] SPECEIOB-OUT] short t 
;Set control infornation and enable •icro-intcrrupts. 
MAPFELPT-CONTROL] CYLENE I OB-OUT) FETCH-tEXT-INST [ JUMPEfttlN] 1$ 

;Finish output and start fetch of next instruction 



Output word in POP-IO ASCII format 



0068 13732 01073117000806055407310365571416000 



■Tioi,<oo;jaa~i f istoKKKj 



LPTPK7; DICONST (1 ■»- 4 « 7)] DGST[LPT-ROT] NORM $ 

;Setup initial rotation for fetch ins first byte froB Mord 



;Save Mord from ■cMory in ft-?Ot kiwrc ue can use it 



SLOE March Z3. 1K+ 21:18:04 file DSK:LPTX.SLO — of — FtlNNF 



ei 


0076 


ei 


8077 


01 


8078 


81 


0079 


01 


0080 


01 


0081 


01 


eesz 


01 


0083 


01 


0084 


01 


0085 


81 


0088 


01 


0087 


01 


0088 


01 


0089 


01 


8098 


01 


0091 


01 


0092 


01 


0093 


01 


8094 


01 


8095 


01 


0095 


01 


0096 


01 


0097 


01 


0098 


81 


0099 


81 


0100 


81 


0100 


81 


0101 


81 


S1S2 


01 


0103 


01 


8104 


01 


8105 


01 


8106 


81 


0107 


81 


0186 


81 


0109 


81 


0110 


81 


0111 


01 


0112 


81 


0113 


81 


0114 


01 


8114 


01 


0115 


01 


8116 


81 


8117 


81 


8118 


01III0119 


011.0119 


81>i0n9 


81 


0U9 


81 


0120 


81 


0121 


81 


0122 


81 


8122 


01 


0123 


01 


8124 


01 


8125 


0! 


0126 


01 


0126 


01 


0127 


01 


0128 


01 


0129 


01 


0130 


81 


0131 


01 


0131 


01 


0132 


01 


0133 


81 


8134 


01 


8135 


01 


8136 


01 


0137 


81 


8138 


81 


0139 


ej 


0148 


81 


0141 


81 


0142 


81 


8143 


81 


8144 


81 


8145 


81 


8146 


01 


8146 


01 


8147 


01 


0148 


01 


0149 


81 


0150 


81 


0151 


81>015Z 


eueisz 


01.0152 


01II015Z 


01*0152 


0ia01S2 


81 


0152 


81 


0153 


81 


0153 


81 


0154 


81 


8155 


01 


0155 


01 


0156 


01 


8157 


01 


8158 


01 


0159 


01 


0160 


81 


8161 


01 


8162 


01 


8163 


01 


8163 


01 


8164 



1373G 81373837880808055281752365171416000 
13737 810731004000000006161520268G1456000 

13740 01073100200800000750562825421455000 

13741 918551880008000814817E282472145E888 

13742 8107301700000G055416162366871416000 

13743 01063117000000800260302025571456000 



13744 01073100480080000515162026071456000 

13745 010730170000060SS41616Z366071416000 

13746 01065117000006054260302365571416008 



13747 81S73ei7e90S3G85414S5S23S557741E8ee 
137S0 01063817800006055201762366171415000 



13751 01023117003106055415152365437416000 

13752 8il708178200060S54151S23652514158ee 

13753 01023117000006055416112365431416000 

13754 81873817808006855416162366231415000 

13755 81161180480000001401718025561456000 



13756 01073117800006055416162365431416000 

13757 01873117000006055416162365431416000 

13760 01873117803886055416162365437416000 

13761 01065100210027670740762025711456000 

137E2 81873817820086055415152366051418000 

13763 01063117803186054440352365551415000 

13764 01873117014022711416152025411456000 

13765 01161080480000001401362025561456000 

13766 01161100600000001403362025561456000 



13767 010621 17080006055404S5036G031416000 
13770 01073117000088800016000725451556000 



13771 01073117020006055416162365411416000 

13772 01024117000027731415112025431456000 

13773 8187^17000006055415162366271416008 

13774 81120017883106055415162365431416080 

13775 01064100220027727400762024711456000 



;Doin3 this here is easier than cosparins ssainst 35- 

;That is. this way Me count down 25.22.1S>8'l>-5 or 

.-perhaps 30,24.18.12.6.0,-5 
0[LPT-iJ3RD! ROTiRI MftSKt?! CESTtO PRl KORTI S 

;Fetch byte froa word 
D[LPT-CONSAyi R0T[24.1 COND[Q8US<01 JUnP[LPTP781 C550 » 

;JuBp if alternate character set bit set (rubout seen) 

;or slewing paper Cif bit 20 is set) 
uEfiRl RuT[l + 30.] i1ASKi2] COf«)tOai5=0J JufPILPTPTFl CSSa $ 

;Jump if control character 
CtrtflSK 7] flLU[Di«Q] CC»E!-08US=81 JUriP[LPTP7Cl C550 $ 

;JuDp if NOT a rubout 
DtLPT-CONSfty] DESTIQ] KKM $ 
DCCONST 1] R0T[3S. - 24.] ftLUtOORO] DESTILPT-CONSAV] 

JUHPELPTP7D1 NORM $ 

DCCONST 1] R0T[35. - 24.] flLUCDORQ] OeSTtLPT-CONSAV] 

JUnP[LPTP7E] NORM S 

;0R in alternate character set bit (rubout seen) 



;Rubout has been seen. 



eanins alternate character (hidden character) is 



X3l C1D3 larro Vl'CKJlt'CnVKKi.f fr^TlOLL^O£.3TLi.T^yotxx 

01 0166 



;to be printed, or slewing paper if bit 20 set. 

LPTP7B: DCLPT-CONSAV] ROT[20.1 a»C[OBUS<01 JUnP[LPTSL2] NORM * 

DCLPT-CQNSftV] DESTtiJ] NORM $ 
LPT5LE: DICONST 1] R0TI35. - 24.1 flLUC-O&O] OESTILPT-CONSWl NORM S 

;Turn off alternate character set bit (rubout seen) and 
slew 

;paper bit 
ptrrmycT f\ onrrci nccTrAT cunoT * 

DILPT-MOROl ROTtRl MASKI7] flLUCDORQ] DESTtQ] NORM « 
.-Turn on 200 bit 
: \ / 

;tlhar8cter is a nornal character (or is ready to print) 
LPTP7C: flLUCO] DESTCiaj] SPEC C lOB-OUT ] 5H0RT $ 

;Send out character 
LPTP7D: MflPFCLPT-OflTfll CYLENtlOe-OUT] ECLPT-POSl fiLUID+ll CESTCQl S 

.•Finish sending character. Advance siaulated printhead 
LPTP7S: ALUIQ] DESTCLPT-POS] NORM % 

;Character has b>een processed. Advance to next byte or word. 
LPTP7E: DtLPT-RQTl DESTCQl NORM t 

DICONST 7] ALUtO-D] DESTCLPT-ROT] CONDCOBUS<01 JUMPCLPTIEN] C550 
$ 

;Advance byte pointer and check for end of uord 
.REPEAT F4SW C 

NORM t ;Uait soae aore. Cycle lengthes don*t fit anenonics 
NORM * 
];[ 

NORM $ ;l4ait sotpe aore. Cycle lengthes don^t fit aneaonics 
NORM $ 
1. REPEAT F45U 

SPECCIoa-INl SHORT % 

--Start reading status frott hardware 
MftPFCLPT-STATUSl CYLENC lOB-IN] DCIOOl ROTCl ♦ 29.1 ALUIDirtl 
MASK[3] 

C[»ffiCOBU5=01 JUtl'£LPTP7A) $ 
;If LPT is still ready to accept data, send soae aore. 
J \ / 

^Enable sicro- i.ntsrrupts so that we can finish processing this word 
later. 
LPTIEN: MfiPFCLPT-DiATA] CYLENC lOB-OUT] DCLPT-CONSflyj DESTCO} C 
;Fini5h sending data in case of unpacked data 
DCCONST n R0TC18. 1 ALUCDORQl DESTCIOO] SPECCI08-0UT] long * 

;Set a icro- interrupt enable and status 
HAPFCLPT-CONTROLl CYLENC lOB-OUTl CLR-DEy-FROtl-INTR 
FETCH-NEXT-INST t JUMPCMAIN] 1* 

.'Finish enabling interrupts and start new instruction 

:Interpret control characters 

LPTP7F: DCCONST 5] ALUCQ-Dl DCSTCQ] C0ND(0aUS<8] JUMPCLPTP7I] C558 » 

;Jump if less than TF 
;;; DCCONST 28] ALUCia-D] CONDC-OBUS<01 JUffCLPTP7:] C550 $ 

;;; Jjump if greater than TU 

DCC(»BT 15) ALUCQ-D] COND1-OBOS<0] JUff [LPTP7I] C550 « 
; JuDp i-f 9r eater th^n TS 
•repeat 1 - f+sw [ 

DtLPT-DISPl MASKtlB. ] ALUtD-0-11 SOISP CYLENCDISP] « 

iBranch according to control code. Tabic ia^cdiatcly 
;precedes interrupt locat ion 
];.r^^eat 1 - fl-sw 

•repeat f^sw [ ;This distinction Bight go away someday if MUA-ROT is 
ever 

;ALWAYS zero- Sigh... 
DCLPT-OISPl HftSKClB. 1 ALUID-Q-n DESTtHXDJ NORTI « 
DtriEni ROTtnUA-ROT] DDISP LONG $ 

;Branch according to control code- Table iMMediately 
(•precedes interrupt location 
];[ ;This distinction Bight go away someday if MUA-ROT is ever 
:ALUfiYS zero. Si^. .. 
DILPT-DISPl nASKClS.] ALU[D-Q-1] OESTIHOLD] NORM S 
DCMEM] ROT[nUA-ROT] OOISP LONG $ 

;Branch according to control code. Table i««ediately 
;precedes interrupt locat ion 
I -repeat f^sw 
;Control character is ignored (sort of) but also clear coluan position(?) 

LPTP7I: riffl^(LPT-OATA] CYLENtlOB-OUT] 

.REPEAT F^SW [ $ ] t $ ] ;Bug: F4 can^t do A-ttn write during 

IQB-OUT cycle 

ALUtO] DESTELPT-POSl JUPF[LPTP7E] S 

;TA8 expansion 

LPTHT: DLLPT-POS] DESTtQ] NORTI t 

;Get ready to expand tables 
LPTHTl: ALU[Q+11 DESTtQ] SPEC! IDB-OUT] NORTI » 

^Advance to next colunn and send ■ space 
ttAPFtLPT-[)ATA] Cieoe DtMASK 31 ALUtD&Q] COND[aBUS=0] JUHPtLPTPTSl 
S 

;Junp if done uith tab^ else read status from LPT 
fiLuLy] DE5TiLFT-r05j CunuiInTRPTj JunpLLPTItiij Ci8w * 

;Givc interface tiae for synchronize' to se* busy 



SLOE March 23, 13B^ 21:16:12 file STRING: 



of 



01»0172 
eiiiai72 
01.10172 
91 8172 
01 0173 
01 017+ 
01 017S 
01 0176 
01 017S 
01 0177 
01 0178 
01 0179 

ei 0iae 
ei 0181 

01 0182 
01 0182 
01 0183 
01 018+ 
01 0185 
01 0188 
01 0187 
01 0188 
01 0183 
01 0130 
01 0131 
01 0132 
01 0133 
01 0134 
01 01S5 
01 0136 
01 0137 
01 0197 
01 0198 
01 0133 
01 0200 
01 0201 
01 0202 
01 0203 
01 020+ 
01 0205 
01 0206 
01 0207 
01 0206 
01 0208 
01 0203 
01 0203 
01 0210 
01 0210 
01 0211 
01 0211 
01 0212 
01 0213 
01 021+ 
01 0215 
81 0216 
01 0217 
01 0218 
01 0219 
01 0220 
9! 0221 
01 0222 
01 0223 
01 022+ 
01 0225 
01 0226 
01 0227 
01 0228 
01 0223 
01 0230 
01 0231 
01 0232 
01 0233 
01 023+ 
01 0235 
01 0236 
01 0237 
01 0238 
01 0239 
01 02+0 
01 02+1 
01 02+2 
01 02+3 
01 02++ 
01 02+5 
61 02+6 
01 02+7 
01 02+8 
01 02+9 
01 0250 
01 0251 
01 0252 
01 0253 
01 025+ 
01 0255 
01 0256 
01 0257 
01 0258 
01 0259 
01 0253 
01 0260 
01 0261 
01 0262 
01 0263 
01 026+ 
01 0265 
01 0266 
01 0267 
01 0268 



13777 0107311780003S855+1S1S23G5+31+1S000 
1+000 010731 1700000605S+161B23E5+31+1S000 

1+001 01073117003086055+16162365+11+15000 



1+002 01073109210027770761162025711+55000 
1+003 010731170000277+5+16162025+31+55000 

1+00+ 010601170031277621+11520Z5S71+5S000 

1+095 0106311709002773026+392025571+56099 

1+006 0102+117000906055+16112365+37+15000 
1+007 01152100+00900901+03562025561+56009 
j*aio 0106011700310605+070552365571+16009 
1+011 01073017020027715+16162026051+56900 

1+012 010731170099e60S5+160++366237+17090 
1+013 01073017000006055+16162366177+16999 
1+01+ 01073137000006055+02362365577+16999 
1+015 01161117O009060S521B106365+31+16000 
1+016 010731 170031277++07935292SS71+S6090 



scm aore. 



Isnsth;es den* 



mr.smcr, ; cs 



1+017 01073017999930011+0135202S571+S6000 
1+020 01073017000030011+01162025571+56000 
1+021 01073017999930011+00762025571+56000 
1+022 01073017000030011+09562025571+55090 
1+023 01073017000030011+00362025571+56000 
1+02+ 01073117000927731+16152025+31+56099 
1+025 01073117090027731+16152025+31+56000 
1+026 01073117003127763+16152025+31+56009 

1+027 01073117003127753+16152025+31+56099 
1+030 01073017000039911+01562025571+56000 
1+031 01073117003127763+16152025+31+56909 
1+032 01073117990027767+10152025571+56099 

1+033 01073117099927731+16162025+31+56000 

1+03+ 01073017090030013+16162026071+56090 
1+035 01073117000027731+16162025+31+56999 



F+lN(f 

]:I 

MORM S 

wsm $ 

1- REPEAT F+Sa 

SPECtID8-IN] C109O % 

;Take a little more time/ then check status 
MftPFtLPT-STftTUSl CYLEN[IOG-IN] 

DilDO] ROTIl + 39. J fW5K[+] CQND[O8US=0] 
JLMPtLPTHTlJ t 

;RGpeat if LPT is still ready for data 
JLWtLPTIEN] NORTI * 

;Not ready- Enable Micro- interrupts and disaiss 

;Paper noving operation 

LPTPftP: DICONST +] RDT[B] i^UtD+01 D£ST[iaOJ SPECIIOS-OUT] JUnP[LPTP7I] $ 

iSend out paper cooniand and 90 clear colunn control 

;Slew specific amount of paper 

LPTSLl: DICONST 21] R0TE3S. - 2+. ) fLUtCKKQl CCSTtLPT-CONSAVl 
JUnP[LPTP7El NORM » 
;Turn on alternate bit and slevi paper bit 
;Get next byte or interrupt. 
:Rcturn here after getting byte. 
LPTSL2: BLUE 01 DESTCLPT-POS] SHORT t 

;Make sure coluan position is clearedF firsts 
DtCONST IB) fiLU[[)-01 COND[OajS<01 JUrP[LPTSL3] 0559 $ 

:JuMp if this takes aore than one Printronix coaaand 
OtCOtST +2) ROTCSl BLUtD+Ql OeSTIIQOl SPEC(IQB-QUT! NORM C 

^nake into paper slewing coaaand for Printronix 
MflPF[LPT-DOTA] CYLEN[ lOB-OUTl DCLPT-CONSfty] DEST(Q1 JUnPILPTSLE) 
* 

;Finish conmands 
;Hore than one Printronix cooaand is required. 
LPTSL3: DILPT-ROT] DESTIROTRI SHORT $ 

:Setop rotation to decreaent lines slewed 
OILPT-UDRO) DEST[Q1 aCRT $ 

;GGt word 
DCCCKBT 11) oeSTtlWl SHORT $ 

;Thank you very auch. P. Petit 
D[fiRl ROTtR) ftLUIQ-D) DEST[ LPT -WORD] $ 

/'Decrement number of lines slewed 
DtCONST C+10 / 8.)) RQTtai DESTIIGOI SPECIIDB-OUT] NORM 
JUnPILPTIEN] % 

;Set command to slew 11 (octal) lines of paper and enable 



byte 

or iginal. 
:27 ? 



: interrupts. Ue will coae back to LPTSL2 with the 
;we were working on before, but decreaented froa 



DtCONST (10. - 1)1 DESTtO) JUTflLPTPflP) NORM • 

;Set foras channel and send paper conaand 



;25 

;25 

;2+ DC+ 
D 

;23 X3 

D 

;22 DC2 

D 

;21 DCl 

D 

!20 XE 

:17 SO 

;16 SI 

;15 CR 

1+ FF 

:13 UT 

;12 LF 



DtCONST (9. - D) DESTtQl JUWtLPTPflP] NORtl $ 
;5et foras channel and send paper coaK 



DtCONST (8. 



-1)1 DESTtQ) JUnPILPTPflP] NORtl S 
foras channel and send paper co n aa n d 



DtCONST (6 - 1)1 DESTtQ] JUHPtLPTPflPl NORfl « 
;5et foras channel and send 



DtCONST (5 - 1)] DESTtQ] JUnPtLPTPAP] NORtl $ 

;Set foras channel and send paper coiHDand 



DtCONST (+ - 1)1 DESTtQ] JLTPtLPTPflPl NORtl t 

;5et foras channel and send paper connand 



DtCONST (3 - 1)1 DESTtQ] JUfPtLPTPAP] NORtl S 

:Set foras channel and send paper coaaand 



;11 


T(« 


they 


;10 


BS 


;7 


(BE 


:6 





DICONST (2 - 1)] DESTtQ] JUTPtLPTPflP] NORM $ 

;Set foras channel and send paper coaaand 

DtlW] DESTtlOO] JUrPtLPTP7E] MKtl t 
; Ignore for now 

DtARl DESTtlOO] JUf*'tLPTP7El NORH t 
; Ignore for now 

DtARl DESTtlQOl SPECtlOB-OUTl JUtPtLPTP7Il NORM $ 

;Send CR directly to printer. Clear coluan counter 

DtCONST (1 - 1)1 DESTtQ] JUMPILPTPflP] NORtl » 

;Set forms channel and send paper coa aan d 

DtflRl DESTIIODl SPECtlOO-OUT] JU«'tLPTP7Il NORtl » 

^Send FF directly to printer. Clear coluan counter 

DtCONST (7 - 1)1 DESTtQ] JUTPtLPTPflP] NORtl $ 

;Set foras channel and send paper caaaand 

DtflRl DESTtlDDl SPECtI08-0UTl JUnPtLPTP7Il NORtl $ 

;Send LF directly to printer. Clear coluan counter 

DtCONST +81 DESTtlOOl JUTPtLPTHTl NORM « 

;Put a <space> onto 10 bus and start counting thea as 

;are sent 



JLnPILPTP7E] NORfl » 

: Ignore <backspace> for now 
(SELL) Slew N lines 

DtLPT-CONSflV) DESTtQ] JLTPILPTSLl] NORM t 

JLrf'tLPTP7El NORM $ 

; Ignore for now 



01 0270 1+036 01073117003127763+16152025+31+56000 



DtflR] DESTtlDDl SPECtlCB-QUTl JUtftLPTP7I] NORM * 



SLOE March 23, 198+ 21:18:19 file DSK:LPTX.SLO — of 



F'tl(*F 



14037 918731170931060S5+0«S236E87HlB3e0 

H0+e 0197310e6iee27B7HlGlG2e2B21HSGeee 

H041 010730170OT0a60S5+lBlG23E6071416B00 
140+2 010650170ee006054140SG23eS571+lE000 
1+043 010G31170000060541403023S557141B000 
14044 01073120000620343400762026061456008 
140+5 0107311700+022711+16162025+31+56000 



1404B 0102+117000006055416102365431416006 
14047 01073117003106055416152366071416006 



01 0275 
01 0276 
31 3277 
31 3273 
01 0278 
01 0279 
01 0279 
01 0280 
31 S2Bi 
01 02B2 
01 02B3 
01 0284 
01 3285 
01 0286 
01 0287 
01 0288 
01 0289 
ei 0290 
01 0291 
01 0292 
01 0293 
01 0294 
01 0295 
01 0Z96 
01 0297 
81 8298 
01 0298 
01 0299 
01 0386 
81 0380 
01 0301 
01 0302 
01 0303 
01 0384 
01 0385 
81 930S 
81 8307 
81 0388 
01 0309 
01 0310 
01 0311 



81 0313 

01 9314 

81 8315 

81 0316 

01 0317 

01 3318 

01 0313 

01 0320 

01 8320 

01»03Z1 

01H0321 14050 01073117862738203067706365531416006 

011110321 

81 0321 

01 0322 14051 0102411700000505541B112365431415006 

81 8323 

01 0324 14052 01072117060086855406110425571416366 

01 0325 

01 3326 

01 0327 

81 8328 

01 8329 

01 0336 

01 0331 

81 0332 

81 9333 

01 033+ 

01 0335 

01 0336 

01 0337 

01 0338 

81 0339 

01 03+0 

01 03+1 

01 03+2 

01 03+3 

81 03++ 

01 03+5 

01 03+S 

01 03+7 



LPT Interrupt Code 



;This code is iminediatelx preceded by the control character decode table 

LPTINT: DILPT-CtWSflUl t1ASK[18.j DEST[IiX) SPECi lOB-OUT) HORfl % 

:-~urn oft a icro- interrupts 
MftPFILPT-CONTRQLl CYLEN[ IQB-DUT) 

DtLPT-ROTl CCWD[-O8US<01 JLr*'tLPTP7ft] $ 

;Finish output 

:CI"(eck for more characters to process 
DILPT-CONSW] DEST[Q] NQRH $ 

;Get status word 
DCCONST 2] RQTIBl flLUHKQ] DESKQ] MORTI $ 

;Turn off BUSY 
DCCONST 1] R0T[6] ftLU[DORQ] DESTILPT-CONSAVl NORM S 

;Turn on DONE 
LPTNT2: DCLPT-CCNSfW] mSK[3] DEST[flR] COND [ -081)5=0 ] JUnPtPIGEN] C550 * 

;Set PI channel and take ■aero- interrupt if enabled. 
CLR-DEV-FROn-INTR FETCH-NEXT-INST [ JUMPCHfllN] INORM t 

:Start fetching instruction and disaiss interrupt 



;Reset LPT: Set interrupt and dispatch addresses 



LPTRST: ALU[81 OEST[LPT-CONSW] NORM $ 

DtLPT-CONSW] DeST[I001 SPECCIOB-OUTl NORM $ 
;Clear out interface 
.REPEAT 1 - F4SU t 

D[CONET (LPT-DISPflTCH / 106)1 R0TC331 OESTtQ] SPECtlOB-OUT] 
mPFfLPT-CONTROLj CYLENE IQB-QUT j i 
;Finish setting control register in hardware 
;Construct dispatch address: high G bits. 
;Start clear data register in harcb.iare 
D[CONST CLPT -DISPATCH \ 103)1 ROTI22] flLUCDORQ] DESTtO] 
rWPFILPT-DflTfl] CYLENCIOB-OUTI S 
;Finish clear data register in harcMare 
;LoM 6 bits of dispatch address 
DICONST (LPTINT / 136)1 RQTt6] flLUIOORQI DESTIO] NORM S 

;Construct interrupt address: high 6 bits 
DItllNST (LPTINT \ 106)1 flLUtDCBQ] DESTILPT-OISP] NORm 

;Finish contructing interrupt address and store away. 
];. REPEAT 1 - F+SW 
.REPEAT F4SW [ 

DCLIT ((LPT -DISPATCH » 1366060) ♦ LPTINT)! DESTCLPT-DISP] ►BRtI S 



1;! 



DtLIT ((LPT -DISPATCH » 1060668) + LPTINT)) DESTILPT-DISP] NORM » 



]. REPEAT F4SW 

ALUt0] OESTCLPT-POS) NORH S 

;Clear colunn position 
ALUt-11 DESTELPT-ROTl NORH POPJ $ 

;No b>'tes left in this Mord 

jWe're done- 

. REPEAT 1 - STANSU [ 

;General CQNSH/CONSQ termination 

XXCDNSO: 

.REPEAT 1 - F4SH [ 

D[IR) nftSKt221 ALUCD&O) CDND[OBUS-0] JUHPtrWIN] CS50 • 

DOStCIP $ 
I;. REPEAT 1 - F4SU 
.REPEAT F4SU [ 

DIIR3 f1ASK[221 ALUCDgQ] CONDSKPI-ftLU'«l % 
1;. REPEAT F4SW 

XXCDNSZ: 

.REPEAT 1 - F+SU [ 

DtlRl nASK[221 ALU[DS,Q1 COMJ [ -<BUS.3 ] JUnPtflAIN] C558 t 

DOSKIP * 
);. REPEAT 1 - F+SH 
.REPEAT F+SU t 

DtlRl MASKC221 ALUID&Ol C0NDSKP[ALU-3) t 
];. REPEAT F+SH 
);. REPEAT 1 - STPWSW 



SLOE March 23, ISS-J 21:18:Z2 file STRING: — of — FtlNNF 

03 1^51 .:LPT code (same source for F2 or F4) 

33 l<tsi 13. repeat uaitsfix 

08 HS2 



SLOE March 23, 


1384 21:18:22 


ea 1+53 




93 H54 




83 l-tSS 




83 H5S 




03 1457 




03 1458 




09 1453 




03 1460 




eS i4S; 




03 1462 




03 1463 




03 1464 




03 1465 




09 1466 




09 1467 




09 1458 




09 1489 




09 1470 




09 1471 




09 1472 




09 1473 




09 1474 




09 1475 




09 1476 




09 1477 




03 1478 




09 1479 




03 14B0 




09 1481 




09 14B2 




09 1483 




03 1484 




09 1485 




03 1486 




09 1487 




03 1488 




03 1489 




03 1489 




03 1490 




09 1431 




09 1432 




vS 14S3 




03 1494 




09 149S 




09 1495 




09 1497 




09 1498 




09 1499 




09 1500 




09 1501 




09 1502 




09 1503 




09 1504 




09 1505 




09 1506 




09 1507 




09 1506 




09 1509 




09 1510 




09 1511 




09 1512 




09 1513 




09 1514 




09 1515 




03 1515 




09 1515 




09 1515 




09 1517 




09 1518 




09 1518 




09 1513 




09 1519 




09 1520 




03 1521 




03 1521 




09 1522 




09 1S22 




09 1523 




09 1524 




09 1524 




03 1525 




09 1525 




09 1526 




09 1527 




09 15Ze 




09 1529 




09 1530 




09 1531 




09 1532 




09 1533 




09 1534 




09 1535 




09 1536 




09 1537 




09 1538 




09 1533 




09 1540 




09 1541 




03 1541 




09 1542 




09 1543 




89 1544 




09 1545 




09 1546 




09 1547 




09 1548 




09 1549 




09 1550 




OO ICCI 





file DSK:F4ID.SLD 



of — F41NNF 



JSk 



09 1552 



.REPEftT DSK [ 

;DISIC CTRL IDTS— 149 - 174 • ' 

.opcodet7151 ;DISK CTRL IOTS-- OPCCDES 715 TO 724 

.REPEAT 1 - «!TSFIX 1 

DICONST 10] DEST[DEU-flDRl NORM JUnP[DSKIN01 $ 
D[CCINST 191 OeSTCDEy-AORl HORfl JUTPCDSKINO] S 

DCCCWST 10] OEST[DEU-flDR] NORH JLTPEDSKINl] $ 
DICONST 101 DESTtDEU-AORl NORTI JL»P[DSKIN11 % 

DtCtWST 181 DEST[DEy-ftORl NCRU JUrP[DSKIM21 $ 
DICONST 101 DESTIDEV-flORl NORTI JUTPIDSKINZl $ 

DICONST 181 DESTIOEV-ADRl NORM JUrPIOSKINSl $ 
DICONST 101 DESTIOEV-flORl NORM JUtFIOSKINSl * 

DF/WT DIMEnl DESTIIOO ftRl NORM JLrPIDSK041 S 
ALUtrEtiaCl DESTIIOO flRl NORM JljnPIDSK04I $ 

DFMT DlrEnl DESTIIOO] NORM JLTPIDSKOSl S 
ALUlrETWCl DeSTIIQOl NORM JUnPIDSKOSl « 

DF/WT DinEfll DESTIIOO) NORM JLTPIDSKOGl $ 
flLUirEmCl DESTtlDDl NORM JUTPIDSKOGl $ 

DFAIT DtrEMl DESTIIOO] NORM JUnPIDSK071 $ 
flLUirtrMCl DESTIIOO] WIRII JUMPIOSK071 » 

•reloc 
-Ever 
;Read from corresponding register in disk controller. If not in Exec 
mads 

;and not in lOT User node, then trap as UUOs. 
DSKIN9! START-IN S 

rWPFiei DIIODl C590 DESTIflRl nfK20 LBJUTPISXEOIl $ 
DSKINl: STi^T-IN S 

nflPFUi DiioD] csee DesTiflRi nft<20 lbjutpisxeoii t 

DSKIN2! STflRT-IN * 

rWPFI21 DllOOl C500 DESTIiWl WK20 LBJUfPISXEOU * 

DSKIN3: STflRT-IN $ 

mPFI31 DIIODl CS00 DESTIflCl nA<20 LBJUWISXEQIl $ 

DSK04: DICONST 101 DESTICCV-flORl NORM CONDIUSERl JUrPIILLUUO] » 

STfiRT-OUT % 

W1PFI41 DIflRl DESTIDW«:i121 CS00 JUrPinfilNl * 
DSKOS: DICONST 18) DEST I DEU-fiOR 1 NORTI CONDIUSERl JUtf IILLUUO] » 

START-OUT $ 

rwPFisi CS00 juHPimiNi t 

DSK06: DICONST 191 DESTIDEy-MJRl NORM CONDIUSERl JUnPIILLUUDl $ 

START-(XJT t 

HAPFIB1 C509 JUrPIMAINl t 
DSK07: DICONST 18) DEST I DEy-flOR 1 NORM CONDIUSERl JUTPIILLUUDl » 

START-OUT % 

MAPFi?] C5&8 JUfPI.IAIWl S 

];. REPEAT 1 - UAITSFIX 
.REPEAT UAITSFIX t 

STA.RT-IN DICONST 19] DESTIDEV-ADORESS] NORM CONDI-USERl 
LBJUtPIDSKINOl * 

START-IN DICONST 19] DEST I DEV-fiOORESS 1 NORfl CONDI-USERl 
LBJUftPIDSKIN91 S 

START-IN DICONST 191 DEST I DEU-AOORESS 1 NORM CONDI-USERl 
LBJUMPIDSKINll » 

START-IN DICONST 19] DEST I DEV-ADORESS 1 NORM CDNDI-USERJ 
LBJUMPIDSKINll « 

ST(WT-IN DICONST 101 DEST I DEW-AOORESS ) NORM CONDI-USER) 
LBJUMPIDSKINZl » 

START-IN DICONST 10] DEST I DEW-AOORESS ) NORM CONDI-USERl 
LBJUMPIDSKIN21 $ 

START-IN DICONST 10] OEST I DEV-flOORESS 1 NORM CONDI-USERl 
LBJUMPIDSKIN31 » 

START-IN DICONST 101 DEST I DEU-AOORESS 1 NORM CONDI-USER) 
LBJUMPIDSKINSl t 

DF/UT DIMEMl DESTIIOO ARl NORM CONDI-USER] LBJUMPIDSK041 ( 
ALUIMEMACl DESTIIOO AR) NORM CONDI-USER) LBJUrPIDSK04] t 

DF/WT DlnErt) DESTIIOO] NORM CONDI-USERl LBJUMPtDSKCEl « 
ALUlnEMAC) DESTIIOO] NORM CONDI-USERl LBJUMPI0SK05] $ 

DF/WT DIMEMl DESTIIOO] NORM CONDI-USERl LBJUMP I DSK06 1 * 
ALUIMEfWC) DESTIIOO) NORM CONDI-USER) LBJUMPCDSK06] « 

DF/WT DIMEM) DESTIIOO] NORM CONDI-USER) LBJUMPIDSK07) S 
ALUlnEMAC) DESTIIODl NORM CONDI-USER) L8JUnPtDSK07) $ 

•reloc 
-even 
;Read froM corresponding register in disk controller. If not in Exec 
■ode 

;and not in lOT User node* then trap as UUOs. 
DSKIN0: HAPFI9) START-IN UIOTCK IILLUUO) * 

MAPFlal DIIQO] csee DESTIARI nA<23 LBJUnPISXEOII s 
DSKINl: MAPFIl) STflRT-IN UIOTCKI ILLUUO) » 

MAPFIll DIIOD] csee DESTIAR] nA<20 LBJUMPISXEDI ) « 
DSKIN2: MAPFIZ) START-IN UIOTCKI ILLUUO] » 

nflPFI2] DIIOD) C500 DESTIAR) MA<20 LBJUfflSXEOI) « 
DSKIN3: HAPFI3) START-IN UIOTCKI ILLUUO] « 

MAPFis) DIIOD) csee destiar] ma<20 lbjumpisxeod $ 

-PAIR 
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eg 1S58 osKOS: uiotckiilluuoi t 

89 1559 START-OUT D'CONST 10! D£ST [ DEV-ftDORESS ! ^E!Rn $ 

89 1SB8 HAPFiSj CSee j'UHPiflftlNi S 

89 iSBl 

89 15E2 .PAIR 

89 1563 DSK06: UIDTCK[ ILLUUO) S 

83 1584 START-CUT D[CCWST 18) DESTICeu-ftDORESSJ NORtl $ 

83 1565 nflPF[G] csee junptmiN! s 

89 15SS 

89 1567 -PAIR 

83 1SB8 DSKD7: U:DTCK[ ILLUUO] t 

89 15E9 START-CUT D[CONST 18] DESTCOEU-ADCRESS! NORfl $ 

89 1578 ttftPF[71 C5e8 JUUPdlAIN] $ 

89 1571 ];. REPEAT UfilTSFIX 

89 1572 

09 1573 DSKRST: SPEC[ lOe-OUT] ALUI8] DESTIIOO] NORM S 

89 1574 ;SET DSK CTRL CDMHAND REGISTER TO 8 (DISABLES INTS). 

89 1575 fttPFKl SPEC[I08-0UT] DtCMST 21 OESTCIOOl CYLENtlOB-OUT! S 

89 157B ;l«*l RESET THE CONTROLLER. 

89 1577 I1APFC7) ALUO] DEST[DMnEHl] CYLEN[ lOB-OUT] t 

89 1578 .-ALSO CLEAR THE PI CHlWNEL ASSIGNMENT. 

89 1579 DtLASEL DSKINTl DEST [ D*ArEf18 1 POPJ S 

89 1580 ■ ' 

09 1581 ILLUUO: juriP[nuuo] s 

09 1582 
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10 


15S3 


18 


1584 


le 


1585 


10 


isee 


18 


158? 


10 


1588 


10 


1588 


10 


1590 


18 


iSSl 


10 


1592 


10 


1593 


18 


159+ 


18 


1595 


13 


1598 


10 


1597 


10 


1598 


10 


1599 


10 


1600 


10 


1G01 


10 


1E02 


10 


1583 


10 


1504 


10 


1585 


10 


1606 


10 


1607 


10 


1608 


10 


1609 


10 


1510 


10 


1811 


la 


1512 


10 


1513 


10 


1614 


10 


1615 


10 


1616 


10 


1617 


18 


1618 


18 


1619 


18 


1620 


18 


1621 


10 


1622 


10 


1623 


IS 


1S24 


18 


162S 


18 


1626 


18 


1527 


18 


1528 


18 


1629 


18 


1630 


18 


1631 


18 


1632 


18 


1633 


10 


1534 


10 


1635 


10 


1636 


10 


1537 


10 


1638 


10 


1539 


18 


1639 


18 


1640 


18 


1641 


18 


1642 


18 


1643 


18 


1644 


18 


1645 


10 


1645 


la 


1647 


10 


1648 


10 


1649 


18 


1658 


le 


1651 


18 


165Z 


18 


1653 


18 


1S54 


18 


1655 


le 


1656 


le 


16S7 


18 


1658 


10 


1659 


18 


1668 


18 


1661 


18 


1662 


18 


1G83 


18 


1664 



of — F41Wf 

; DISK Stuff 

;a-Bca jsease: 

; 1 

; 2 



pi chn (33: 35) and intrpt waiting flag (32) 

copy of last cmd sent to controller iby opcocte 721) 



.opcode[748] ;Disk pseudo-iot dispatch table entries--- 
" -ilpLDCriGP!! * 
JUnPIDCNOfl] $ 

JUflPIDCNIfl) * 
JUt1P[DChlIAl » 

junp[[x:NS(M) t 

JUMPEDCNSOfl) % 

junptxfjszft] * 

JUrP[DCNS2A) % 

-reloc 
; dcono -- 748 

DCNOft: ■ ' 

.REPEAT 1 - WAITSFIX ( 

diconst 101 destCdev-adrl short S 
];. REPEAT 1 - WfllTSrlX 
.REPEAT UfllTSFIX [ 

d[const 101 dcst [ dev-adr ] nori» cond[user] pushj [ck iotu 1 * 
];. REPEAT UAITSFIX 

dlir] EoasklS] dest [OSfiflEnil norn jui»p[dcnol IS 
; dcon i — 741 
DCNIA: dtconst 191 dest [dev-adr 1 norm pushjtdcnill * ;9et bits. 

diar] SMAC $ ;store them and return. 
; dcoRso — 742 
XNSOA: dLconst 10! dest [ dev-adr 1 nora pushjCdcnill » ;3et bits. 

dCnask 221 aluCdici! cSSe cond!-obus=0! IbjumpEdskpl 1 $ 
; dconsz — 743 
KNS2A: dtconst 101 dest t dev-adr ) nor« pushj[dcnil] » ;9et bits. 

d[nask 221 alu[d£,ql cSSO cond[obus-81 lbjuBp[dskpl] S 

dcnol; dCirl nasktSl c50e condtobos^l junpCuain] $ 
; if assisrsd pi char.ns! is not 0.- then 
; enable interrupt on "not active', by 
; re-loading last cmd with 10 bit on. 
DCCONST 291 DESTIQl NORM * 
DtlRl ALUCOfcOl C5S0 OeUS=e JUnP[DCN021 $ 
DCCONST 40] DEST[Q1 NORM JUMPtDCND3] « 
XND2: dCconst 181 ctestCql short S 

OatB: d[D*PlfEn21 alu[dorql desttiodl spccC iob-out ] nor» $ 
Bapfl*] cylent iob-out 1 junpLiaain] t 

dcnil: d[D4AMEMll destEa ar 1 nora S Jget intrpt flag and pi chn 
.REPEAT 1 - UAITSFIX t 

dlirl alu[dg.q] destlql nora popj $ ;this is for conso, 2 
1;. REPEAT 1 - UAITSFIX 
.REPEAT UAITSFIX [ 

dLirl alu[d&ql dest[ql nora condE-userl popj % ;this is for 
conso , z 
; \ / 

;Subrout!ne to trap if not in EXEC or lOT-User aaiia 
CKIQTU: UI0TCK[MUU01 $ 

POPJ » 

];. REPEAT UAITSFIX 

; interrupts froa disk (dev 10) coae here. 
DSKINT: DtCONST 501 ALU[N0TD1 CESTCQl NORM $ 

d[D*AnEf12] ALUID&Ql desttiodl specC iob-out ] nora » 

;clear interrrupt enable bit (affieB[21 has last cad) 
«apf[41 d[D*AMEMll destCq arl c5S0 condtobus=el juaptddisl « 
dCconst 10] aluldorql dest I D*AMEM1 1 nora juaplpigenl $ 
;set fla3 and request intrpt. 
ddis: oil — dev-froa-intr nora juap[aainl S 



DSKWTl; 
0SKMT3; 



DSKUT4: 
DSKUON: 



DICONST 10] OeSTtDey-ADR AR] NORM JUnP[DS*CHT4] $ 

DLMEMl R0TI31.1 C550 COND[OBUS<0] JUtf> [ DSKUON 1 $ 

DtCONST 11 ROT[LLOAO-ROT + 61 LLOAD NORM » 

C558 LOOPI . 1 » 

START-IN NORM % 

HftPF[0] OdOOl DESTCHOLDl C800 JUMPCDSKWTSl » 

Dirt?] ALUCD-11 DESTLARl C55e COND[-OBUS=01 JUrP[DSKUT4) $ 

JUMPIMAINl $ 
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F41MNF 



■1 ISSS 
llmlBBE 
llnlEBE 

llffrlGGG 

llmlGGB 

iinises 

llalGGS 

Umises 

UbIGGG 

llnlGSG 

llnlBSG 

llmlGGS 

llmlGEG 

UnlESS 

llmlBSe 

llmlSSE 

llnlBSG 

llmlSGE 

llnlGee 

11K1666 

llalGG6 

llolGSS 

llmlBSS 

llnlGEE 

llmlESe 

llmlBSG 

llnlGGG 

llml566 

llnlGSe 

llmlGGS 

llii>1666 

llml666 

llmlESG 

llnlGGS 

llnlBGS 

llmlSBS 

llmlSSB 

II111IG66 

llmlS66 

llinlEGS 

llnlSSE 

lls-lSSS 

UnlSeE 

llmlGGe 

llmlEEE 

llnlEGE 

llmlESE 

UnlEGG 

llml666 

UmlBGe 

llmlGSE 

II111IE66 

lltiilE66 

llnlEBE 

llnlEEG 

llKlSGe 

UnlEGG 

llrnlEGS 

llmlEGG 

llxlEGG 

llmlGGE 

UnlGGG 

UnlGGG 

UmlGGG 

UnlEGG 

UnlEGG 

UnlGGS 

UnlGGS 

UnlGGG 

UnlGGG 

UnlGGG 

UnlEGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UitlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGSG 

UnlGGG 

UnlGGG 

UnlEGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlEGG 

UnlGGG 

UnlGGG 

U-IGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

UnlGGG 

1 i»2E8G 

UnlEGG 



1 t 
;CISK 



TE— 148 - 174 



.opcode[7153 [xlist 
list );DISIf CTRL lOTS- 



□PCODES 715 TO 724 



.REPEftl 



USITSFI 



If not in Exec 



DICONST 10] DEST[DEV-flDR) IWRM JunPtDSKINBl S 
DtCONST 18] DESTIDEU-fOR] NORM JUriPIDSKIN0] $ 

DtCONST 10] DESTtDEU-flOR] NORM JUTIPtDSKINl] S 
DtCONST 18) DESTtDEV-flOR] NORM JLTPCDSKINll $ 

DICOfST 10) DESTiDEU-fOR) NORM JUnP[DSI<IM2) S 
DtCONST 10) DESTiDEU-flOR) NORM JUrPIDSKIN2] » 

DtCONST 10) DESTtDEV-AOR] NORM JUMPIDSKIN3) S 
DtCOtST 10) DESTIDtV-flOR) NORM JLrPtDSKIN3) $ 

DF/UT DIHEM) OESTtlOO flRl NORM JLrPtDSir04] $ 
ftLUtnEMAC) DESTtlOO (W) NORM JUnPtDSKD41 % 

DF/UT DtMEMl DESTtIDD) NORM JUMPtDSKOS) S 
fiLUtMEMAC) DESTtlOO) NORM JLHPtDSKOS) $ 

DF/HT DIHEM) DESTtlOO) NORM JUnPtDSKOG) * 
ftLUtMEMAC) DESTtlOO) NORM JUMPIDStCOG] $ 

DF/UT DtMEM) OESTtlOO) NORM JUrPtDSK07) $ 
ALUtMEMAC) DESTtlOO] NORM JUMPtDSK07) $ 

.reloc 
.even 
;Read from corresponding register in disk controller, 
node 

;and not in lOT User mode, then trap as UUC]s- 
DSKINe: STflRT-IN $ 

MflPFI0] DIIOO) C50e DESTiflR) MA<20 LBJUfPtSXEOI ) $ 
DSCINl: START-IM $ 

MAPFtl) DtlOD) CSee DESTtAR] nA<20 LBJUMPtSXEOI) t 
DSKIN2: START-IN * 

MAPFt2) DtlOO) CS00 DESTIAR] MA<2e LBJUMPtSXEOI] » 
DSKIN3: START-IN S 

MAPFtai DIIOD) CSee DESTIAR) MA<20 LBJLrPtSXEOIl t 

DSK04: DtCONST 10J DEST I DE V-ADR 1 NORM CONDttJSER) JUMPIILLUUO) $ 

START-OUT * 

MftPFt4) DtARl DEST[D»AMEM21 C50e JUMPtMAIN) $ 
0SK05: DtCONST 18) DESTtOEU-ADR) NORM CONOtUSER) JUMPtlLLlUO) « 

START-OUT t 

MAPFISl C580 JUnPtMAINl $ 
DSKOS: DtCONST 10) DESTIDEU-flOR) NORM CDNDtUSER) JUnPtlLLUUO) $ 

START-OUT t 

MAPFtS) CS00 JUMPtMAIN) $ 
DSK07: DtCONST 18) DEST t KV-AOR ) NORM CDNDtUSER) JUnPtlLLUUOl $ 

STf«T-DUT $ 

MflPFI7) C508 JLKPIMAINl S 

):. REPEAT 1 - UAITSFIX 
.REPEAT UAITSFIX t 

START- IN DtCONST 18) DEST t DEV-AOORESS ) NORM CONDt-USER) 
LBJUnPtDSKINS) S 

START-IN OtCDNST 18) DEST [ DEy-ROORESS 1 NORM CONDt-USER) 
LBJUt1PtDSKIN0) $ 

START-IN DtCONST 18) DEST t DEy-ADORESS ) NORM CONDt-USER) 
LBJUMPtDSKINl) * 

START-IN DtCONST 18) DEST t DEV-AOORESS] NORM CONDt-USERJ 
LBJUrPtDSKINl) t 

ST(WT-IN DtCONST 18) DEST [ DEy-ADORESS ) NORtI CONDt-USER] 
LBJUrPIDSKIN2) t 

START-IN DtCONST 18) DEST t DEy-ADORESS) NORM CONDt-USER) 
LBJUrPtDSKIN2) t 

START-IN DtCONST 18) DEST [ DEU-AOORESS 1 NORM CONDt-USER] 
LBJUtPtDSKINS) * 

START-IN DtCONST 10] DEST t DEy-ADORESS] NORM CONDI-USER) 
LBJUHPfDSKIN3) % 

DF/UT DtflEM] DESTtlOO AR) NORM CONDt-USER) LBJUMPtDSKO+) » 
ALUtMEMAC) DESTtlOD AR) NORM COfCt-USER) LBJUMPtDSKO+) $ 

DF/UT OlrEM) OESTtlOO) NORM CONDt-USER) LBJUMPtDSKOS) « 
ALUtMEMAC) DESTtlOO) NORM CONDt-USER] LBJUTPCDSKOB) $ 

DF/UT DtMEM) DESTtlOD) NORM CONDI-USER) LBJUMPIDSKOG] $ 
ALUIMEHAC) IXSTIIOOl NORM CONDt-USER) LBJUTFtDSKOG) t 

DF/HT DtMEM) DESTtlOO) NORM CONDt-USER) LBJUMPtDSKO?] * 
ALUtMEMAC) DESTtlOO) NORM CONDI-USER) LBJUnPIDSKO?) S 

.reloc 
.even 
.•Read fron correspondina register in disk controller. If not in Exec 
node 

tand not in IDT User inode. then trap as IXDs. 
DSKIN0: nflPFI8) START-IN UIOTCKtILLUUO) $ 

MfiPFta) DtlODl CSee CESTIAR) WKZS LBJUMPtSXEOI) « 

DSKiNi! hapfid start-in UIOTCKIILLUUO) $ 

MAPFtn DIItB) C5e8 DESTIAR) MA<2e LBJUTflSXEOI) $ 
DSKINZ: MftPFt2) START-IN UIOTCKIILLUUO] S 

mPFi2i DIIOO) csee DESTIAR) HA<28 lbjumpisxeod * 

DSKIN3: MAPFtS) START-IN UIOTCKIILLUUO] S 

MAPFia) DIICO) csee DESTIAR) Hft<20 LBJUrPtSXEOI) t 

.PAIR 



07632 01073112503838001402846125571+57000 

07633 010731126036000014020+6125571+57000 

07634 01073112603000001402046125571457000 

07635 010731 1260300006140204E125571457000 

07635 01073112603000001402046125571457000 
07637 01073112603000001402046125571457000 

076+9 01073112683000001+020+6125571+57008 
076+1 010731 12603000001+020+E125571+57008 



07642 03073132500000001416152125+7135S000 
075+3 01933132508000801+1G1S2185+31+56080 



07G++ 03073112600000801+16152125+71355080 
076+5 01033112508000801+16152105+31+56880 



076+5 03873112500000801+16152125+71356080 
S7S+? S^ 3^31^2688080001+15152195+31+55900 



07650 03073112588888801+16152125+71356000 
87551 81033112588880801+15152105+31+56080 
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111IG66 
111666 
IDI666 
ml 66b 
ml 666 
mlE66 
inl66G 

mieee 
misee 

011665 
ml66S 
ml666 
ml565 
ml666 
ml 666 
ml666 
ml566 
ml666 
ial666 
ml56e 
alG66 
ml56e 
i>166S 
ml666 
ml666 
ml666 
ml666 
ml666 
ml656 
nl666 
■11566 
■11666 
ml666 
ml668 
mlG56 
mlSGE 
nl666 
ml 665 
mlE66 
ml666 
mlG66 
alSSS 
■■1566 

■ 1666 
>1665 
nl56G 

■ 1666 
nl666 
ml665 

■ 1667 

■ 1657 
mlGGB 

■ 1666 

■ 1668 

■ 1666 
■1668 

■ 1668 
■1568 
■1658 

■ 1658 
ml658 

■ 1668 

■ 1668 
1668 
1658 

■1668 
■1668 
■1668 

■ 1658 

■ 1688 
■1658 

■ 1668 
■1658 

■ 1669 
•1659 
■1669 

■ 1669 

■ 1659 
■1689 

■ 1659 
■1669 
■1E70 

■ 1670 

■ 1670 

■ 1678 

■ 1678 

■ 1670 

■ 1670 

■ 1678 

■ 1671 

■ 1671 
al6?i 
■1671 

■ 1571 

■ 1671 

■ 1671 

■ 1671 

■ 1672 

■ 1E7Z 
■1672 
■1672 

■ 167Z 
lEEG 
1667 
1668 
1689 
1678 
1671 



- F+INNF 
DSKC5: 



LilGTCKIILLLiLiOJ S 

START-OUT DLCQNST 10] DEST I DEy-flDORESS ] NORM » 
MflPFCSl C590 JLinP[nfl!N; S 



.PAIR 
DSK06: UIOTCKflLLUUOl % 

START-CUT 0[CC3»ST 101 OESTtDEU-ADORESSl NORM t 
flAPFtS! C590 JUriP[nflINl $ 



1+85+ 01073100603808806156152024511456888 
14055 0107313100002270541616212S7214SS008 
l+eSS 01073100613000300156102024611456800 
14857 01873131010822705416162125721456088 
14868 01873100623800880156152024611456888 
14861 81873131820822705416152125721456008 
1+862 ei07310e633e000eO1561E2024Ell+55008 
1+083 8107313103802278S+1616212S721+56008 

l+ee+ 0107310060880088015516282+611+56880 

1+065 81873117883106055+020+5365571+17080 
1+066 0107311704002271141510+025+21+56088 

1+078 0107310868880888015515202+611+56880 

1+071 01073117883106855+820+6365571+17000 
1+072 01073117058022711+15162025+21+56000 

1+07+ 0107310060800888015616202+511+56080 

1+875 01873117003106055+020+6365571+17006 
1+076 01073117050022711+16162025+21+56000 

1+106 0187310660088880815616202+511456886 

1+101 01073117863106055+020+6365571+17800 
1+182 01073117670822711+15152825421+56808 

1+103 0102+117083106055+16152365431416008 
1410+ 010731170+3106055+00552365551+16000 



DSK07: 



l;t 



.PAIR 

UIDTCKdLLLUOl $ 

START-OUT DICONST 10] DEST t DEV-ADORESS ] NORM $ 
riAPFI?] CS80 JUnPCMAIN) S 



START-IN 0[Ct9BT 10] DEST I DEU-AOORESS ] NORTI CONDI-USER] 
LBJUrP[DSKIN0] % 

START-IN DCCDNST 10] DESTtDEU-ADORESS] NDRH CQNDC-USER] 
LBJUt1PtDSKIN0j $ 

START-IN DtCONST 18] DEST I DEU-ADORESS ] NORM CONDI-USER] 
LBJUTPIDSKINl] % 

START-IN DICONST 10] DEST I DEU-ADORESS ] NORM CONDI-USER] 
LBJUnPIDSKINl] $ • ' 

START-IN DCCONST 18] DEST I DEU-ADORESS] NORTI CONDI-USER] 
L3JUrP[DSKIN2] S 

START-IN DICONST 10] DESTIDEU-AODRESS] HDRfl CONDI-USER] 
LBJUnP[DSKIN2] » 

START-IN DICONST 10] DEST I DEU-ADORESS] NORM CONDI-USER] 
LBJUnPCDSKINSJ $ 

START-IN DICONST 10] DEST I DEU-ADORESS ] NORM CONDI-USER] 
LBJUMPCDSKIN3] S 

DF/WT DCMEfl] DESTIICD AR] NORM CONDI-USER] LBJUnP[DSKD4] » 
ALUirEMAC] DESTCIOD AR] ►JQRn CM3I-USER1 L3JUrP[DSK04] S 

DF/UT Dtrtni DESTIIOO] NORfl CONDI-USER] LBJUMPIDSKOSl $ 
ALUIHEMAC] DESTIIODl NDRtI COfOI-USER] LBJUtPIOSKOSl $ 

DF/WT DIMEfll DESTtlOQ] NORH CONDI-USER] LBJUTPIDSKOGl $ 
f^UE^EMAC] DESTIIODl NGRfl COSS)[-US£R] L3JUrPIDSK061 S 

DF/WT Dirttll DESTCIOD] NORM CONDI-USER] LBJUTP [ DSK07 1 $ 
ALUIMEMAC] DESTIIODl NORM COTCiI-USER] LBJUnP[0SK071 $ 

-reloc 
t.lBEIHILOCl 
t xlist 

1 i St ] 1 . even 

[:. \ 2 + . 

];Read from correspondina rcsister in disJ< controller. If not in Exec 
■ode 

;and not in lOT User node, then trap as UUOs. 
DSKIM0: W1PFI01 START-IN UIOTCKIILLUUOl 

I DIPC -FLAGS] ROTIEl COM3I-OajS<0] JUMPCILLUUO] LONG « 
]$ 

MAPFiei DtlOOl C508 DESTIAR] nA<20 LBJUTPISXEOI] * 
DSKINl: riAPFtll START-IN UIOTCKIILLUUOl 

[ DIPC -FLAGS! ROTCSl COM)!-QeLB<0i JUt*>[ILLUU01 LONE S 
1$ 

nflPFIll DIIODl C500 OeSTIAR] HA<20 LBJUnPCSXEOIl $ 
DSKIN2: mPF[21 START-IN UIDTCKtILLUUOl 

[ DIPC-FLAGSl ROTtSl COND[-OBUS<0] JUnPIILLUUOl LONG * 
IS 

fWPF[2] DCIOOl CS00 OESTIAR] nA<20 LBJUHPISXEOIl » 
DSKIN3: mPF[31 START-IN UIOTCKIILLUUOl 

I DIPC-FLAGSl ROTIEl CDND[-OBUS<01 JUMPIILLUUOl LONG « 
]$ 

rWPFISl DtlODl C500 OeSTIAR] P1A<20 LBJUtf [SXEOIl « 

-PAIR 
[:. \ 2 + . 

1DSKD4: UIOTCKIILLUUOl 

I DIPC-FLAGSl ROTIBl COM)[-OBLB<01 JUtPIILLUUOl LONG $ 

IS 

START-OUT 0[CONST 10) DEST [ DEU-ADORESS 1 NORM S 
HAPFI41 DEAR] DEST [ D»Af€n2 1 C506 JUtPttlAIN] S 

.PAIR 
I:. \ 2 + . 

1DSK05: UIOTCKIILLUUOl 
I DtPC-FLAGSl R0TI61 CONDI-DBUSOl JUfPtlLLUUDl LONG S 
IS 

START-OUT DtCONST 181 OESTCOEU-ADDRESSl NORM S 
HAPFI51 CS88 JUrPlnfilNl S 

.PAIR 
I:. \ 2 ♦ . 

1DSK06: UIOTCKIILLUUOl 
[ DIPC-FLAGSl ROTIEl CONDI-OBUS<01 JUr*>riLLUUO] LONG S 
IS 

START-OUT DICONST 101 DEST [DEU-ADORESS] NORtI S 
MAPFIGl CS00 JUnPinfllNl S 

.PAIR 

[:. \ 2 + . 

1DSK07: UIOTCKIILLUUOl 
t DIPC-FLAGSl ROTIEl COND[-OBUS<01 JUnPtlLLUUOl LONG S 
IS 

START-OUT DtCONST 101 DEST [ DEU-ADORESS 1 NORtI S 

iiAPFi7i cs0e jufPimiNi s 

I. REPEAT HfllTSFIX 

DSKRST: SPECII08-0UT] ALUI0I DESTIIODl NORM S 

;SET DSK CTRL COmflMJ REGISTER TO (DISABLES INTS). 
nAPF[41 SPECIIOB-OUTl DICONST 21 DESTtlOOl CYLENIIOB-OUTl S 
;«*! RESET THE CONTROLLER. 



11 1673 



JflLSO aEAR THE PI CHflftEL ftSSIGWENT. 



SLOE rlarch 23, 198+ Zia9:00 file STRING: 



of 



11 1S79 

11 isae 

11 1G81 

11 IBBZ 

11 1583 

11 1B84 

iimisas 

11 1E8S 
ii iSBS 
11 1587 
11 1688 
11 1589 
11 159e 
11 1691 
11 1592 
11 1693 
11 1694 
11 1695 
11 1696 
11 1697 
11>1698 
111111698 
llml598 
11 1599 

11 1700 

11 1701 
11 1702 
11 1703 
11 1704 
11 1705 
lli«1706 
ll»il7aG 
11 1705 
11 1707 
11 1708 
11 1703 
11 1710 
11 1710 
11 1711 
11 1712 
11 1713 
11 1714 
11 1715 
11 171S 
11 1717 
11 1718 
11 1719 
11 1720 
U 1721 
11 1722 
11 1723 
11 1724 
11 1725 
11 1726 
11 17Z7 
11 1728 
11 1729 
11 1730 
11 1731 
11 1732 
11 1733 
11 1734 
11 1734 
11 1735 
11 1735 
11 1737 
U 1738 
11 1739 
llnl740 
lli»1740 
1111)1740 
llinl740 
111.17+0 
11»1740 
lli«1740 
11111740 
Unl740 
UB1740 
U 1740 
11 1741 
11 1742 
11 1743 
11 1744 
11 1745 
11 174S 
11 1747 
11 1748 
11 1749 
11 1758 
U 1751 
11 1752 
11 1753 
11 1754 
11 1755 
11 1756 
11 1757 
11 1758 
11 1759 
11 1760 
n 1665 
11 1557 
11 1668 



87780 81873117800638081416152825431450800 
07781 01073117880800801415152025431456000 



07702 01073117880888001415152825431456800 
87783 010731 1700000000141S1620Z54314S6000 



07704 01073117800088001415152025431456800 

07705 01073117000000001416162025431456000 



07706 01073117000880001416162025431455000 

07707 01073117800880001416162025431456000 



14110 01073112404000001402046225571457000 

14111 01073117000000001400702025771456000 



14112 018731178040800014028462255714578^ 

14113 01073131000022665416156125430456000 



14114 01073117004880001402045225571457000 

14115 01064100000000001404552124721455000 



14116 01073117004000001402046225571457000 

14117 010S41002800000014045G21247214S6000 



14120 01073100290022711400752025751456000 



14121 01073017000088055404162365571416000 

14122 01064100200000001416152025751455009 

14123 01073017000000001410152025571456000 

14124 010730170000060S54021S236557741G099 

14125 0106311700310G8S541615236613141S000 
14125 91073117040022711415162025411456000 

14127 010730379000060S541B1G23GG07141G000 



14130 010G401260000605541616242S771416000 



14131 01073100G00010210156162024611456800 

14132 0107311700000G055416162425431416099 



14133 01977017000006855412152365571415000 

14134 010G41170031060554151S236G13141S000 

14135 010730202+0000001416162026061455000 
1413G 010G3117000028343+0218202S57145S000 

1+137 0107311700+022711+16162925+31+56900 

1+1+0 01873137004000001402045025571457000 

14141 91073100400000009776152925451555000 

14142 0107311709100S8541402093G5571417000 

14143 91073107000030307415152025421455000 

14144 01073117003006055415162365+31+15090 
1+1+5 01073117999030303+16150025711+56009 
1+1+5 01072120000030311+16162025+21+56009 
1+1+7 01973U7999022711+1S1S202S+31+56000 



;a-iiieni useaoe: 

; 8 dispatch addr for interrupts 

i 1 pi ci-m (33: 35) and intrpt waiting flag E325 

: 2 cop)' of last cmd sent to controller (by opcode 721) 

.opcode[7401 [xlist 
list ];Disk pseudo-iot dispatch table entries... 

JUnPCDCNOfll t 

JUMPtDCMIfl] $ 
JUMPtDCMIfl] $ 

Jlrt=[DCf<SCWl * 
jmPtDCNSOAl $ 

juMPtDCJezA) » 

JUHPIDCNSZfl] $ 

-reloc 
[.USEIHILK] 
[xlist - ' 

list ! 1; dcono — 7+9 

DCNEM: 
.REPEftT 1 - WfllTSFIX [ 

dtconst 101 dest [ dev-adr ] short S 
];. REPEAT 1 - Wi^ITSFIX 
-REPEPlT WfilTSFIX [ 

dCconst 101 dest [dev-adr 3 nora cond[user] pushj [ck iotu] S 
];[ 

dlconst 101 dest [dev-adr ] nora cond[userl pushj [ck iotul $ 
l.REPEflT miTSFIX 

d[irl iii3sk[3) destlDMrEtll] nora ju]op[dcnol 1» 
; dconi — 7+1 
iX^NIA: dJconst 181 dest [dev-sdr 1 norai pushjidcnill S :get bits. 

d[ar) SilflC [ IFRQ DEST(rEI1ST0 flRl COND[nfl<20) LBJUnP[SEOIl It 
;store thca and return. 
; dconso — 742 
KNSOfl: d[const 101 dest [ dev-adr ] norm pushj[dcnil] $ ;9et bits. 

d[i»aslc 221 aluEdSql c550 condt-obus=01 lbjutop[dskpl 1 $ 
; dcons2 — 743 

OCNSZA: d[const 101 dest [ dev-ai" 1 nor» pushj[dcnil] t ;9et bits. 
d[rBask 22] alu[d&q] c550 cond[obus=8] lbjuap[dskpl ] S 



dcnol: 



IXNOZ: 
XKH3: 



d[ir] masl<[33 c509 cond[obus=0] juinpCmain] S 
; if assigned pi channel is not 8> then 
; enable interrupt on "not active*, by 
; re-loading last cmd with 10 bit on. 

D[CONST 20] DESTIQl NORM $ 

D[IR] ftLU[DaQ] C550 CaJS=0 JLrP[XN02] $ 

D[CONST 40] DEST[Q] NORM JUnP[XN03] S 

d[const 10] dest[q] short * 

d[D*Af1E!12] aluidorq] dest[iod] spec[ iob-out ] norn » 

Biapf[4] cylen[ iob-out I juBjp[main] $ 



dcnil: d(Dt(«:ni] dest[q ar 1 nor» $ ;get intrpt flag and pi chn 
-REPEAT 1 - UAITSFIX [ 

dtir] aluCd&ql dest[q] norm popj $ ;this is for conso, z 
3:.i?EPEAT 1 - 1*IITSFIX 
.REPEAT WAITSFIX [ 

d[ir] alu[d£q] dest[q] norm cond[-user3 popj t ;this is for 
conso > z 

; \ / 

;5ubroutine to trap if not in E)(EC or lOT-User node 
(itIOTU: UI0TCK[t1UU0] t 
POPJ $ 



] popj $ ;th(s is for 
f not in EXEC or lOT-User mode 



];[ 

d[ir] aluld&q] dGst[q3 norm cond[-u: 
conso F z 
: \ / 
:S<jbroutine to tr 
CKIOTU: UIOTCKtnUUO] 

[ DIPC -FLAGS] R0T[6] COND[-O8US<0] JUnP[nUUO) LONG t 
]$ 

POPJ $ 

3. REPEAT UAITSFIX 

; interrupts from disk (dev 10) come here. 
DSKINT; D[CONST 501 ALUtNOTDl DEST[Q] NORM t 

d[DtAf1Eri2] ALU(D8.0] dest[iod] spec[ iob-out ] norm S 

;clear interrrupt enable bit (afnem[Z] has last cmd) 
mapf[4] d[D%AnEm] destlq ar ] c559 cond[obus=0] jump[ddis] S 
d[const 183 alu[dorq] dest [D»flttM13 norm jump[pi9enl ( 
;set flag and request intrpt. 
ddis: cl[ — dev-from-intr norm jump[main3 $ 

[SCWTl: D(CONST 183 DEST[DEV-«)R AR] NORM JUTP [ [)SKWT4 ] t 
DSKUT3: D(rEn] ROT[31.3 C559 CO^D[DaJS<93 JUnP[0SKWDN3 » 

D[COftET 1] ROT[LLDAO-ROT + 6] LLOflO NORM $ 

CSS0 LOOP[.] t 
DStCWT4: START-IN NORM t 

MAPFI0] 0[I00] DEST[HOLD] C800 JUnP[DSKHT31 $ 
OSKWDN: [)[AR3 ALU[0-13 [)EST(AR1 CS50 COND[-aBUS=03 JUnP[DSKUT4] S 

JLrP[MAIN] $ 



i-.ax 



SLOE March 23, 1384 21:13:08 file DSK:F'H0.SLO 



of — FtlWF 



12 1663 
12 lS7a 
12 1571 
12 1G72 
12 1673 
12 1674 
12 1675 
12 1G7G 
12 1B77 
12 1B7B 
12 1673 
12 1580 
12 1581 
12 1582 
12 1583 
12 1584 
12 1585 
12 158G 
12 1587 
12 1588 
12 1583 
12 1530 
12 1531 
12 1532 
12 1533 
12 1534 
12 1595 
12 1696 
}2 1697 
12 1638 
12 1633 
12 1706 
12 1701 
12 1702 
12 1703 
12 1704 
12 1705 
12 1706 
12i»1707 
12111 1707 
12iiil707 
IZmlfV/ 
12.1707 
12«il707 
12iiil707 
12>1708 
12>170e 
12i»1708 
12nl708 
121.1708 
121111709 
I2nil?e8 
12iiil708 
12iiil708 
121.1708 
121.1706 
121.1708 
12»17@B 
121.1708 
12i«17e9 
12b1708 
IZ 1709 
12 1709 
12 1709 
12iil710 
12iil710 
12 1707 
12 1708 
12 1709 
12 1710 
12 1711 
12 1712 
12 1713 
12 1714 
12 1715 
12 1716 
12 1717 
12 1718 
12 1719 
12 1720 
12 1721 
12 1722 
12 1722 
12 1723 
12 1724 
12 1725 
12 17Z6 
12 1727 
12 1727 
12 1728 
12 1728 
IZ 17Z9 
IZ 1730 
12 1731 
12 1732 
12 J733 
IZ 1734 
IZ 1735 
IZ 1736 
12 1737 
12 1738 
12 1739 
12 1740 
12 1741 
12 1742 
12 1743 
12 1744 
12 1745 
12 1745 
12 1747 



;TrnNET interfrce. 

TYflKG = 16700 ilSnere to assemble fixed part cf TYfSict code. 



A-MEFI Usage. 

0: standard. 

1: State of output register... see below 

2: Output coroutine adr do 6 bits) 

4: Current 3S-bit word being output Cfor State 1 only) 

5: Current 3S-bit word beins assembled on input tState 1) 

6: lOWD for packet currently being read 

7: Input re3 at intrpt 



2005 
2006 
2011 
2012 



HIi?P = 2005 

BIRP = 2806 

HORP = 2011 

BORP = 2012 



;nfliN rEnoRr LccflTiwjS: 

2000/ KEY: 

2200/ IRISG: BLXK 200 

2400/ ORING: BLXK 490 

:HCIST IRING PTR (Tl^ER) 

;BflSE IRING PTR (PUTTER) 

;HOST ORING PTR (PUTTER) 

;BflSE ORING PTR (TAKER) 



■.Ftencs 

;INPUT (TO HOST) RING 
;OUTPUT (FROM HOST) RING 



DRllC FLAG Nfr.ES. (FIELD WLUES). 

THE ACTUPL DEFINITIONS ARE IN F4DEF.SLD 



TN00IBN=2 

TNIRIBN=3 

TN000BN=6 

JNCDOBNP0=7 

TNIR03N=7 

TNIRa»PO=10 



jOUTPUT done ROTATE AHOUNT (INPUT) = REQ B. 

; INPUT READY ROTATE AMOUNT (INPUT) = REQ A. 

;OUTPUT DONE ROTATE AMOUNT (OUTPUT) = CSRl. 

; INPUT READY ROTATE AMOUNT (OUTPUT) = CSR0. 



14150 01073017000000001400362025571456000 



07710 01073112500025425416152125431456000 

07711 01073112600025425416162125431455000 

07712 81073112600025425416162125431456000 

07713 01073112500025425416162125431456000 

07714 01073112680025425416162125431456000 

07715 01073112500025425416162125431456000 

07715 01873112S0002S42541S1S212S4314SS000 
07717 0107311260002S42541516212S4314550ee 



.repeat 1 - tymnet [ 
TYMRST: D[CDNST 11 DESTtQ] JUMPCDEUSCL] S 

ILLI0T[744 747) 

;These opcodes don't exist if TYMNET code not assembled, 
.reloc 
];[ 
TYMRST: DCCONST 1) DESTIQ] JLW[DEy6CLl $ 



ILLI0TI744 7473 
[ 

. opcode [ 744 ] 
[xlist 

list 1 .repeat (1 + 747 - 744) I 
CONO[-USER] LBJUMPtPANIOT] S 
CONDC-USERl LBJUnPtPANIOTl S 
] 

CCMOt-LSERl LBJUMP[PANI0T1 $ 
C(»C)t-UScR5 L3JUMP[PANI0T] $ 

t 

CONDC-USERl LBJUMPCPANIOTl * 
CC»e[-USER) LBJUMPtPANIOT] $ 

[ 
CCKDt-USER) LBJUMPlPANIDTI S 
C0ND[-US£R1 LBJUMPtPANIOT] $ 



t 



II 
COfCi-USER] LBJUMPEPANIOTl $ 
CONDt-USERl LBJUrPCPANIOT] $ 
] ] : These opcodes don't exist if TYMNET code not 

assembled. 

.reloc 
[.USECHILXl 
[ xlist 

list 1 111- tywiet 



.repeat TYMNET [ 



TYMRST: ;Reset Tymnet interface 

D[CONST 11 DESTEQl PUSHJtDEUGai S 
D[LftBEL TYMINTl DESTtDWfttWl * 
JUnP[TYMRSll NORM $ 

;Set initial coroutine addrsr intrpt cnbls. 

;I0 subselects (for Dev. 6) for talking to the DR-11 in the TyKict Base: 

;Output: 
];. REPEAT TYMNET 
15 TYM.LD = 15 ;Load output register, both data and flags. 

.REPEAT TYMNET I 
TNIRIFS < 16 ;Clear the REQ B EDGE flag (uhich Kans Base has sent us 

data) 
TNOOIFS = 17 ;Clear the REQ B EDGE flag (tJ^ich aeans Base has taken 

data) 

; Input: 
TYM.RO = 5 .-Read input data and flags. 



.define TNXECd t ;Send byte if Escape Word (-1) just sent. 
D[DXAMEM41 ROTI341 MftSlC[201 DESTtQl NORM $ 
0[MASK 201 ALU[D»Q1 COND[-OajS=01 JUfPl . * 31 C550 $ 
ALUCel OESTCOl PUSHJITNSEWl NORM ( 
DtCONSTC. i 77 + 1]] DeST[DtAfEM2) JUnP[TNI01 NORM $ 



.defi 

1 
. def i nc 

1 



GaORPd [ 

DLLIT BORP] DEST[Q1 t 



GHORPt) [ 

DICONST 111 DeST[Ql PUSHJITNRCMl NORM % 



DtCONST 61 DESTIQ] PUSHJ [ TWiCW 1 NORM $ 



SLOE March 23, 138* Z1:1S:13 file DSK:FtIO.SL0 



12 1753 
12 1751 
12 1755 
12 1756 
12 1757 
12 17Sa 
12 1758 
12 1753 
12 1753 
12 1760 
12 1781 
12 1762 
12 1763 
12 1764 
12 17G5 
12 1766 
12 1767 
12 1768 
12 1763 
12 1770 
12 1771 
12 1772 
12 1773 
12 1774 
12 1774 
12 1775 
12 1776 
12 1777 
12 177B 
12 1779 
12 1780 
12 1781 
12 1782 
12 1783 
12 1784 
12 1785 
12 1786 
12 1787 
12 1788 
12 1789 
12 1790 
IZ 1731 
12 1792 
12 1793 
12 1794 
12 1795 
12 1796 
12 1797 
12 1798 
12 1799 
12 1800 
12 1801 
12 1802 
12 1803 
12 1804 
12 1805 
12 1806 
12 190? 
12 1808 
12 1803 
12 1810 
12 IBU 
12 1812 
12 1813 
12 1814 
12 1815 
12 1816 
12 1817 
12 1818 
12 1819 
12 1820 
12 1821 
12 1BZ2 
12 1B23 
12 1824 
12 182S 
12 1826 
IZ 1827 
12 1828 
12 1829 
12 1830 
12 1831 
12 1832 
12 1833 
12 1834 
12 1835 
12 1836 
IZ 1837 
12 1B38 
12 1839 
12 1840 
12 1841 
IZ 1B42 
12 1843 
IZ 1844 
IZ 1945 
IZ 1B4E 
IZ 1847 
12 1848 
12 1849 
12 1850 
12 18S1 
12 1852 
12 1853 
12 1854 
12 1855 
12 1856 
12 1857 
IZ 1555 
12 1859 



.-HERE TC SE.WICE IMPJT REftQY CR QUTPJT CasE INTERRUPT 8Y 
; TYWET INTERFACE. 

TYniNT: START-IN OICttMST E] OEST [ DEW-ADDRESS ] * 

nfiPF[TYH.RDI DEIOD) DESKQ 0«AnEn7] CY-IO-IN 
PUSHJ[nEnflDR-23BIT-ftBSl $ 

;Turn off memorx mapping, and save input reg in A-HEH[7]. 

D[CDNST 1] ROTITNOOIBN) (^U[D8.Q1 CaND[QBUS=01 JUTIPtTNIl] C5S9 $ 

;Output done bit on '? 
START-OUT DID*ArEn2] DEST[Q1 $ 

;Yes. Clear it, and get dispatch index. 

fiAPFeTNOOiFsi ALUtoi caND[OBUs<0i juHPiTNiei cssa $ 

;Test for initial (no disp.) state. 
D[LIT TYttORG) ALUtDORQ] DESTIHOLD) % 
DCMEM] ROT[«JA-ROT] LONG ODISP % 
;FcriB dispatch adrress. 
TNI0: D[D*AflEn7] DEST(Q) NORtl S 

jRccover contents of input register at time of intrpt. 
TNIl: DCCaJST 11 ROTITNIRIBNl ALUCD&Ql CONOfO8US=01 jmP[TNI21 CS50 $ 
; Input ready bit on ? 
START-OUT D[D*ArEfl7) R0T[341 t1ASKt201 BESTtAR) S 

;Yes. Clear it, and extract data bits fron input 
register. 

MAPFdNIRIFS] 

DiDiPHEna: destcqi CDNDtoausiai juhpitniz] esse s 

;Get dispatch index, test for initial (no disp.) state. 
DtLIT TYMORG] ALU(DORQ] DESTIHOLDl t 
DdlEM] ROTinUA-ROTl LONG ODISP S 
:Dispatch. 
TNI2: nAP-ENA3LE JUHPEMAINl $ 
;Return from interrupt. 

;UARIOUS SUBROUTINES. 

;a loaded uith 16. bit Hord to send, shifted left by 8. 
TNSEND: ALUIOl DESTtAR] NORM $ 
D[AR] R0T[341 DESTIOl S 
D[rtASK 201 ALUtDiQl OESTIQ ARl NORM S 

.repeat 6 [ jThis is a debugging kluge : 
DIMAl DEST[551 $ 
DCLIT 1030771 DEST[MA] $ 
DF/UT D[MEM1 ALUID+ll DESTIQl t 
DIMASK 61 ALUEOaO! DESTIfEflSTO 01 $ 
DtLIT 1831001 ALU[D+Q1 DESTIMAl $ 
OIARl OESTtMEMSTOl S 
DI551 DESTtrWl » 
1 

DCARl R0TI81 reSTIQl SHORT $ 

D[MASK lS-1 R0TC81 ALUIDSQl DESTIARl NORM * 

DIMASK 81 DESTIQl PUSHJfKVGSTll NORM S 
;Now clear, then set the Input Ready flag to DRllC. 

DtMASK 431 ROTITNIROSNPOl DESTIQl PUSHJ [ DEU6CL 1 NORM » 

DICONST 11 ROTCTNIROBNl CESTIARl NORM JUnP[DEUGST21 » 



;No output to do. Do not change TNIROBN, set A-MEM flag for 
; clock routine. 
TNORE: ALUI-11 DEST[DS;AMEM21 JUrPITNI01 NORM $ 

;Read Mord fron base-host coaMiun icat ion area, location Z0xx; 
; has xx. 
TNRCU: DtLIT 29001 ALUIDORQl XSTCMAl NORM « 
DFRQ PCFJ » 

;Here when input ring full. Set clock flag and return uithout 
; setting TNOIXIBN. 
TNIRF: ALUI-U DEST[D*A«;n31 JUrPtTNI21 NORM $ 

;Clear then set TNOOOBN. 
TNCASOOOF: 

DtMASK 431 ROTtTNOOCaJPai DESTtQl PUSHJIDEUea) NORM t 
DtCONST 11 ROTtTNDOOBNl DESTtARl NORM JUrt'tDEV6ST21 * 



-orgtTYMORGl 
;h»hhh OUTPUT DONE CO-ROUTINE. 



;A-MEM[41 = Rotated 36-bit uord with -11 word just sent in 12-27. 
:5tate 0: Fetch next 36-bit word or quit if ring eapty. 
TNOC0: DtLIT BORPl DESTIMAl % 

DF/WT DIMEMl DESTID*AflEH17 ARl NORM S 
TMi:0A: GHORP 

DtftRl DESTI(3] NORM * 

DtMEMl ALU[D-Q1 C0NDt08US=ei JUff tTNOREl C600 * 

DICONST 241 ROTtGl ALUtD+Ql DESTIHfll NORM $ 

DFRQ » 

DIMEMl ROTI301 DEST[DtAfEH4 01 PUSHJ I TNSEND 1 NORM $ 

OtCONSTI. a 77 + 111 DESTI0W»O121 JUnP(TNI01 NORM $ 

jClock restarts coroutine here. 
TMX2! TNOCEC 

;State 1: Send low order half of 36-bit word> 

DtDtAnEM41 ROTI201 DESTtQ] NORM S 

ALUtQl DESTtD*AftM4] PUSHJ t TNSEND 1 NORM % 

OtCONSTI. 4 77 + 111 0E5TtD»AnEM21 JUMPITNI0] NORM S 

TNOCEC 

DtLIT 80RP1 DESTIMAl t 

DF/UT DtMEMl DESTtDtAHEM171 $ 

DtMEMl ALUID+ll DESTtQl NORM t 

DtMASK 81 M.UtD8,Ql DESTtAR HEMSTOl JUrPITNX0Al « 



r^crK/i m— f^ijuiinc< 
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12 1865 




12 1866 




12 1867 




12 1868 




12 1863 




12 1870 




12 1871 




12 1872 




12 1373 




12 187+ 




12 1875 




12 1876 




12 1877 




12 1878 




12 1878 




12 1880 




12 1B81 




12 1882 




12 1883 




12 1B84 




12 1885 




12 188G 




12 1887 




12 1888 




12 1889 




12 1896 




12 1891 




12 1892 




12 1893 




12 189^ 




12 1895 




12 1896 




12 1897 




12 1898 




12 1898 




12 1899 




12 1906 




12 1901 




12 1902 




12 1903 




12 19&t 




12 1985 




12 1308 




12 1907 




12 1908 




12 1909 




12 1910 




12 1311 




12 1912 




12 1913 




12 1911 




12 1915 




12 1916 




12 1917 




12 1918 




12 1919 




12 1920 




12 1921 




12 1322 




12 1323 




12 132+ 




12 19Z5 




12 192S 




12 1927 




12 1328 




12 1329 




12 1330 




12 1331 




12 1332 




12 1333 




12 1334 




12 1935 




12 1936 




12 1937 




12 193B 




12 1939 




12 1940 




12 1341 




12 1942 




12 1943 




12 1944 




12 1345 




12 1346 




12 1947 




12 1347 




12 1348 




12 1949 




12 isse 




12 1951 




12 1952 




12 19G3 




12 1354 




12 1955 




12 1956 




12 1957 




12 1958 




12 1959 




12 1960 




12 1951 




12 19G2 




12 1963 




12 1954 




12 1965 




12 1366 




12 1967 




12 1968 




12 1369 




12 1970 
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OCARJ DESTEQ D^AfEPS] mRM $ 

DICOSST II R0TC171 ALUiO&QJ CWC i OBLIS=0 1 JUMP[TNIC0A) C5S0 » 
;CiftTfi PftCKET rfSSftGE. 

DtftR] R0T[34) MAS*C[7] DESilQ) S«3RT S 

DtCONST 5] ALUCD+Ql DESTtflR] SHORT * 

DlOftl R0T[42] mSK[lB.l DEST I DtAMErE ! WRn S 

DCDSflfEPIS) DESK BR) SHORT S 
;Read frisg. A-f1EM[Bl :=** 3S-bit words in jnessaae. 
; nR;=First -11 i^ord in aessase- 
TNICRtl: 

G8IRP 

D[D%finE(161 ROTLia.l flLU!0-D) DESTIQl NORM S 

DtMEPIl ►MSK[18.] flLUtQORDl DEST[0tftMEn6] NORTI $ 
-•STftTE 1: HO 16 BITS OF WORD flRRIUES. 
TNICl: DIAR] R0TI241 D£ST[DWt1EI15] NORM S 

GHIRP 

DtDSflTEfE] ftLUtD+11 DESTEOl HOUp S 

DtPIASK 7] flLU[D&Q] DESTCQ] SHORT S 

DlPEni flLU[D-Q) COND[O8US=01 JUHPCTNIRFJ CB00 S 

PUSHJtTNCASOOOFl NORM $ 

D[CONST(. £77+111 DESTtD*flMEM31 JUMPLTNI2) NORM S 
;STftTE 2: LO IS BITS OF WORD flRRIUES. 
; ALSO STARTED HERE BY CLOCK ROUTItC. - ' 

TNIC2; D[D*AnEM6) mSK[7] 0EST[Q1 NORM JUnP[TNIC2A] $ 



-reloc 

TNICZA: DtCONST 221 ROTtSl ALU[D+Q1 DESTCflfl) NORM $ 
DID4AfE.1Sl DESTEQl MRM $ 
DtARl R0T[41 ALUiDORQl DEST[PEnSTQl NORM $ 
PUSHJITNCftSOOOFl NORM $ 
DlDXAMEnei ALU[0+11 DESTCQl $ 

D[CWIST 1.1 R0T[1B.] ALU[0-H31 DEST [ DtflTtrB 1 COND[-OBUS<0) 
JLTPCTNICDNl CS00 $ 

D[C0NSTi77 £ TNIClll DEST[D3«t«31 JUMP[TNI2] MCSM S 

TNICDN: DECONST 61 DESTCQl SHORT $ 

DtCONST 201 ROTtSi AUUtlXRO] OESTEMAl SHORT * 
DtDSAMEMei HAS((f7] DESTtMEHSTOl NORM » 
DtCCWSTtTNIC0 t 7711 DEST [ D«inEn3 1 JUnPtTNI21 % 

;1 wd or 2 Kd or escape Message. 
TNIC0fl: DtCONST 1! R0TI161 ALUtDSQl C0NDr-0BUS=9I JUnP[TNIC0Bl C550 * 
;One word packet. 

DECtSKT 11 DeSTtD*AMEH6] JUnPtTNICRMl NORM S 
TNIC0B: DECONST 11 ROTtlSl ALUtDnQ] DESTEQ ARl SHORT « 
DEMASK 61 ROTISl ALUtD8Ql OESTEQl SHEKT $ 
DEMASK 61 R0TE81 ALUED«0] a»eEOBUS=0] JUnPETNIC0CI C550 » 
;2 uord packet. 

DtCONST 21 DESTtDSAnETSl JUMPETNICRM] NORM S 
;Escape sequence. Better not happen. 
TNIC0C: JUMPt.l S 

;aOCK ROUTINE, CALLED EVERY TICK OF B0HZ CLXK. 

TYnaK: DECONST 51 DESTtDEU-AORl PUSHJEMEnADR-23BIT-AeSl $ 

;Select device, enter 23-bit absolute nemory adt^ess node. 

DEOtATtMSl CONOtOBUS<01 PUSHJETNSIl CSS0 S 

DE0%Af1Ef12j CONOIOGUSOl PUSHJETNSai CSS8 t 

JUMPtMEttADR-lBSITl S 
;Restore to 18-bit address Bode and return. 
TNSI: GHIRP 

DtD*flnEI16] ALUED+11 DESTEQl NORM $ 

DEMASK 71 ALUIDMl DESTEQ] SHORT * 

DtMEHl ALUED-Ql CONDEOSUS=01 POPJ C600 $ 

DICONSTtTNICZ t 77)1 DESTEDSAMETBl JUMP E TNCASODOF 1 WRM $ 

TNSO: DELIT BORPl DESTEMAl $ 

DFRQ DtLIT HORPl DESTEHA) S 

CFRO DEfEMl MASKE17.] DESTEQ D*AnEM17] NORM $ 

DEHEMl MASKI17. 1 ALUED-Ql COND E OBUS=0 1 PGPJ C600 $ 

DELIT 24001 ALUED+Ql DESTEHA] NORM S 

DF/WT DEMEMl ROTE301 DESTED»AtEn4 01 PUSHJ E TNSEND I NORM * 

DtC0NSTtTN0C2 £ 771] DESTElKArEn21 PCPJ NORM S 

;RESET TYMfET INTERFACE. OUTPUT COROUTINE GOES INTO NULL STATE. 
; INPUT COROUTINE GOES INTO STftTE 0, INTRPTS GET ENABLED. 
TYrRSl: DtLAGEL TYMINTl DEST I DtATEtM 1 $ 

;Set up intrpt. dispatch address. 
DECONST 31 R0TE2] DESTEARl CYLENIIEB-OUTl SPECEI08-0UT1 S 
;Get const to enb. intrpts; lEB-tXJT clears flaas. 
TYnRS2: MAPFETNOOIFSl START-OUT CG00 $ 

MAPFITNIRIFS] DEMASK 21 ALUENOTDl R0TE21 DESTEQl PUSHJ EDEV65T 11 
0600 « 

;NDW RESET PTRS TO MEAN RINGS EfPTY FOR INPUT AND OUTPUT WITHOUT REGARD 
;T0 PREVIOUS STATE FOR NOW 

MAP-DISiaLE » 

DtLIT HIRP] DESTIMfi] NORM S 
ALLiEei DESTEREfSTOl NCFM t 
DELIT BIRPl DESTtMAl NORM * 
ALUE01 DESTtMEMSTOl NORM S 
DELIT HORPl DESTtMAl NORM $ 
ALUE01 DESTtMEMSTOl NORM t 
DELIT BORPl DESTEMAl NORM « 
ALUE01 DESTtMEMSTOl NORM $ 

ALUE-U DESTEDVmEMZl NDRM t 

mP-ENABLE DECONSTETNIC0 t 7711 DESTtDtflnEMSl POPJ NORM % 



; .-TYMflREA! 



.opcodet7441 



:SAVE LOCATION 



; RESET TYMfCT 



DECONST 51 DESTEDEV-flORl NORM JUTP t TYHNRESET 1 « 
DECONST 51 DESTEDEV-AORl NORM JUnPETYMM?ESETl t 



12 1972 



DECONST 61 DESTtDEV-ADR] NORM JUnPETYWCUTl S 
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of — FIINNF 



12 


1378 


IZ 


1373 


12 


1380 


12 


1381 


12 


1382 


12 


1383 


12 


1984 


12 


13BS 


12 


1386 


12 


1387 


12 


1388 


12 


1383 


IZ 


1390 


12 


1391 


12 


1392 


12 


1393 


12 


1994 


12 


1395 


12 


1336 


12 


1397 


12 


1398 


12 


1339 


12 


ZWW 


12 


2081 


12 


2002 


12 


2003 


12 


2004 


12 


zaeb 


12 


2006 


12 


2007 


12 


2008 


12 


2009 


12 


2010 


12 


2011 


12 


2012 


12 


2013 


12 


201+ 


12 


2015 


12 


2016 


12 


2017 


12 


2018 


t •» 


tn* a 


IC 


cvm 


12 


2020 


12 


2021 


12 


2022 


12 


2023 


12 


2024 


12 


2025 


12 


2026 


12 


2027 



D[CONST El DEST[DeV-flDRl NORM JUMPrFSDIAG] * 
DtCaCT S! DEST[DEU-flDR3 NORM J1S1PLFSDIAG1 S 

.reloc 

TYMNRESET: 

SPECnoa-ouTi oimi rot[21 destlari norm pushj[tymrs21 $ 

jReset co-routines, enb. intrpts from eff. addr. 34,35 
JUMP[Ml^IN) I 

TYMN0UT:SPEC[I0B-0UT1 NORM S 

;Clear 'RDY FOR DflTfl' tro« PDPfl. 
MflPFCTNODIFSl DtIR] R0T[8.) DESTCOl NORM F>USHJ[TNSEND1 S 

;Send eff. addr. 29-35 to PDPll. 
JUMPCMftlNl $ 

TYMNIN: SPEC[ID3-IN] NORM » 

MAPFITYM.RDl DdOO] R0TC27. + 1] DESKflR] C800 $ 

;f^li3n input Mord with 16 data bits at RIGHT end. 
DlflR] R0Tt41 C550 n»D[SIGNOFFl JLMPC. + 21 S 
;C)on't clear *ISPUT ROV flas unless it's on. 
SPECII08-0UT1 SHORT S 
;It's on. 
mPF[TNIRIFS] DIAR) SmC $ 

FSDIAG: ;Special output code for F5 diasnostic interface hardware. 
DFRO DtIR] ftLUENOTDl DEST[flR] NORM $ 

;Fetch C(E), set flR=-IR 
DIflfi] ROTtia.] f*«K[2] DESTtflfil NORM $ 

D[fW] R0TI61 OESTIQ] NORM $ 

;Q=INVERTED 2 LSB'S OF (C SHIFTED INTO STROBES 
DtrtM] R0TI8.) «_U[DCRQ1 DEST[HOLD] NORM $ 

;DflTA SHIFTED WITH STROBES INSERTED 
OCrEM] DESTIflRl NORM * 

;OflTft=(E) (LSH 81 (STB (CTIUE LOU) 
DtnfiSK 18.] R0TC18. + 6] DESTIO] PUSHJIDEV6ST11 NORM % 

;LEWE BITS 0-11. AND 30.-35. UNCHflNGEO 
OineSK 21 R0TL61 DESTCQ] NORM $ 

;mSK TO FORCE STB'S HIGH 
0[MEM1 flLUIDORQ] DESTCflR) NORM S 

;OATf^=(E] CL&! S) tSTS'S FORCED IM^CTIWE HIGH) 
DEtlftSK IB.] R0T118. + 6] DESTCQ] PUSHJIDEVeSTl) NORM $ 

;LEiWE BITS 0-11. AND 30.-35. UNCHANGED 
ALUt0I DESTIDEU-AOR] JUnPlMAIN] $ 



] ;t/innct 
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13 Z8Ze 
13 ZeZB 
13 Z829 
13 Z83@ 



13 2031 HlSl 

13 2032 

13 2033 

13 203+ 

13 2035 

13 2036 

13 Z037 I+ISZ 

13 2038 

13 2039 14153 

13 20+0 

13 Z0+1 1+15+ 

13 20+2 

13 20+3 1+1S5 

13 20++ 

13 20+5 



010Z+I37000080e01+1E1SZ02S+31+S6900 



ai073n70e+eaB0S5+0i++G36ss7i+i7e00 
ei0G+ei70eeees055+ieiB23ss07i+ise00 

0ieS3017003ieB055+1615236S+31+lB000 

0i023ii7isaeeG055+iBiaz4Z5+ii+iB000 



of — F+INNF 

jDevice E- which is mainly T>'»nct CDR-ll) interface, but also S0Hz Clock. 



OEySCL: :Cl2ar scie Dev E bits (see c=3!=ent bselcu). 
fiLU[0] DESTtPlR! NDRn JLWIDEUBSTl % 

DEyBST; ;Set some of the bits in Device B's output register, a o 

;of which is maintained in A-I1EMC1)- 

;Enter with mask for LWCHflNGED bits in in Q, data in ftR. 
;0n return. Q has new value of AMEflCl). 
DtCOMST 61 DESTIDEU-flOR] MORM » 
DEUSSTl: :Enter here if >.ou've already set DEVAOR:=S 
DCOiAMErll] M-UID&ai DESTtQ] NORM $ 
;Get fiilEII(l). "ask it. 
DEV6ST2: D[f«l «_U[D0RQ1 DESTIQ ICD] SPEC[ lOB-DUTl NORn $ 
;CR in new data. 
mPFITYn.LDl ftLUtOl DESTIDSftrEMU CYLEN( lOS-OUT) PCPJ S 
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1+ 


2046 


1* 


2947 


14 


204B 


14 


2043 


H 


2050 


14 


2051 


14 


2852 


14 


2052 


14 


2953 


14 


2853 


14 


2954 


14 


2954 


14 


2055 


14 


2055 


14 


2955 


14 


2055 


14 


2057 


14 


2053 


14 


2053 


14 


2060 


14 


2061 


14 


2862 


14 


2863 


14 


2864 


14 


2865 


14 


2866 


14 


2867 


14 


2068 


14 


2063 


14 


2070 


14 


2071 


14 


2072 


14 


2073 


14 


2074 


14 


2075 


14 


2876 


14 


2877 


14 


2878 


14 


2073 


14 


2073 


14 


2088 


14 


2831 


14 


2882 


14 


2883 


14 


2884 


14 


2085 


14 


2886 


14 


2087 


14 


2088 


14 


2083 


14 


2038 


14 


2031 


14 


2032 


14 


2093 


14 


2094 


14B209S . ..-> 


14m2e95 ' i ' 


14B2e95 


141.2035 1415S 


14m289S 


14a2035 14157 


141112835 


14iii2035 141E0 


14ni2035 


14ni2035 


14m203S 141B1 


14iii2095 


14«i2035 141E2 


14B2035 


14m2095 14163 


14m2035 


14ii2095 


HaZeaS 141E4 


141112036 


14112895 14165 


14112^5 


141.2035 141GS 


14ai2095 


141.2035 


14 


2035 


14 


2896 


14.2037 


14 


2097 


14 


2038 


14 


2099 


14 


2100 


14 


2101 


14 


2102 


14 


2103 


14 


2104 


14 


2105 


14 


2106 


14 


2107 


14 


2108 


14 


2109 


14 


2110 


14 


2111 


14 


2112 


14 


2113 


14 


2114 


14 


2115 


14 


2116 


14 


2117 


14 


2118 


14 


2119 


14 


2120 


14 


2121 


14 


2122 



of ~ F41NNF 

;Interval Tiiser code. 



;fl-rEH 


Uscase: 


: 


e 


; 


1 


; 


3 




4 


servi 


ced. . . 



intrpts 
this 



dispatcn acklr tor interrupts 

pi chn (33: 35) and intrpt wait ins flas (32) 

INTERVAL TIfER REGISTER 

riaxJiBuni tt of usees allouable for a Timer Int to set 

tnis is reset to int init",- &ut can be irss^e sinaller" as a 

bustrap to catch cases of the cpu not servicins I/O 

in reasonable times. TIMINT goes to HLTLQC with 17 in 

if the hardware timer resister contains a ** larger than 

when fi-nEM[3] overflows. 



11 Tin. DO - 11 

1 Tiri.Dl = 1 

10 Tin.ENB = 10 

5 TIM.DEU = 5 



1 073 1 1 7003 1 0G0S54003523G5S7 1 4 1 6080 
01073017100806855416162366151416000 
01050003200022710308306825561456000 

01073117^0000001416162225431456808 
81162180600030351416152025211456000 
01073137008822423483762825571456000 

0107312020002271 1400752826061456880 
01073017000006055415152355071416088 
01053117088020343402102025571456008 



.REPEftT 1 - TIMER [ 
TIMINT: START-OUT DCCONST 81 DESTtlOOl NORM S 

;Clear the TIfER OVERFLOW flag, disable timer intrpts. 
IWFITin.Efei CLR-DEV-FROtl-INTR JLTPtMAIN] $ 
;Flush interrupt. 
] 



.REPEAT TIMER [ 

TIMINT: 

START-CUT D[CONST 1] DESTCIOOJ NORM S 

;Clear the TIMER OVERFLOy FLAG. 
MftPFITIM.ENei D(D%AnEM31 OESTIO] CB00 $ 

;Get TIMER REGISTER. 
D[ CONST i] ROT [12. J ALU[D+OJ D£ST[Q DtAMEMS] C550 -CRY0 
JUMPEMAINl $ 

;Increment the count by 2T12? exit if no overflow. 
picufrynTTi juf^t^ * 

;Get contents of hardware timer reg. 
D[D*AMEM4] ALU[D-QI LONG CONDCSIGNOFFl JUnP[. ♦ 21 » 

;Ju(np if it has not been too long since it overflowed. 
DtCONST 171 DESTIARl JUTPtHLTLOCl * 

;Halt indicating *I/0 intrpt service took too long*. 

D[D3;AMEM1] HftSK[31 DESTIARl C550 COND[OBUS-0] JUMPCMAINl » 
;Tiiner overflowed, ignore if no PI CHf^NNEL assigned. 

DID^AMEMll DESTiQ] NORM $ 

;Get full contents of A-MEMtll. 

DICONST 101 ALUIDORQ] DESTCDiATEMll NORM JUTPtPIGENl % 
;Set the * interrupt ins* status bilk and generate a PI. 

1 [ 

TIMINT: 

START-OUT DICONST 11 DESTIIOO] NQRM $ 

;Ciear the TIMER OVERFLOU FLAG. 
MAPFCTIM.ENG] DIDSsATEMSl OESKQl C800 » 

:Get TIMER REGISTER. 
DrCDNST 11 R0Ttl2.1 ALUCD+Ql DEST[Q OSAftMBl CS50 -CRY0 
JUMP[MAIN1 $ 

;Increment the count by 2tl2, exit if no overflow. 
PUSHJCTDTIl NORM $ 

;(^t contents of hariioare timer res. 
D[D«lME1141 ALUID-Ql LONG CONDtSIGNOFFl JUtPI. ♦ 21 $ 

;Jutnp if it has not been too Ions since it overflowed. 
OtCONST 171 DESTIARl JUHPCHLTLOCl % 

;Halt indicating 'I/O intrpt service took too long*. 

D[D*AMEM11 MftSKt31 DESTIARl C558 CONDtOaJS-e) JUMPEtlAINl $ 
jTimer overflowed, ignore if no PI CHAAnEL assigned. 

DIDSAMEMl] DESTKSl NORM $ 

;Gct full contents of A-HEHCll. 

DICONST 101 ALUIDORQl DeSTID*ArEMll NORM JLTPIPIGEN) « 
;Set the 'interrupting' status bit and generate a PI. 

l;end REPEAT TIMER 

.opcodeI7S01 txlist 
list I:TirtR PSEUDO-IOT DISPATCH TABLE ENTRIES. 

.REPEAT 1 - WAITS t 

JUMPITCNOAl » 
JUMPITCNOAl $ 

JUMPITCNIAl $ 
JUMPITCNIAl » 

JUMPITCNSOAl $ 
JUMPITCNSOAl $ 

JUMPITCNS2A) * 
JUnPITCNSSA) * 

JUMPITDTflOfll S 
JUMPITDTAOA] $ 

DtCONST TIM. DEVI DESTIDEV-flOR! JUrPITDTfllftl » 
DICONST TIM. DEVI DEST I DEV-flOR 1 JUnPITDTAIfil t 

.reloc 
];. REPEAT 1 - WAITS 
.REPEAT WAITS I 

JUfPITIMIOT] MDRM S 



14 2124 



.reloc 
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F41NNF 



2i3e 

2131 

2132 

2133 

2134 

2135 

213S 

2137 

2138 

2133 

21+8 

2U1 

2142 

2143 

2144 

4.2145 

4B2145 

4«2145 

4b2145 

4ii2145 

41.2145 

4b2146 

4a2146 

4»214G 

4iii2146 

4iii2146 

4H2146 

4H2146 

4e2146 

4b2146 

4^146 

4r.214S 

41.2 14G 

4.^146 

4b2146 

4iii214G 

4i«2146 

4m214G 

4«2146 

4a214E 

4i«2147 

4«2i47 

4^147 

4«2147 

4 2145 

2145 

Z147 

2149 

2149 

2158 

2151 

2152 

2153 

2154 

2155 

215e 

2157 

2158 

2153 

21B0 

2161 

2152 

21G3 

21G4 

2165 

216G 

41.2157 

4.^167 

4i»21S7 

4m2167 

4m2167 

4.12 1G7 

4m2167 

4m2167 

4i»21G7 

4i«21S7 

4i«21G7 

4 2167 

2168 

2163 

2178 

2171 

2172 

2173 

41.2174 

4«2174 

4.12174 

4 2174 

2175 

2176 

2177 

217B 

2178 

2167 

2168 

2159 

2178 

2171 

2172 

2173 

2173 

2174 

2174 

2175 

2176 

2177 

2177 



87748 81873117886880681416162825431456888 
87741 81873117888688081416162825431456808 



14167 8187381248483026Z34U6222S771455000 



14178 81868137800060000080162365531416000 
14171 81873117800800000816888725411456080 



14172 b40i'iJili'8«30B066ss416i5232S42e415ee0 

14173 8107311700008G05541G1623G5431416800 



14174 81073117084886855481246365571417000 

14175 81033117888886081416158005431256000 



14176 54073117008886055416162325428416000 

14177 81873117800086855416162365431416000 



14280 81873117083090061481246225571457686 



14281 61873131000022665415156125438456080 



14282 81873117804806855481246365577417088 

14283 81873017866000001416162026071456000 



1 4284 8187311 780408060 1 40 1 24622557 1 457000 

14285 81073131000022565416156125430456080 



;nachine has already done index ins/ indirect ion and bits 

;13:17 are guaranteed zero 
DtLflBEL TWER-OISPfiTCHl flLUID+Q] DESTtARJ NORTI $ 
D'Pfl) RaTinW-ROTJ CDISP LONG t 

;Dispatch of type of lOT 

;Allocatc space for dispatch tabic 

.PAIR iLiait address to 12 bits in uidth 
TIHER-DISPaiCH: 
:. + 28 

.ORG [TlfER-DISPflTCH] 



ILGIOT ( 
NORn S 



;aLKa 



];[ 



JUMPCTlnlOT] NORM * 
JUnPdinlQTl NORM $ 
.reloc 

t.USE[HILOC] 

t xlist 
list ] 



1 



TinlOT: CLR-EEV-FROM-INTR DtlRl R0T[12. +1+11 nfiSKI41 DESTtQ] 
CONDCUSER) PUSHJtCKIDTUl « 
;Treat device 378 and 374 as identical for nou. . . 
;Extract lOT decode k 2. Note Me can do this because the 

;nachine has already done indexins/indirect ion and bits 

:13:17 are guaranteed zero 
DtLflBEL TIMER-DISPATCH] SLUtD+Ol OESTCflRJ NORM $ 
DIARJ RDTCnUA-fiOTl OOISP LONG « 

:Disp3tch of type of lOT 

;fll locate space for dispatch table 
.PAIR [:. \ 2 + . 

};Linit address to 12 bits in uidth 
TIHER-DISPftTCH: 
:. + 20 

.ORG [TIMER-OISVlTCH] 
[ xlist 
list 1 

ILGIuT $ ;5LKG 

NORM i 

I. REPEAT WAITS 

.repeat waitsfix [;This conditional is sole for orderins- 
; TDATftO — 7S4 LOflD THE 3G-SIT TIMER 
TDTflOA: D[CCNST TIM.OEUl OEST [ DEy-flOR 1 NORM t 

DFRQ flLUIMEnAC) DEST[HOU)) JUMPITDflTOI S 



.REPEAT WAITS [ 
ILGIOT $ 
NORM t 

];. REPEAT WAITS 



;BLKI 



4ni2178 
iTinZlfS 
14m2178 14286 81873117004080001461246225571457000 



; TDATAI — 765 READ TIMER REGISTER 

TDTAIA: 

.REPEAT WfllTSFIX !;Is there some reason this nould lose? 

STflRT-iN DICONST Tin.OEUJ OEST C OEU-AOORESS } NORM PUSHJtTDTil % 
;3et bits. 
];. REPEAT UAITSFIX 
.REPEAT 1 - WAITSFIX I 

START-IN NORM PUSHJITDTIl S ;9et bits. 
1;. REPEAT 1 - WAITSFIX 

DCAR! SMAC » ;Store the« and return. 
];I;This conditional is sole for orderins. 
; TDATAO — 764 LOfC THE 3G-BIT TIfER 
TDTAOA: DtCONST TIM. DEVI DEST[0EV-ADR1 NORM % 

DFRQ ALUtMEMACl DESTCHOLDJ JUHPITDATOl S 

.REPEAT WAITS [ 

ILGIOT S ;aLKI 

NORM « 
l;t 

ILGIOT $ ;BLKI 

NORM % 
1. REPEAT WAITS 

; TDATAI — 7ES REM) TIMER REGISTER 

TDTAIA: 

.REPEAT WAITSFIX t;Is there some reason this uould lose? 

START-IN DICONST TIM. DEVI DEST [ OEU-ADORESS ] NORM PUSHJtTDTIl « 
:9et bits. 
];[;Is there seme reason this would lose? 

START-IN D'CONST TIM. DEVI DESTCOeu-ADORESS) NORM PUSHJIT0TI3 t 
;9et bits. 
I. REPEAT WAITSFIX 
.REPEAT 1 - WAITSFIX [ 

START-IN NORM PUSHJtTDTIl t ;9et bits. 
];. REPEAT 1 - WAITSFIX 

DiAR] SMAC I IFRa DESTtMErETO AH} CONDiMftCZSi LBJUnPtSEail }* 
:Store them and return. 
]. repeat waitsfix Cordering) 
; TCONO ~ 768 
TCNOA: DtCONST TIM.DEUl DESTtDEy-ADRl SHORT $ 

DID4AMEnll DESTIQl NORM JUTPtTCNDllS 
; TCONI — 761 

TENIA: DtCONST TIM.DEUl DEST t DEU-AOR 1 NORM PUSHJITCNIl] * ;9et bits. 
DtARl SMAC t IFRQ DESTtMEMSTO Afil C0NDtMA<Z8] LBJUMPtSEDI] ]* 
;store them and return, 
.repeat Maitsfix t ;This is Just an ordering question. Makes 
dispatch work. 
; TCONSZ — 763 

TCNS2A: DtCONST TIM.CEV] OEST I DEU-AOR 1 NORM PUSHJITCNIl! t jget bits. 
DIMftSK 221 ALUtD401 0558 C0NDI0BUS=81 LBJUMPIDSKPl 1 $ ;Skip if 
off. 
];[ ;Th!S is just an ordering question. Makes dispatch work. 

r tCuriS^: — f'bd 

TCNS2A: DtCONST TIM. DEVI DEST I DEV-AOR ) NORM PUSHJITCNIl! * ;9et bits. 



SLOE March 23, 1984 21:13:38 file DSK:F4I0.SL0 

4 21B1 14211 ei0S4i08e0eea00ei4045e2i2472i45S0e0 

4 21B1 
4 2182 
4 2182 
4 2183 
4 2184 
4 2185 
4 2185 
4 21% 
4 218? 
4 2188 
4 2188 
4 2189 
4 2190 
4 2191 
4 2192 
4 2193 
4 2194 
4 2195 
4 2196 
4 2197 
4 2198 
4 2199 

4 22ee 

4 2201 

4 2202 

4«2203 

4n2203 

4iii2203 

4ii2203 

4 2203 

4 2204 

4iii2205 

4ii>2206 

4 2206 14212 54073117000006055416182325420415000 

* 2207 14213 54073117208007355416152325423415360 

4 2206 

4 2209 

4 2210 

4 2211 

4 2212 

4 2213 

4 2214 

4 2215 

4 2216 

4 2216 

4 2217 

4 2218 

4 2219 

4 2220 

4 2221 

4 2222 

4 2223 

4 2224 

4 2225 

4 2226 

4 2227 

4 2228 

4 2229 

4 2233 

4 2231 

4 2232 

4 2233 

4 2233 

4 2234 

4 2234 

4 2235 

4 2235 

4 2236 

4 2237 

4 2238 

4 2233 

4 2240 

4 2241 

4 2242 

4 2243 

4 2244 

4«2245 

4in2245 

4.12245 

411.2246 

4ni2246 

41.Z246 

4b2246 

4>i2246 

4ii224B 

4iii2246 

4ii2246 

4»2246 

4»2246 

4«2246 

4i»224S 

4i>224E 

4kiZZ46 

4iiiZ246 

4iii2246 

4iii2246 

4ni2246 

4iii2246 

4»Z246 

4«224G 

4.2246 

4ro2246 

4«i2246 

4iTi2246 

4iii224B 

4in2246 

4in2246 



14214 01064017900806054110162364731416000 

14215 01063117000022711400702025771455000 



1421S 01073037000006055401162366071416000 
14217 01064017000006055416162425771416000 

14220 01073117003106055403152365471516000 

14221 01073117113106055400352365551416000 

14222 010730171000060543061S2364711416000 

14223 01064117000022711416106025471556000 

14224 01073137013006054303162365711416000 

14225 01073017010006054303162365711415000 

14225 01161137000606055415162365431416000 
14227 010731B000303045107076Z02S4114S6000 



of — F41NNF 

DimSK 221 flLUED&Q] C550 CCMD[-CBUS=0] L8JUtf> [OSKPll « ;5kip if 
on. 

.repeat i - waitsfix [ ;This is just an ordering question. FLISH THIS 
COPY 

; TCCNSZ — 763 

TCNSHft: DtCONST TIM-DEUl DESTIDEV-flOR] NORM PUSHJCTCNIl) » .-get bits. 
DinPSK 221 ALUfD&Q] C556 CaiO[aBUS=0] LBJUnPCOSKPl] t ;Skip if 
off. 
3;. repeat 1 - Maitsfix 

•repeat 1 - Maitsfix [ ;■«■ This conditional is sole for ordering. FLUSH 
THIS CtPY 

> TOflTAO — 764 LOW THE 36-BIT TIMER 
TDTflOft: DtCONST TIM.DEV] DEST [ DEy-ADR ) NORM S 

DFRQ flLUIHEMAC] DESTtHOLD] JUMPITWlTOl t 

; TDflTfll — 765 READ TIMER REGISTER 
TDTfllA: 

START-IN NI3?M PUSHJETDTI] t ;9et bits. 

OIARl SMAC S sStorc thea and return. 
];. repeat 1 - waitsfix (•*« ordering) 



.REPEAT WAITS I 

.reloc 
);t 

.reloc 
[.USE[HILOC] 
[ xlist 
list ] 



IIREPEAT USITS 



t:. \ 2 + . 

IDSKPl: NEOI $ 
5KP0SP[ALyftrS! S 

.REPEAT TIfER [ 
.pair 

TCNOl: DtMASK 32.] K:T[4! ALUCCiaQ] DESTtQ) NORM « 

C[IR; MftSKCa; ftLLI[DGRai CESTIDSanEfll! JL?P:r!SIK! s 
;Put neu PI CHAN, in bits 33-35 of A-MEM[1]. 

TCNIl: DCmflftMl) rlftSK[4] DESTtO ARl NORM $ ;9et intrpt flaa and pi chn 

DIIRI ALUIDMl DESTIQ] NORM POPJ $ ;this is for conso, z 



TDATO: 



TOT I: 



$ 
don't 



START-OUT DCMEM] rWSK[12. ] DESTIIODl NORM S 

;Get loM 12 bits of ncM timer value... 

;Place in harAiare counter Cthe "TP TIMER'). 
MAPF(Tin.DO] START-OUT DtCONST 1) OESTtlOD) C600 » 

;Enable interrupts froa tiner. 
MAPFITin.ENai OtMASK 24.] R0Ttl2.] DESTtQ] C800 S 
DtMEM] ALUIOaQl DESTtD*AMEM3] NORM JUPtMAIN] $ 

;Put other 24 bits into A-MEnt3] (the 'TIMER REGISTER'). 

MAPFITin.DI] START-IN DtlDOJ R0TI12.] MASK[12.) DESTtfiR] CE00 « 

;Read harti^iare tisier. 
mPFtTIM.DI] OtIOD] RDTI12.] HASKfl2.i DESTIQl CSeS S 

;Read it asain. 
D[f«l ALUtQ-Ol DESTtAR) NORM % 
START-IN DIAR] R0Tt36. - 1] MASKtSS.l C600 CONDt-HERO] JUMPtTDTI] 

;If it changed by More than one» try again (to ensure that we 

;get a garbaged value because of reading it while it is 



changing) . 

DtDSAMEHS] ALUIDORQ] DESTtAR] NORM POPJ S 

;CoiBbine high-order bits froa A-MEMt3] with 
: low-order bits from hardware counter. 



TIMRST: ALUt01 DESTtDtAnEM3] NORM S 

DtLIT 377777000000] DESTID»flnEM4] $ 
DtLIT TIMINT] DE5TID»lMEM0] POPJ $ 

] I 
.pair 
t:. \ 2 + . 
] 
TCNOl: DtMASK 32.) R0Tt4] ALUIDaO] DESTIQ] NORM » 

DIIR] nASKt3] ALUIDORQ] DESTtlKAMEHl] JUMPtMAINl « 
;Put new PI CHAN, in bits 33-35 of A-fEMtl]. 

TCNIl: DIDtAMEMU nASK(4] DESTtQ AR] NORM $ ;get intrpt flag and pi chn 

DIIR] ALUtD&Q] DESTtQ] NORM PCPJ $ :this is for conso. z 

TDATO: START-OUT DIMEM] MASKtl2.] DESTtlOO] NORM « 

;(9et low 12 bits of new tieer value... 

Jplace in hardware counter (the 'TF TIMER'). 
MAPFITIM.DO] START-OUT DtCONST 1] DESTtlOD] C600 $ 

:Enable interrupts fro* tiner. 
MAPFITIM.ENS] DtMASK 24.] RaTtl2.1 DESTtQ] CB00 $ 
DtMEM] ALUtDMI DESTID«AMEM3] NORM JUMPIHAINl S 

;Put other 24 bits into A-rEMI3] (the 'TIMER REGISTER'). 



TDTI: 



% 

don't 



14ii2246 14230 01063137000006655416162426171416000 



MAPFITIM.DI] START-IN DIIOO] R0T[12.1 MASKI12.] DESTtAR] C600 * 

;Read hardware timer. 
MAPFtTln-DI) DtlOO] RQTtl2.] HAS*;tl2.] DESTtQ] 0660 % 

;Re&d it again- 
DtAR] ALUtQ-Dl DESTtAR] NORM $ 
START-IN DIAR] RDTI36. - 1] MASKI35.] C600 CONDI-ZERO] JUMPtTDTI] 

;If it changed by Bore than one, try again (to ensure that we 

Jget a garbaged value because of reading it while it is 

DtD*AMEM3] ALUIDORQ] DESTtAR] NORM POPJ t 



SLOE March 23, 1384 21:19:45 file STRING: 



F41NNF 



14iii224S 14232 81873117077777589608118365531416866 

14b224S 14233 81873117000080003833580425531416000 

14a2246 

14 2245 

14 2245 

14 2247 

14 2248 

14 2243 

14 2250 

14 2251 

14 2252 

14 2253 

14 2254 

14 2255 

14 2256 

14 2257 

14 2Z58 



D[LIT 3777779080061 DEST[D»flrEm] % 
DiLIi TinlNTJ BeST[D*flrEM01 POPJ » 



3;end REPEAT TIMER 



.repeat 1 



Traoi: 

TDftTO: JUnP MAIN S 



TCNIl 
TDTI: 



ALUC81 DESTIflR 01 NORM PCPJ $ 
end repeat 1 - TIMER 



SLOE March 23. 1384 21:19:46 file DSK:F4I0.SLD 



SLOE March Z3. 138-; 21:lS:tS file DSK:F413S.SL0 



ei 0031 

ei 0832 -repeat JSYSDi 

01 0933 

ei 003'j 

01 003S 

01 0036 

01 0037 

01 0638 

01a!0e39 

01110039 14234 01073117000036005416162025431455006 

01 0033 

01 0040 

0iB0e4i 

01 0041 

01 004Z 

01 9843 17777 01073117000022423416152025411458060 

01 0044 

01 0045 

01 0646 

01 0047 list-labels 



.INSERT F4JSrS 



>nENTRaRi?ETN uCuOE EfUJLliTIClN 
;OISK BCDTER 



-REPEAT 1 - ii-AITS [ 

-repeat DSOOTF [ -INSERT F4DBaT ] 

J;-REPEfiT 1 - tifllTS 

. REPEAT UfllTS [ 

DSOOTfl: JUfP[ 17862] t jUse macro boot in PROM 



oeooTfi: junpti700Z] $ 

]. REPEAT UfllTS 



;l}se nacro boot in PROTI 



-oral 17777] [ xlist 
list ] ;THIS IS TERHINATION FLAG FDR UCDOE BOOTER 



JUrP[HLTLOC) LONG t 



;XFER INSTR FOR UCOX BOOTER 
;TURN OFF HISTORIES AND HALT 



labels 
31 2553 
31 2555 
447 



404 
141 
229 
121 
194 
373 



14 1151 
14 1149 
13 1036 

1 150 
11 S4G 

e 627 
17 1436 
17 1436 

17 1436 

18 1440 
IB 1530 
IB 1490 
IB 1491 

3 773 
8 1479 
8 1478 
6 1529 
8 1540 
B 1549 
B 1577 
8 1489 
8 1563 
59 



98 
36 

311 

4 

laz 

4 436 
11 1725 
11 1715 
13 2830 
12 



3 

5 
918 
95 
119 
92S 
956 
783 
822 
1668 
ii 1743 
11 1B72 
U 1751 
30 1909 
29 1714 
29 1707 
Z9 1715 
15 1196 



371 
177 
535 
261 
987 
295 
365 
70G 
B6Z 
71? 
494 
190 
1313 
ITS 
163 
B9B 
392 
415 
44 
1 111 
32 2775 
32 2906 
32 2912 
32 2B60 
32 3121 
32 3130 
32 3134 
32 3667 

37 *a71 



2 

2 
2 
2 

12 
2 
3 
3 
3 
3 
2 
2 
6 
2 
Z 

17 
2 
2 
1 



5356 
5360 
4225 
4201 

100E4 
10110 

10653 

11235 

11340 

5053 

5052 

4750 

13667 

103ZE 

4321 

5126 

5147 

5151 

5164 

5222 

5201 

5207 

12151 

13572 

13572 

13631 

13643 

13652 

13676 

13S76 

13664 

12175 

12224 

12203 

12320 

12162 

12267 

1312E 

14124 

14116 

14151 

6262 

12566 

12567 

4565 

4061 

4667 

4577 

4611 

4376 

4515 

14954 

14133 

14100 

14140 

11166 

11060 

11055 

11066 

5115 

11737 

11662 

12651 

11665 

4624 

11624 

11334 

12137 

12121 

12141 

12027 

11614 

13406 

13631 

13623 

10472 

11744 

11771 

12675 

1Z72? 

5377 

5442 

5456 

5424 

5556 

5566 

5564 

5523 

CC77 



acAi 
acAii 

ADJBP 

ADJSPO 

APRC2 

APRCIN 

APRC02 

ARDV 

ASEOI 

ASHC4 

ASHC9 

ASHCG 

ASMAP3 

BGNCNO 

BIIHl 

BLT6A 

BLTICZ 

BLTIIN 

BLTAl 

BLTA28 

BLTFX2 

BLTXIT 

CKINSl 

aKCLR 

CURST 

CTYCI 

CTYCI9 

CTYCOS 

CTYCZ 

CTYINl 

CTYRST 

KACNO 

DCACOS 

DCACSO 

DCADOl 

OCAIOT 

DCASRG 

QCINIT 

KNQ2 

KNSZA 

DEU6CL 

DFN 

DIAGI2 

DIAG03 

Divm 

DnoyN2 

DtWEMl 

DOOOIU 

DaOIV3 

DOIMUL 

DOnULl 

DSKIN0 

DSKINT 

DSK07 

DSKUTl 

ECC-RET 

ECCFX2 

ECCTPl 

ECCUTP 

EXCHA 

EXPUF 

FAOSZ 

FD 

FDZO 

FDOOIU 

FCWl 

FIX-SEOI 

FIXERS 

FIXRZ 

FLTRl 

F(12 

FMPZ 

FHTDON 

FNTRO 

FNTURA 

FORCEtl 

FSl 

FS5 

GRN-DISPATCH 

GRNRST 

HLLZ 

HLLEMl 

HLLES3 

HLLQSl 

HLREl 

HLREtIZ 

HLRES3 

HLROl 

Ul DTKI 



31 Z554 
31 2555 



402 
184 
147 
229 
125 
32 



13 1031 

14 1146 
13 1049 

1 22 
1 155 
13 1068 
8 634 
17 1436 
17 1436 

17 1436 

18 1537 
18 1533 
18 1536 
17 1436 

3 773 
8 1481 

7 1225 

8 1533 
B 1537 
B 1552 
B 1506 
8 1443 



39 
54 
121 
33 
269 
391 
611 
1! 1729 
11 1726 
11 1749 
13 2033 
153 



Z 

z 
z 
1 
1 
1 

12 

12 
11 
11 



3 

6 

90 

96 

120 

9^6 

992 

797 

BZ6 



11 1668 
11 1663 
14 2206 
11 1752 
29 1851 
29 1811 
29 1761 
29 1778 
16 866 



396 
179 
206 
266 
521 
213 
678 
624 
639 

7ia 

435 
192 
436 

188 
162 
464 
398 
16 
93 
1 85 
32 2839 
32 Z96e 
3Z Z776 
3Z Z822 
32 3128 
32 3132 
3Z 3176 
32 3068 



5357 &CA2 

5361 aCAfll 

5212 M3JSP 
10070 APDINT 
10065 APRCHK 
10111 APRCIY 
10655 APRC03 
12735 AS-DISPATCH 

4744 ASHl 

5656 ASHC6 

4757 ASKM 
1Z73Z ftSIOT 
13616 ASnAP4 

4777 BIGASZ 

43Z5 BIIH2 

5122 BLTl 

5145 8LT1CK 

5142 BLTILP 

5225 BLTA10 

5225 BLTA4 

5223 BLTLl 

5161 BLTZLP 
12156 CKINS2 
13573 CLKENB 
13515 aRHEM 
13635 CTYCI 1 
13641 CTYCI9 
13555 CTYCD4 
13S87 CTYDI 
13561 CTYINT 
14234 DBOOTA 
12205 DCACQl 
12235 KACQ6 
1ZZ01 DCACSZ 
12167 DCAOTI 
12345 OCARST 
13153 OCGl 
14127 dcnil 
14125 Oa*33 
14137 ddis 
14152 DEWeST 
11556 DFN0 
12563 DIAGI3 
12610 DIAGSB 

4055 DTDJEl 

4862 avMa 

4670 DHVEfE 

4604 DODIU 

4626 D0DIV4 

4375 DOmjL 

4526 D0(1UL4 
14056 DSKINl 
14064 DSK04 
14Z1Z dskpl 
14141 0SKWT3 
1114Z ECCDIE 
lllZl ECCHRO 
11052 ECCTRP 
11101 ECCXIT 
10455 EXECLl 
11742 FADSUl 
11664 FA0S3 
11525 FDl 
11670 FD3 
12043 FDS 
11630 FDU2 
12126 FIXER 

6254 FIXR 
12112 FIXRN 
1Z142 FLTR2 
13107 FHKBUl 
11616 Frf3 
13115 FMTHNG 
13637 FNTROl 
13622 FNTWRB 
12612 FPLOU 
11747 FS2 

5264 FSC 
12720 GRNDTO 
12715 GRNSTS 

5434 HLLEl 

5444 HLLEMZ 

5466 H_LH1 

5416 HLZSl 

5555 H.REZ 

5552 HLRE(13 

S5SS H_RFS4 

5524 HLR02 



31 2557 

31 2538 

5 404 



232 
187 
148 
28 
68 



14 1136 
14 1157 
13 1054 

1 lez 

1 129 
13 1039 

B 625 
17 1436 
17 1436 

17 1435 

18 1494 
IB 1490 
18 1538 

3 375 
3 773 
8 1451 
3 415 
8 1532 
8 1526 
B 1559 
B 1513 
B 1497 



1 
1 
1 
1 
1 
1 
4 
11 

11 
31 



14 
93 
142 
274 
366 
235 
611 
1769 
1706 
1354 
13 20^ 
2 155 



2 
12 
1 
1 
1 
12 



4 

914 

91 

101 

123 
950 



12 1001 



11 
11 
11 
11 
11 



809 

BU 
1668 
1570 
1668 
11 17S5 
36 1836 
29 1858 
29 1802 
4 453 



16 
2 
2 
2 
2 
2 
2 
3 
3 
3 

•7 

4 

2 

2 

2 

2 

2 

Z 

Z 

1 

2 

32 2302 
32 2360 
32 2777 
32 2987 
32 3122 
32 3124 
57 7qBq 



878 
389 
183 
226 
271 
522 
265 
638 
629 
710 
483 
435 
196 
191 
1% 
149 
423 
403 
168 
96 
33 



5K2 

5353 

4166 

16112 

10071 

10067 

10000 

12755 

5637 

5063 

4763 

1Z770 

1300Z 

4752 

4320 

5126 

5134 

5155 

5210 

5206 

5227 

11341 

12166 

13565 

11356 

13S34 

13627 

13SG2 

13516 

13562 

12165 

12222 

12245 

12310 

12173 

12394 

13156 

14112 

14110 

11206 

14153 

11556 

7766 

4566 

4056 

4064 

4072 

4605 

4741 

4401 

4402 

14650 

140^ 

14103 

14144 

11151 

11143 

11117 

10262 

10454 

11741 

11610 

11642 

11574 

12844 

11567 

12134 

12105 

6256 

12021 

13106 

11622 

13048 

13060 

13015 

11774 
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